Software and Services for Financial Aid
WolffPack differences report |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
*S****SAG GENERATOR: WW-SECURITY Version: 3.2.2
*S****SAG TITLE: ADD security routine
*S****SAG SYSTEM: FINANCIER
*S****SAG GDA: WWGDA
*S****SAG DESCS(1): This external subroutine is used to supply the security
*S****SAG DESCS(2): routine for the WF-ADD file.
*S****SAG HEADER1: FINANCIER
*S****SAG DIRECT-COMMAND-PROCESS:
*S****SAG ACTIONS: 0101010101010000
*S****SAG OBJECT-NAME: WFADDDSO
*S****SAG MAX-WINDOWS: 1
*S****SAG MAP-NAME(1): WF000P
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFADDDST
*S*** System : FINANCIER
*S*** Title : ADD security routine
*S*** Function : This external subroutine is used to supply the security
*S*** routine for the WF-ADD file.
*S***
*S***
*S***
*S*** Copyright 1995 - 2010 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S**GLOBAL USING WWGDA
*S**PARAMETER USING WFADDDSV
*S***
*S**LOCAL USING WWCONST /* Constants LDA
*S**LOCAL USING WWFXREFD /* PDA/File cross-reference
*S**LOCAL USING WWPXREFD /* Program cross-reference
*S**LOCAL
*S** 01 #PROGRAM-MATCH(L) /* Match in Program Xref found
*S** 01 #FILE-MATCH(L) /* Match in PDA/File Xref found
*S** 01 #TMP-PRIV(A1)
*S** 01 #CNTL-VAR(C)
*S** 01 #FAO-SUB(N2)
*S** 01 #FAO-MAX(N2) INIT<10>
*S** 01 #FAO-MATCH(L) /* Match in FAO security found
*S** 01 #TRANS-NUMBERS
*S** 02 #TRANS-N(A20) INIT<'0N1N2N3N4N5N6N7N8N9N'>
*S** 01 REDEFINE #TRANS-NUMBERS
*S** 02 #TRANS-NUM(10)
*S** 03 #T-NUM(A2)
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE ADD-SECURITY
*S*************************************************************************
*S** /*
*S** /* Get program and file cross-references
*S** PERFORM PROGRAM-XREF-LOAD WWPXREFD
*S** PERFORM FILE-XREF-LOAD WWFXREFD
*S** /*
*S** /* Security routine contained in copycode
*S** INCLUDE WWSECURC
*S** /*
*S** /* Load appropriate security setting to
*S** /* file specific control variables
*S** MOVE #CNTL-VAR TO
*S** FAO-CV /* WF-FAO
*S** AID-YEAR-CV /* WF-AID-YEAR
*S** NAME-LF-CV /* WW-NAME-LF
*S** HOLD-CV /* WW-HOLD
*S** CDATE-CV /* WW-CDATE
*S** MDATE-CV /* WW-MDATE
*S** ST-NM-LAST-CV /* WW-ST-NM-LAST
*S** ST-NM-FIRST-CV /* WW-ST-NM-FIRST
*S** ST-NM-MI-CV /* WW-ST-NM-MI
*S** ST-SSN-CV /* WW-ST-SSN
*S** ST-DOB-CV /* WW-ST-DOB
*S** AD-COLLEGE-CV /* WF-AD-COLLEGE
*S** AD-SOURCE-CV /* WF-AD-SOURCE
*S** AD-SEND-RSN-CV /* WF-AD-SEND-RSN
*S** AD-TRAN-CV /* WF-AD-TRAN
*S** AD-RCVD-DATE-CV /* WF-AD-RCVD-DATE
*S** AD-NEW-REJ-CV /* WF-AD-NEW-REJ
*S** AD-REJ-OVERRIDE-CV /* WF-AD-REJ-OVERRIDE
*S** AD-REJ1-CV /* WF-AD-REJ1
*S** AD-REJ-CV /* WF-AD-REJ
*S** AD-REJ2-CV /* WF-AD-REJ2
*S** AD-REJ3-CV /* WF-AD-REJ3
*S** AD-REJ4-CV /* WF-AD-REJ4
*S** AD-REJ5-CV /* WF-AD-REJ5
*S** AD-C-SSN-CV /* WF-AD-C-SSN
*S** AD-C-DOB-CV /* WF-AD-C-DOB
*S** AD-C-NL-CV /* WF-AD-C-NL
*S** AD-C-NF-CV /* WF-AD-C-NF
*S** AD-C-NM-CV /* WF-AD-C-NM
*S** AD-REC01-CV /* WF-AD-REC01
*S** AD-REC02-CV /* WF-AD-REC02
*S** AD-REC03-CV /* WF-AD-REC03
*S** AD-REC04-CV /* WF-AD-REC04
*S** AD-REC05-CV /* WF-AD-REC05
*S** AD-REC06-CV /* WF-AD-REC06
*S** AD-REC07-CV /* WF-AD-REC07
*S** AD-REC08-CV /* WF-AD-REC08
*S** AD-REC09-CV /* WF-AD-REC09
*S** AD-REC10-CV /* WF-AD-REC10
*S** AD-REC11-CV /* WF-AD-REC11
*S** AD-REC12-CV /* WF-AD-REC12
*S** AD-REC13-CV /* WF-AD-REC13
*S** AD-REC14-CV /* WF-AD-REC14
*S** AD-REC15-CV /* WF-AD-REC15
*S** AD-REC16-CV /* WF-AD-REC16
*S** AD-REC17-CV /* WF-AD-REC17
*S** AD-REC18-CV /* WF-AD-REC18
*S** AD-REC19-CV /* WF-AD-REC19
*S** AD-REC20-CV /* WF-AD-REC20
*S**END-SUBROUTINE /* ADD-SECURITY
*S**END
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
*S****SAG GENERATOR: WW-SECURITY Version: 3.2.2
*S****SAG TITLE: ADD security routine
*S****SAG SYSTEM: FINANCIER
*S****SAG GDA: WWGDA
*S****SAG DESCS(1): This external subroutine is used to supply the security
*S****SAG DESCS(2): routine for the WF-ADD file.
*S****SAG HEADER1: FINANCIER
*S****SAG DIRECT-COMMAND-PROCESS:
*S****SAG ACTIONS: 0101010101010000
*S****SAG OBJECT-NAME: WFADDDSO
*S****SAG MAX-WINDOWS: 1
*S****SAG MAP-NAME(1): WF000P
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFADDDST
*S*** System : FINANCIER
*S*** Title : ADD security routine
*S*** Function : This external subroutine is used to supply the security
*S*** routine for the WF-ADD file.
*S***
*S***
*S***
*S*** Copyright 1995 - 2010 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S**GLOBAL USING WWGDA
*S**PARAMETER USING WFADDDSV
*S***
*S**LOCAL USING WWCONST /* Constants LDA
*S**LOCAL USING WWFXREFD /* PDA/File cross-reference
*S**LOCAL USING WWPXREFD /* Program cross-reference
*S**LOCAL
*S** 01 #PROGRAM-MATCH(L) /* Match in Program Xref found
*S** 01 #FILE-MATCH(L) /* Match in PDA/File Xref found
*S** 01 #TMP-PRIV(A1)
*S** 01 #CNTL-VAR(C)
*S** 01 #FAO-SUB(N2)
*S** 01 #FAO-MAX(N2) INIT<10>
*S** 01 #FAO-MATCH(L) /* Match in FAO security found
*S** 01 #TRANS-NUMBERS
*S** 02 #TRANS-N(A20) INIT<'0N1N2N3N4N5N6N7N8N9N'>
*S** 01 REDEFINE #TRANS-NUMBERS
*S** 02 #TRANS-NUM(10)
*S** 03 #T-NUM(A2)
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE ADD-SECURITY
*S*************************************************************************
*S** /*
*S** /* Get program and file cross-references
*S** PERFORM PROGRAM-XREF-LOAD WWPXREFD
*S** PERFORM FILE-XREF-LOAD WWFXREFD
*S** /*
*S** /* Security routine contained in copycode
*S** INCLUDE WWSECURC
*S** /*
*S** /* Load appropriate security setting to
*S** /* file specific control variables
*S** MOVE #CNTL-VAR TO
*S** FAO-CV /* WF-FAO
*S** AID-YEAR-CV /* WF-AID-YEAR
*S** NAME-LF-CV /* WW-NAME-LF
*S** HOLD-CV /* WW-HOLD
*S** CDATE-CV /* WW-CDATE
*S** MDATE-CV /* WW-MDATE
*S** ST-NM-LAST-CV /* WW-ST-NM-LAST
*S** ST-NM-FIRST-CV /* WW-ST-NM-FIRST
*S** ST-NM-MI-CV /* WW-ST-NM-MI
*S** ST-SSN-CV /* WW-ST-SSN
*S** ST-DOB-CV /* WW-ST-DOB
*S** AD-COLLEGE-CV /* WF-AD-COLLEGE
*S** AD-SOURCE-CV /* WF-AD-SOURCE
*S** AD-SEND-RSN-CV /* WF-AD-SEND-RSN
*S** AD-TRAN-CV /* WF-AD-TRAN
*S** AD-RCVD-DATE-CV /* WF-AD-RCVD-DATE
*S** AD-NEW-REJ-CV /* WF-AD-NEW-REJ
*S** AD-REJ-OVERRIDE-CV /* WF-AD-REJ-OVERRIDE
*S** AD-REJ1-CV /* WF-AD-REJ1
*S** AD-REJ-CV /* WF-AD-REJ
*S** AD-REJ2-CV /* WF-AD-REJ2
*S** AD-REJ3-CV /* WF-AD-REJ3
*S** AD-REJ4-CV /* WF-AD-REJ4
*S** AD-REJ5-CV /* WF-AD-REJ5
*S** AD-C-SSN-CV /* WF-AD-C-SSN
*S** AD-C-DOB-CV /* WF-AD-C-DOB
*S** AD-C-NL-CV /* WF-AD-C-NL
*S** AD-C-NF-CV /* WF-AD-C-NF
*S** AD-C-NM-CV /* WF-AD-C-NM
*S** AD-REC01-CV /* WF-AD-REC01
*S** AD-REC02-CV /* WF-AD-REC02
*S** AD-REC03-CV /* WF-AD-REC03
*S** AD-REC04-CV /* WF-AD-REC04
*S** AD-REC05-CV /* WF-AD-REC05
*S** AD-REC06-CV /* WF-AD-REC06
*S** AD-REC07-CV /* WF-AD-REC07
*S** AD-REC08-CV /* WF-AD-REC08
*S** AD-REC09-CV /* WF-AD-REC09
*S** AD-REC10-CV /* WF-AD-REC10
*S** AD-REC11-CV /* WF-AD-REC11
*S** AD-REC12-CV /* WF-AD-REC12
*S** AD-REC13-CV /* WF-AD-REC13
*S** AD-REC14-CV /* WF-AD-REC14
*S** AD-REC15-CV /* WF-AD-REC15
*S** AD-REC16-CV /* WF-AD-REC16
*S** AD-REC17-CV /* WF-AD-REC17
*S** AD-REC18-CV /* WF-AD-REC18
*S** AD-REC19-CV /* WF-AD-REC19
*S** AD-REC20-CV /* WF-AD-REC20
*S** AD-REC21-CV /* WF-AD-REC21
*S** AD-REC22-CV /* WF-AD-REC22
*S** AD-REC23-CV /* WF-AD-REC23
*S** AD-REC24-CV /* WF-AD-REC24
*S** AD-REC25-CV /* WF-AD-REC25
*S** AD-REC26-CV /* WF-AD-REC26
*S** AD-REC27-CV /* WF-AD-REC27
*S** AD-REC28-CV /* WF-AD-REC28
*S** AD-REC29-CV /* WF-AD-REC29
*S** AD-REC30-CV /* WF-AD-REC30
*S** AD-REC31-CV /* WF-AD-REC31
*S** AD-REC32-CV /* WF-AD-REC32
*S** AD-REC33-CV /* WF-AD-REC33
*S** AD-REC34-CV /* WF-AD-REC34
*S** AD-REC35-CV /* WF-AD-REC35
*S** AD-REC36-CV /* WF-AD-REC36
*S** AD-REC37-CV /* WF-AD-REC37
*S** AD-REC38-CV /* WF-AD-REC38
*S** AD-REC39-CV /* WF-AD-REC39
*S** AD-REC40-CV /* WF-AD-REC40
*S**END-SUBROUTINE /* ADD-SECURITY
*S**END
|