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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
*S****SAG GENERATOR: WW-SECURITY Version: 3.2.2
*S****SAG TITLE: 2014-15 Verif Security
*S****SAG SYSTEM: FINANCIER
*S****SAG GDA: WWGDA
*S****SAG DESCS(1): This external subroutine provides security
*S****SAG DESCS(2): for the WW-VERIFY-1415 file.
*S****SAG HEADER1: FINANCIER
*S****SAG DIRECT-COMMAND-PROCESS:
*S****SAG ACTIONS: 0101010101010000
*S****SAG OBJECT-NAME: WFVER15O
*S****SAG MAX-WINDOWS: 1
*S****SAG MAP-NAME(1): WF000P
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFVER15T
*S*** System : FINANCIER
*S*** Title : 2014-15 Verif Security
*S*** Function : This external subroutine provides security
*S*** for the WW-VERIFY-1415 file.
*S***
*S***
*S***
*S*** Copyright 1995 - 2013 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S**GLOBAL USING WWGDA
*S**PARAMETER USING WFVER15V
*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 VERIFY-1415-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** STUDENT-ID-CV /* WW-STUDENT-ID
*S** FAO-CV /* WF-FAO
*S** HOLD-CV /* WW-HOLD
*S** CDATE-CV /* WW-CDATE
*S** MDATE-CV /* WW-MDATE
*S** VE-VER-INS-CV /* WF-VE-VER-INS
*S** VE-VER-CV /* WF-VE-VER
*S** VE-VER-FED-CV /* WF-VE-VER-FED
*S** VE-VER-DATE-CV /* WF-VE-VER-DATE
*S** VE-VER-TRAN-CV /* WF-VE-VER-TRAN
*S** VE-VER-REVER-CV /* WF-VE-VER-REVER
*S** VE-INS-REQD-CV /* WF-VE-INS-REQD
*S** VE-INS-STAT-CV /* WF-VE-INS-STAT
*S** VE-INS-DATE-CV /* WF-VE-INS-DATE
*S** VE-VET-REQD-CV /* WF-VE-VET-REQD
*S** VE-VET-STAT-CV /* WF-VE-VET-STAT
*S** VE-VET-DATE-CV /* WF-VE-VET-DATE
*S** VE-S-CIT-CV /* WF-VE-S-CIT
*S** VE-S-RES-CV /* WF-VE-S-RES
*S** VE-S-MAR-CV /* WF-VE-S-MAR
*S** VE-S-FAM-SIZE-CV /* WF-VE-S-FAM-SIZE
*S** VE-S-FAM-COL-CV /* WF-VE-S-FAM-COL
*S** VE-S-DLW-CV /* WF-VE-S-DLW
*S** VE-S-MT-SSI-CV /* WF-VE-S-MT-SSI
*S** VE-S-MT-SNAP-CV /* WF-VE-S-MT-SNAP
*S** VE-S-MT-LUNCH-CV /* WF-VE-S-MT-LUNCH
*S** VE-S-MT-TANF-CV /* WF-VE-S-MT-TANF
*S** VE-S-MT-WIC-CV /* WF-VE-S-MT-WIC
*S** VE-S-TEST-DOB-CV /* WF-VE-S-TEST-DOB
*S** VE-S-TEST-MAR-CV /* WF-VE-S-TEST-MAR
*S** VE-S-TEST-GRAD-CV /* WF-VE-S-TEST-GRAD
*S** VE-S-TEST-ACTV-CV /* WF-VE-S-TEST-ACTV
*S** VE-S-TEST-VET-CV /* WF-VE-S-TEST-VET
*S** VE-S-TEST-CHL-CV /* WF-VE-S-TEST-CHL
*S** VE-S-TEST-DEP-CV /* WF-VE-S-TEST-DEP
*S** VE-S-TEST-ORPH-CV /* WF-VE-S-TEST-ORPH
*S** VE-S-TEST-EMAN-CV /* WF-VE-S-TEST-EMAN
*S** VE-S-TEST-GUAR-CV /* WF-VE-S-TEST-GUAR
*S** VE-S-TEST-UYSD-CV /* WF-VE-S-TEST-UYSD
*S** VE-S-TEST-UYHU-CV /* WF-VE-S-TEST-UYHU
*S** VE-S-TEST-HMLS-CV /* WF-VE-S-TEST-HMLS
*S** VE-S-HS-COMP-CV /* WF-VE-S-HS-COMP
*S** VE-S-SEP-CV /* WF-VE-S-TEST-SEP
*S** VE-S-FILER-CV /* WF-VE-S-FILER
*S** VE-S-FORM-CV /* WF-VE-S-FORM
*S** VE-S-FILE-STAT-CV /* WF-VE-S-FILE-STAT
*S** VE-S-SFORM-CV /* WF-VE-S-SFORM
*S** VE-S-TAX-EXEM-CV /* WF-VE-S-TAX-EXEM
*S** VE-S-AGI-CV /* WF-VE-S-AGI
*S** VE-S-FED-TAX-CV /* WF-VE-S-FED-TAX
*S** VE-S-ST-INC-CV /* WF-VE-S-ST-INC
*S** VE-S-SP-INC-CV /* WF-VE-S-SP-INC
*S** VE-S-A-EDCR-CV /* WF-VE-S-A-EDCR
*S** VE-S-A-CSPD-CV /* WF-VE-S-A-CSPD
*S** VE-S-A-WORK-CV /* WF-VE-S-A-WORK
*S** VE-S-A-GRNT-CV /* WF-VE-S-A-GRNT
*S** VE-S-A-CPAY-CV /* WF-VE-S-A-CPAY
*S** VE-S-A-COOP-CV /* WF-VE-S-A-COOP
*S** VE-S-U-PEN-CV /* WF-VE-S-U-PEN
*S** VE-S-U-IRA-CV /* WF-VE-S-U-IRA
*S** VE-S-U-CSUP-CV /* WF-VE-S-U-CSUP
*S** VE-S-U-INT-CV /* WF-VE-S-U-INT
*S** VE-S-U-DIST-CV /* WF-VE-S-U-DIST
*S** VE-S-U-PENS-CV /* WF-VE-S-U-PENS
*S** VE-S-U-LIV-CV /* WF-VE-S-U-LIV
*S** VE-S-U-VET-CV /* WF-VE-S-U-VET
*S** VE-S-U-OTHER-CV /* WF-VE-S-U-OTHER
*S** VE-S-U-MONEY-CV /* WF-VE-S-U-MONEY
*S** VE-S-UNTAXED-CV /* WF-VE-S-UNTAXED
*S** VE-S-CASH-CV /* WF-VE-S-CASH
*S** VE-S-INV-CV /* WF-VE-S-INV
*S** VE-S-BUS-FRM-CV /* WF-VE-S-BUS-FRM
*S** VE-P-RES-CV /* WF-VE-P-RES
*S** VE-P-MAR-CV /* WF-VE-P-MAR
*S** VE-P-FAM-SIZE-CV /* WF-VE-P-FAM-SIZE
*S** VE-P-FAM-COL-CV /* WF-VE-P-FAM-COL
*S** VE-P-DLW-CV /* WF-VE-P-DLW
*S** VE-P-MT-SSI-CV /* WF-VE-P-MT-SSI
*S** VE-P-MT-SNAP-CV /* WF-VE-P-MT-SNAP
*S** VE-P-MT-LUNCH-CV /* WF-VE-P-MT-LUNCH
*S** VE-P-MT-TANF-CV /* WF-VE-P-MT-TANF
*S** VE-P-MT-WIC-CV /* WF-VE-P-MT-WIC
*S** VE-P-FILER-CV /* WF-VE-P-FILER
*S** VE-P-FORM-CV /* WF-VE-P-FORM
*S** VE-P-FILE-STAT-CV /* WF-VE-P-FILE-STAT
*S** VE-P-SFORM-CV /* WF-VE-P-SFORM
*S** VE-P-TAX-EXEM-CV /* WF-VE-P-TAX-EXEM
*S** VE-P-AGI-CV /* WF-VE-P-AGI
*S** VE-P-FED-TAX-CV /* WF-VE-P-FED-TAX
*S** VE-P-P1-INC-CV /* WF-VE-P-P1-INC
*S** VE-P-P2-INC-CV /* WF-VE-P-P2-INC
*S** VE-P-A-EDCR-CV /* WF-VE-P-A-EDCR
*S** VE-P-A-CSPD-CV /* WF-VE-P-A-CSPD
*S** VE-P-A-WORK-CV /* WF-VE-P-A-WORK
*S** VE-P-A-GRNT-CV /* WF-VE-P-A-GRNT
*S** VE-P-A-CPAY-CV /* WF-VE-P-A-CPAY
*S** VE-P-A-COOP-CV /* WF-VE-P-A-COOP
*S** VE-P-U-PEN-CV /* WF-VE-P-U-PEN
*S** VE-P-U-IRA-CV /* WF-VE-P-U-IRA
*S** VE-P-U-CSUP-CV /* WF-VE-P-U-CSUP
*S** VE-P-U-INT-CV /* WF-VE-P-U-INT
*S** VE-P-U-DIST-CV /* WF-VE-P-U-DIST
*S** VE-P-U-PENS-CV /* WF-VE-P-U-PENS
*S** VE-P-U-LIV-CV /* WF-VE-P-U-LIV
*S** VE-P-U-VET-CV /* WF-VE-P-U-VET
*S** VE-P-U-OTHER-CV /* WF-VE-P-U-OTHER
*S** VE-P-UNTAXED-CV /* WF-VE-P-UNTAXED
*S** VE-P-CASH-CV /* WF-VE-P-CASH
*S** VE-P-INV-CV /* WF-VE-P-INV
*S** VE-P-BUS-FRM-CV /* WF-VE-P-BUS-FRM
*S**END-SUBROUTINE /* VERIFY-1415-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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
|
*S****SAG GENERATOR: WW-SECURITY Version: 3.2.2
*S****SAG TITLE: 2014-15 Verif Security
*S****SAG SYSTEM: FINANCIER
*S****SAG GDA: WWGDA
*S****SAG DESCS(1): This external subroutine provides security
*S****SAG DESCS(2): for the WW-VERIFY-1415 file.
*S****SAG HEADER1: FINANCIER
*S****SAG DIRECT-COMMAND-PROCESS:
*S****SAG ACTIONS: 0101010101010000
*S****SAG OBJECT-NAME: WFVER15O
*S****SAG MAX-WINDOWS: 1
*S****SAG MAP-NAME(1): WF000P
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFVER15T
*S*** System : FINANCIER
*S*** Title : 2014-15 Verif Security
*S*** Function : This external subroutine provides security
*S*** for the WW-VERIFY-1415 file.
*S***
*S***
*S***
*S*** Copyright 1995 - 2013 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S**GLOBAL USING WWGDA
*S**PARAMETER USING WFVER15V
*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 VERIFY-1415-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** STUDENT-ID-CV /* WW-STUDENT-ID
*S** FAO-CV /* WF-FAO
*S** HOLD-CV /* WW-HOLD
*S** CDATE-CV /* WW-CDATE
*S** MDATE-CV /* WW-MDATE
*S** VE-VER-INS-CV /* WF-VE-VER-INS
*S** VE-VER-CV /* WF-VE-VER
*S** VE-VER-FED-CV /* WF-VE-VER-FED
*S** VE-VER-DATE-CV /* WF-VE-VER-DATE
*S** VE-VER-TRAN-CV /* WF-VE-VER-TRAN
*S** VE-VER-REVER-CV /* WF-VE-VER-REVER
*S** VE-INS-REQD-CV /* WF-VE-INS-REQD
*S** VE-INS-STAT-CV /* WF-VE-INS-STAT
*S** VE-INS-DATE-CV /* WF-VE-INS-DATE
*S** VE-VET-REQD-CV /* WF-VE-VET-REQD
*S** VE-VET-STAT-CV /* WF-VE-VET-STAT
*S** VE-VET-DATE-CV /* WF-VE-VET-DATE
*S** VE-S-CIT-CV /* WF-VE-S-CIT
*S** VE-S-RES-CV /* WF-VE-S-RES
*S** VE-S-MAR-CV /* WF-VE-S-MAR
*S** VE-S-FAM-SIZE-CV /* WF-VE-S-FAM-SIZE
*S** VE-S-FAM-COL-CV /* WF-VE-S-FAM-COL
*S** VE-S-DLW-CV /* WF-VE-S-DLW
*S** VE-S-MT-SSI-CV /* WF-VE-S-MT-SSI
*S** VE-S-MT-SNAP-CV /* WF-VE-S-MT-SNAP
*S** VE-S-MT-LUNCH-CV /* WF-VE-S-MT-LUNCH
*S** VE-S-MT-TANF-CV /* WF-VE-S-MT-TANF
*S** VE-S-MT-WIC-CV /* WF-VE-S-MT-WIC
*S** VE-S-TEST-DOB-CV /* WF-VE-S-TEST-DOB
*S** VE-S-TEST-MAR-CV /* WF-VE-S-TEST-MAR
*S** VE-S-TEST-GRAD-CV /* WF-VE-S-TEST-GRAD
*S** VE-S-TEST-ACTV-CV /* WF-VE-S-TEST-ACTV
*S** VE-S-TEST-VET-CV /* WF-VE-S-TEST-VET
*S** VE-S-TEST-CHL-CV /* WF-VE-S-TEST-CHL
*S** VE-S-TEST-DEP-CV /* WF-VE-S-TEST-DEP
*S** VE-S-TEST-ORPH-CV /* WF-VE-S-TEST-ORPH
*S** VE-S-TEST-EMAN-CV /* WF-VE-S-TEST-EMAN
*S** VE-S-TEST-GUAR-CV /* WF-VE-S-TEST-GUAR
*S** VE-S-TEST-UYSD-CV /* WF-VE-S-TEST-UYSD
*S** VE-S-TEST-UYHU-CV /* WF-VE-S-TEST-UYHU
*S** VE-S-TEST-HMLS-CV /* WF-VE-S-TEST-HMLS
*S** VE-S-HS-COMP-CV /* WF-VE-S-HS-COMP
*S** VE-S-SEP-CV /* WF-VE-S-TEST-SEP
*S** VE-S-FILER-CV /* WF-VE-S-FILER
*S** VE-S-FORM-CV /* WF-VE-S-FORM
*S** VE-S-FILE-STAT-CV /* WF-VE-S-FILE-STAT
*S** VE-S-SFORM-CV /* WF-VE-S-SFORM
*S** VE-S-TAX-EXEM-CV /* WF-VE-S-TAX-EXEM
*S** VE-S-AGI-CV /* WF-VE-S-AGI
*S** VE-S-FED-TAX-CV /* WF-VE-S-FED-TAX
*S** VE-S-ST-INC-CV /* WF-VE-S-ST-INC
*S** VE-S-SP-INC-CV /* WF-VE-S-SP-INC
*S** VE-S-A-EDCR-CV /* WF-VE-S-A-EDCR
*S** VE-S-A-CSPD-CV /* WF-VE-S-A-CSPD
*S** VE-S-A-WORK-CV /* WF-VE-S-A-WORK
*S** VE-S-A-GRNT-CV /* WF-VE-S-A-GRNT
*S** VE-S-A-CPAY-CV /* WF-VE-S-A-CPAY
*S** VE-S-A-COOP-CV /* WF-VE-S-A-COOP
*S** VE-S-U-PEN-CV /* WF-VE-S-U-PEN
*S** VE-S-U-IRA-CV /* WF-VE-S-U-IRA
*S** VE-S-U-CSUP-CV /* WF-VE-S-U-CSUP
*S** VE-S-U-INT-CV /* WF-VE-S-U-INT
*S** VE-S-U-DIST-CV /* WF-VE-S-U-DIST
*S** VE-S-U-PENS-CV /* WF-VE-S-U-PENS
*S** VE-S-U-LIV-CV /* WF-VE-S-U-LIV
*S** VE-S-U-VET-CV /* WF-VE-S-U-VET
*S** VE-S-U-OTHER-CV /* WF-VE-S-U-OTHER
*S** VE-S-U-MONEY-CV /* WF-VE-S-U-MONEY
*S** VE-S-UNTAXED-CV /* WF-VE-S-UNTAXED
*S** VE-S-CASH-CV /* WF-VE-S-CASH
*S** VE-S-INV-CV /* WF-VE-S-INV
*S** VE-S-BUS-FRM-CV /* WF-VE-S-BUS-FRM
*S** VE-P-RES-CV /* WF-VE-P-RES
*S** VE-P-MAR-CV /* WF-VE-P-MAR
*S** VE-P-FAM-SIZE-CV /* WF-VE-P-FAM-SIZE
*S** VE-P-FAM-COL-CV /* WF-VE-P-FAM-COL
*S** VE-P-DLW-CV /* WF-VE-P-DLW
*S** VE-P-MT-SSI-CV /* WF-VE-P-MT-SSI
*S** VE-P-MT-SNAP-CV /* WF-VE-P-MT-SNAP
*S** VE-P-MT-LUNCH-CV /* WF-VE-P-MT-LUNCH
*S** VE-P-MT-TANF-CV /* WF-VE-P-MT-TANF
*S** VE-P-MT-WIC-CV /* WF-VE-P-MT-WIC
*S** VE-P-FILER-CV /* WF-VE-P-FILER
*S** VE-P-FORM-CV /* WF-VE-P-FORM
*S** VE-P-FILE-STAT-CV /* WF-VE-P-FILE-STAT
*S** VE-P-SFORM-CV /* WF-VE-P-SFORM
*S** VE-P-TAX-EXEM-CV /* WF-VE-P-TAX-EXEM
*S** VE-P-AGI-CV /* WF-VE-P-AGI
*S** VE-P-FED-TAX-CV /* WF-VE-P-FED-TAX
*S** VE-P-P1-INC-CV /* WF-VE-P-P1-INC
*S** VE-P-P2-INC-CV /* WF-VE-P-P2-INC
*S** VE-P-A-EDCR-CV /* WF-VE-P-A-EDCR
*S** VE-P-A-CSPD-CV /* WF-VE-P-A-CSPD
*S** VE-P-A-WORK-CV /* WF-VE-P-A-WORK
*S** VE-P-A-GRNT-CV /* WF-VE-P-A-GRNT
*S** VE-P-A-CPAY-CV /* WF-VE-P-A-CPAY
*S** VE-P-A-COOP-CV /* WF-VE-P-A-COOP
*S** VE-P-U-PEN-CV /* WF-VE-P-U-PEN
*S** VE-P-U-IRA-CV /* WF-VE-P-U-IRA
*S** VE-P-U-CSUP-CV /* WF-VE-P-U-CSUP
*S** VE-P-U-INT-CV /* WF-VE-P-U-INT
*S** VE-P-U-DIST-CV /* WF-VE-P-U-DIST
*S** VE-P-U-PENS-CV /* WF-VE-P-U-PENS
*S** VE-P-U-LIV-CV /* WF-VE-P-U-LIV
*S** VE-P-U-VET-CV /* WF-VE-P-U-VET
*S** VE-P-U-OTHER-CV /* WF-VE-P-U-OTHER
*S** VE-P-UNTAXED-CV /* WF-VE-P-UNTAXED
*S** VE-P-CASH-CV /* WF-VE-P-CASH
*S** VE-P-INV-CV /* WF-VE-P-INV
*S** VE-P-BUS-FRM-CV /* WF-VE-P-BUS-FRM
*S** VE-ID-VER-RSLTS-CV /* WF-VE-ID-VER-RSLTS
*S**END-SUBROUTINE /* VERIFY-1415-SECURITY
*S**END
|