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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFF258AZ
*S*** System: FINANCIER
*S*** Function : This subroutine performs update edits and
*S*** mask processing for the WFF258AM map.
*S***
*S***
*S*** Copyright 1995 - 2024 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #FUNCTION(A1)
*S** PARAMETER USING WWVALLDA /* Valid value PDA
*S***
*S** PARAMETER USING WFFED25D
*S** PARAMETER USING WFFED25R
*S** PARAMETER USING WFFED25S
*S***
*S** LOCAL USING WWCONST /* Constants LDA
*S** LOCAL
*S** 01 #PASS-KEY(A30) /* Contains PDA.fieldname identifier
*S** 01 #PASS-TEMP(A30) /* Contains value and returned translation
*S** 01 #TRANSLATION-SRC(A1) /* Contains 'E' if translation located in
*S** /* WW-EXTERNAL file, defaults to ' '
*S** /* ie. translation in WW-DICTIONARY file
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE WFF258AM-MASK-EDITS
*S*************************************************************************
*S** DECIDE ON FIRST VALUE OF #FUNCTION
*S** VALUE LOAD
*S** /*
*S** /* For each maked field on map, load 'shadow' file
*S** RESET WF-FEDERAL-2425-SHADOW-FILE
*S** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFF258AM
*S** /* RESET performed to allow generated subroutines to stow.
*S** VALUE EDIT
*S** /*
*S** /* For each field on map, when modified, call EDIT routine.
*S** RESET #FAIL-EDIT #MARK-FIELD
*S** DECIDE FOR EVERY CONDITION
*S** WHEN FE-C-CHILD-HERO-CV MODIFIED OR
*S** FE-C-CHILD-HERO-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-C-CHILD-HERO'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-C-CHILD-HERO
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-C-CHILD-HERO)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-C-CHILD-HERO-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-C-CHILD-HERO-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-C-CHILD-HERO-CV
*S** RESET INITIAL FE-C-CHILD-HERO-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-F-DEP-OVR-CV MODIFIED OR
*S** FE-F-DEP-OVR-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-DEP-OVR'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-DEP-OVR
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-DEP-OVR)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-DEP-OVR-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-DEP-OVR-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-DEP-OVR-CV
*S** RESET INITIAL FE-F-DEP-OVR-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-F-IASG-CV MODIFIED OR
*S** FE-F-IASG-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-IASG'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-IASG
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-IASG)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-IASG-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-IASG-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-IASG-CV
*S** RESET INITIAL FE-F-IASG-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-F-LOCK-CV MODIFIED OR
*S** FE-F-LOCK-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-LOCK'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-LOCK
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-LOCK)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-LOCK-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-LOCK-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-LOCK-CV
*S** RESET INITIAL FE-F-LOCK-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-F-PROF-JUDG-CV MODIFIED OR
*S** FE-F-PROF-JUDG-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-PROF-JUDG'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-PROF-JUDG
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-PROF-JUDG)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-PROF-JUDG-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-PROF-JUDG-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-PROF-JUDG-CV
*S** RESET INITIAL FE-F-PROF-JUDG-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-INCARCERATED-CV MODIFIED OR
*S** FE-INCARCERATED-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-INCARCERATED'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-INCARCERATED
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-INCARCERATED)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-INCARCERATED-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-INCARCERATED-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-INCARCERATED-CV
*S** RESET INITIAL FE-INCARCERATED-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN ANY
*S** ASSIGN WWVALLDA.#DATA-MODIFIED = TRUE
*S** WHEN NONE IGNORE
*S** END-DECIDE
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFF258AM-MASK-EDITS
*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
179
180
181
182
183
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFF258AZ
*S*** System: FINANCIER
*S*** Function : This subroutine performs update edits and
*S*** mask processing for the WFF258AM map.
*S***
*S***
*S*** Copyright 1995 - 2024 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #FUNCTION(A1)
*S** PARAMETER USING WWVALLDA /* Valid value PDA
*S***
*S** PARAMETER USING WFFED25D
*S** PARAMETER USING WFFED25R
*S** PARAMETER USING WFFED25S
*S** PARAMETER USING WFAIDYND
*S** PARAMETER USING WFAIDYNR
*S** PARAMETER USING WFAIDYNS
*S***
*S** LOCAL USING WWCONST /* Constants LDA
*S** LOCAL
*S** 01 #PASS-KEY(A30) /* Contains PDA.fieldname identifier
*S** 01 #PASS-TEMP(A30) /* Contains value and returned translation
*S** 01 #TRANSLATION-SRC(A1) /* Contains 'E' if translation located in
*S** /* WW-EXTERNAL file, defaults to ' '
*S** /* ie. translation in WW-DICTIONARY file
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE WFF258AM-MASK-EDITS
*S*************************************************************************
*S** DECIDE ON FIRST VALUE OF #FUNCTION
*S** VALUE LOAD
*S** /*
*S** /* For each maked field on map, load 'shadow' file
*S** RESET WF-FEDERAL-2425-SHADOW-FILE
*S** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFF258AM
*S** /* RESET performed to allow generated subroutines to stow.
*S** VALUE EDIT
*S** /*
*S** /* For each field on map, when modified, call EDIT routine.
*S** RESET #FAIL-EDIT #MARK-FIELD
*S** DECIDE FOR EVERY CONDITION
*S** WHEN FE-C-CHILD-HERO-CV MODIFIED OR
*S** FE-C-CHILD-HERO-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-C-CHILD-HERO'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-C-CHILD-HERO
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-C-CHILD-HERO)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-C-CHILD-HERO-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-C-CHILD-HERO-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-C-CHILD-HERO-CV
*S** RESET INITIAL FE-C-CHILD-HERO-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S***
*S** WHEN AY-N-DUR-CV MODIFIED OR
*S** AY-N-DUR-F
*S** ASSIGN #FILE-FIELD = 'WFAIDYNS.WF-AY-N-DUR'
*S** ASSIGN #VALUE = WFAIDYNS.WF-AY-N-DUR
*S** ASSIGN #FIELD-POS = POS(WFAIDYNS.WF-AY-N-DUR)
*S** ASSIGN #EDIT-MASK = 'Z9'
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN AY-N-DUR-F = TRUE
*S** MOVE HI-LITE-ATTR TO AY-N-DUR-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO AY-N-DUR-CV
*S** RESET INITIAL AY-N-DUR-F
*S** ASSIGN AIDNEED-LOGICAL = TRUE
*S** MOVE #VALUE-TMP TO WFAIDYND.WF-AY-N-DUR
*S** MOVE EDITED WFAIDYND.WF-AY-N-DUR
*S** (EM=Z9) TO
*S** WFAIDYNS.WF-AY-N-DUR
*S** IF #VALU-SUB > 0
*S** MOVE WFAIDYNS.WF-AY-N-DUR TO
*S** WWVALLDA.#VALU(#VALU-SUB)
*S** END-IF
*S** END-IF
*S** WHEN FE-F-DEP-OVR-CV MODIFIED OR
*S** FE-F-DEP-OVR-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-DEP-OVR'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-DEP-OVR
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-DEP-OVR)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-DEP-OVR-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-DEP-OVR-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-DEP-OVR-CV
*S** RESET INITIAL FE-F-DEP-OVR-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-F-IASG-CV MODIFIED OR
*S** FE-F-IASG-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-IASG'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-IASG
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-IASG)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-IASG-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-IASG-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-IASG-CV
*S** RESET INITIAL FE-F-IASG-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-F-LOCK-CV MODIFIED OR
*S** FE-F-LOCK-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-LOCK'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-LOCK
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-LOCK)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-LOCK-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-LOCK-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-LOCK-CV
*S** RESET INITIAL FE-F-LOCK-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-F-PROF-JUDG-CV MODIFIED OR
*S** FE-F-PROF-JUDG-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-F-PROF-JUDG'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-F-PROF-JUDG
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-F-PROF-JUDG)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-F-PROF-JUDG-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-F-PROF-JUDG-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-F-PROF-JUDG-CV
*S** RESET INITIAL FE-F-PROF-JUDG-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN FE-INCARCERATED-CV MODIFIED OR
*S** FE-INCARCERATED-F
*S** ASSIGN #FILE-FIELD = 'WFFED25D.WF-FE-INCARCERATED'
*S** ASSIGN #VALUE = WFFED25D.WF-FE-INCARCERATED
*S** ASSIGN #FIELD-POS = POS(WFFED25D.WF-FE-INCARCERATED)
*S** RESET INITIAL #EDIT-MASK
*S** RESET INITIAL #BLANK-SUB
*S** PERFORM CALL-EDITOR WWVALLDA
*S** IF NOT #VALID-VALUE OR NOT #VALID-MASK
*S** ASSIGN FE-INCARCERATED-F = TRUE
*S** MOVE HI-LITE-ATTR TO FE-INCARCERATED-CV
*S** ELSE
*S** MOVE NORMAL-ATTR TO FE-INCARCERATED-CV
*S** RESET INITIAL FE-INCARCERATED-F
*S** ASSIGN FEDERAL-2425-LOGICAL = TRUE
*S** END-IF
*S** WHEN ANY
*S** ASSIGN WWVALLDA.#DATA-MODIFIED = TRUE
*S** WHEN NONE IGNORE
*S** END-DECIDE
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFF258AM-MASK-EDITS
*S**END
|