\\Mac\Dropbox\WolffPack\intranet_access\Regs\2404-02\old\wfaidndm.txt
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
184
*S*** MAP2: PROTOTYPE
*S*** INPUT USING MAP 'XXXXXXXX'
*S*** ##COMP-NAME ##DISP-AY ##DISP-FAO ##DISP-LIT ##SID ##ST-SPECIAL
*S*** ##ST-STATUS #M1-GAP #M1-OVR #M1-REM #M2-AID #M2-AID-FC #M2-AID-MN
*S*** #M2-AID-PC #M2-AID-SC #M2-GAP #M2-OVR #M2-REM #M3-AID #M3-AID-FC
*S*** #M3-AID-MN #M3-AID-PC #M3-AID-SC #M3-GAP #M3-OVR #M3-REM
*S*** WFAIDYRS.WF-AY-M1-BUDGET WFAIDYRS.WF-AY-M1-FC
*S*** WFAIDYRS.WF-AY-M1-NEED WFAIDYRS.WF-AY-M1-PC WFAIDYRS.WF-AY-M1-SC
*S*** WFAIDYRS.WF-AY-M2-BUDGET WFAIDYRS.WF-AY-M2-FC
*S*** WFAIDYRS.WF-AY-M2-NEED WFAIDYRS.WF-AY-M2-PC WFAIDYRS.WF-AY-M2-SC
*S*** WFAIDYRS.WF-AY-M3-BUDGET WFAIDYRS.WF-AY-M3-FC
*S*** WFAIDYRS.WF-AY-M3-NEED WFAIDYRS.WF-AY-M3-PC WFAIDYRS.WF-AY-M3-SC
*S*** WFAIDYRS.WF-AY-N-DUR-T WFAIDYRS.WF-AY-N-M1 WFAIDYRS.WF-AY-N-M3
*S*** WFAIDYRS.WF-AY-W-AID WFAIDYRS.WF-AY-W-AID-FC
*S*** WFAIDYRS.WF-AY-W-AID-MN WFAIDYRS.WF-AY-W-AID-PC
*S*** WFAIDYRS.WF-AY-W-AID-SC
*S**DEFINE DATA PARAMETER
*S**1 ##COMP-NAME (A035)
*S**1 ##DISP-AY (A007)
*S**1 ##DISP-FAO (A002)
*S**1 ##DISP-LIT (A004)
*S**1 ##SID (A009)
*S**1 ##ST-SPECIAL (A020)
*S**1 ##ST-STATUS (A020)
*S**1 #M1-GAP (A009)
*S**1 #M1-OVR (A009)
*S**1 #M1-REM (A009)
*S**1 #M2-AID (A009)
*S**1 #M2-AID-FC (A009)
*S**1 #M2-AID-MN (A009)
*S**1 #M2-AID-PC (A009)
*S**1 #M2-AID-SC (A009)
*S**1 #M2-GAP (A009)
*S**1 #M2-OVR (A009)
*S**1 #M2-REM (A009)
*S**1 #M3-AID (A009)
*S**1 #M3-AID-FC (A009)
*S**1 #M3-AID-MN (A009)
*S**1 #M3-AID-PC (A009)
*S**1 #M3-AID-SC (A009)
*S**1 #M3-GAP (A009)
*S**1 #M3-OVR (A009)
*S**1 #M3-REM (A009)
*S**1 WFAIDYRS.WF-AY-M1-BUDGET (A007)
*S**1 WFAIDYRS.WF-AY-M1-FC (A010)
*S**1 WFAIDYRS.WF-AY-M1-NEED (A007)
*S**1 WFAIDYRS.WF-AY-M1-PC (A010)
*S**1 WFAIDYRS.WF-AY-M1-SC (A010)
*S**1 WFAIDYRS.WF-AY-M2-BUDGET (A007)
*S**1 WFAIDYRS.WF-AY-M2-FC (A010)
*S**1 WFAIDYRS.WF-AY-M2-NEED (A007)
*S**1 WFAIDYRS.WF-AY-M2-PC (A010)
*S**1 WFAIDYRS.WF-AY-M2-SC (A010)
*S**1 WFAIDYRS.WF-AY-M3-BUDGET (A007)
*S**1 WFAIDYRS.WF-AY-M3-FC (A010)
*S**1 WFAIDYRS.WF-AY-M3-NEED (A007)
*S**1 WFAIDYRS.WF-AY-M3-PC (A010)
*S**1 WFAIDYRS.WF-AY-M3-SC (A010)
*S**1 WFAIDYRS.WF-AY-N-DUR-T (A010)
*S**1 WFAIDYRS.WF-AY-N-M1 (A010)
*S**1 WFAIDYRS.WF-AY-N-M3 (A010)
*S**1 WFAIDYRS.WF-AY-W-AID (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-FC (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-MN (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-PC (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-SC (A009)
*S**END-DEFINE
*S**FORMAT PS=021 LS=079 ZP=OFF SG=OFF KD=ON IP=OFF
*S*** MAP2: MAP PROFILES ***************************** 200***********
*S*** .TOTOTOOOMOA NENEYEYEBLBL4YGR5YREN ^"`+={};!@ 'WWHELPRH',= *
*S*** 023079 N1NNLCN____ X 01 NCST YL 1 *
*S**************************************************************************
*S**INPUT ( IP=OFF HE='WWHELPRH',= /*
*S** )
*S** 001T *DATX (AD=OD EM=MM'/'DD'/'YYYY CD=YE ) /*.01S010 D .
*S** 024T '-'(YE)
*S** 026T ##DISP-AY (AD=ODL CD=YE ) /*.01U007 A007 .
*S** 034T 'Aid/Need Evaluation -'(YE)
*S** 070T *TIMX (AD=OD EM=' 'HH':'II' 'AP CD=YE ) /*.01S009 T .
*S**/
*S**/
*S** 001T 'Student:'(YE)
*S** 011T ##SID (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U009 A009 .
*S** 022T ##COMP-NAME (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U035 A035 .
*S** 059T ##ST-STATUS (AD=ODR CD=GR HE='WWHELPRH',= ) /*.01U020 A020 .
*S**/
*S** 011T ##DISP-LIT (AD=ODL CD=YE ) /*.01U004 A004 .
*S** 018T ##DISP-FAO (AD=ODR CD=GR HE='WWHELPRH',= ) /*.01U002 A002 .
*S** 022T ##ST-SPECIAL (AD=ODL CD=RE HE='WWHELPRH',= ) /*.01U020 A020 .
*S**/
*S**/
*S** 034T WFAIDYRS.WF-AY-N-M1 (AD=ODL CD=YE AL=009 ) /*.01D009 A010 .
*S** 049T WFAIDYRS.WF-AY-N-DUR-T (AD=ODL CD=YE AL=008 ) /*.01D008 A010 .
*S** 064T WFAIDYRS.WF-AY-N-M3 (AD=ODL CD=YE AL=008 ) /*.01D008 A010 .
*S**/
*S** 004T 'Budget:'(BL)
*S** 034T WFAIDYRS.WF-AY-M1-BUDGET (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D007 A007 .
*S** 049T WFAIDYRS.WF-AY-M2-BUDGET (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D007 A007 .
*S** 064T WFAIDYRS.WF-AY-M3-BUDGET (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D007 A007 .
*S**/
*S** 004T 'EFC:'(BL)
*S** 031T WFAIDYRS.WF-AY-M1-FC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D010 A010 .
*S** 046T WFAIDYRS.WF-AY-M2-FC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D010 A010 .
*S** 061T WFAIDYRS.WF-AY-M3-FC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D010 A010 .
*S**/
*S** 005T 'SC:'(NE)
*S** 033T WFAIDYRS.WF-AY-M1-SC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D010 A010 .
*S** 048T WFAIDYRS.WF-AY-M2-SC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U010 A010 .
*S** 063T WFAIDYRS.WF-AY-M3-SC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U010 A010 .
*S**/
*S** 005T 'PC:'(NE)
*S** 033T WFAIDYRS.WF-AY-M1-PC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D010 A010 .
*S** 048T WFAIDYRS.WF-AY-M2-PC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U010 A010 .
*S** 063T WFAIDYRS.WF-AY-M3-PC (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U010 A010 .
*S**/
*S** 004T 'Need:'(BL)
*S** 034T WFAIDYRS.WF-AY-M1-NEED (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D007 A007 .
*S** 049T WFAIDYRS.WF-AY-M2-NEED (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D007 A007 .
*S** 064T WFAIDYRS.WF-AY-M3-NEED (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01D007 A007 .
*S**/
*S** 004T 'Aid:'(BL)
*S** 034T WFAIDYRS.WF-AY-W-AID (AD=ODL CD=GR AL=006 HE='WWHELPRH',= ) /*.01D006 A009 .
*S** 049T #M2-AID (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID ' )
*S** 064T #M3-AID (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID ' )
*S**/
*S** 005T 'Meets need:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-MN (AD=ODL CD=GR AL=006 HE='WWHELPRH',= ) /*.01D006 A009 .
*S** 051T #M2-AID-MN (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-MN ' )
*S** 066T #M3-AID-MN (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-MN ' )
*S**/
*S** 005T 'Replaces SC:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-SC (AD=ODL CD=GR AL=006 HE='WWHELPRH',= ) /*.01D006 A009 .
*S** 051T #M2-AID-SC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-SC ' )
*S** 066T #M3-AID-SC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-SC ' )
*S**/
*S** 005T 'Replaces PC:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-PC (AD=ODL CD=GR AL=006 HE='WWHELPRH',= ) /*.01D006 A009 .
*S** 051T #M2-AID-PC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-PC ' )
*S** 066T #M3-AID-PC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-PC ' )
*S**/
*S** 005T 'Replaces SC or PC:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-FC (AD=ODL CD=GR AL=006 HE='WWHELPRH',= ) /*.01D006 A009 .
*S** 051T #M2-AID-FC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-FC ' )
*S** 066T #M3-AID-FC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-FC ' )
*S**/
*S**/
*S** 004T 'Aid/Need gap:'(BL)
*S** 034T #M1-GAP (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-GAP ' )
*S** 049T #M2-GAP (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-GAP ' )
*S** 064T #M3-GAP (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-GAP ' )
*S**/
*S** 004T 'Remaining eligibility:'(BL)
*S** 034T #M1-REM (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-REM ' )
*S** 049T #M2-REM (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-REM ' )
*S** 064T #M3-REM (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-REM ' )
*S**/
*S** 004T 'Overaward:'(BL)
*S** 034T #M1-OVR (AD=ODL CD=RE AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-OVR ' )
*S** 049T #M2-OVR (AD=ODL CD=RE AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-OVR ' )
*S** 064T #M3-OVR (AD=ODL CD=RE AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-OVR ' )
*S**/
*S*** MAP2: VALIDATION *****************************************************
*S*** MAP2: END OF MAP *****************************************************
*S**END
\\Mac\Dropbox\WolffPack\intranet_access\Regs\2404-02\new\wfaidndm.txt
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
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
*S*** MAP2: PROTOTYPE --- CREATED BY UNIX 8.3.4 ---
*S*** INPUT USING MAP 'XXXXXXXX'
*S*** ##COMP-NAME ##DISP-AY ##DISP-FAO ##DISP-LIT ##SID ##ST-SPECIAL
*S*** ##ST-STATUS #CONTRIB-LIT #CONTRIB-LIT-CV #M1-GAP #M1-OVR #M1-REM
*S*** #M2-AID #M2-AID-FC #M2-AID-MN #M2-AID-PC #M2-AID-SC #M2-GAP #M2-OVR
*S*** #M2-REM #M3-AID #M3-AID-FC #M3-AID-MN #M3-AID-PC #M3-AID-SC #M3-GAP
*S*** #M3-OVR #M3-REM WFAIDYRS.WF-AY-M1-BUDGET WFAIDYRS.WF-AY-M1-FC
*S*** WFAIDYRS.WF-AY-M1-NEED WFAIDYRS.WF-AY-M1-PC WFAIDYRS.WF-AY-M1-SC
*S*** WFAIDYRS.WF-AY-M2-BUDGET WFAIDYRS.WF-AY-M2-FC
*S*** WFAIDYRS.WF-AY-M2-NEED WFAIDYRS.WF-AY-M2-PC WFAIDYRS.WF-AY-M2-SC
*S*** WFAIDYRS.WF-AY-M3-BUDGET WFAIDYRS.WF-AY-M3-FC
*S*** WFAIDYRS.WF-AY-M3-NEED WFAIDYRS.WF-AY-M3-PC WFAIDYRS.WF-AY-M3-SC
*S*** WFAIDYRS.WF-AY-N-DUR-T WFAIDYRS.WF-AY-N-M1 WFAIDYRS.WF-AY-N-M3
*S*** WFAIDYRS.WF-AY-W-AID WFAIDYRS.WF-AY-W-AID-FC
*S*** WFAIDYRS.WF-AY-W-AID-MN WFAIDYRS.WF-AY-W-AID-PC
*S*** WFAIDYRS.WF-AY-W-AID-SC
*S**DEFINE DATA PARAMETER
*S**1 ##COMP-NAME (A035)
*S**1 ##DISP-AY (A007)
*S**1 ##DISP-FAO (A002)
*S**1 ##DISP-LIT (A004)
*S**1 ##SID (A009)
*S**1 ##ST-SPECIAL (A020)
*S**1 ##ST-STATUS (A020)
*S**1 #CONTRIB-LIT (A004)
*S**1 #CONTRIB-LIT-CV (C)
*S**1 #M1-GAP (A009)
*S**1 #M1-OVR (A009)
*S**1 #M1-REM (A009)
*S**1 #M2-AID (A009)
*S**1 #M2-AID-FC (A009)
*S**1 #M2-AID-MN (A009)
*S**1 #M2-AID-PC (A009)
*S**1 #M2-AID-SC (A009)
*S**1 #M2-GAP (A009)
*S**1 #M2-OVR (A009)
*S**1 #M2-REM (A009)
*S**1 #M3-AID (A009)
*S**1 #M3-AID-FC (A009)
*S**1 #M3-AID-MN (A009)
*S**1 #M3-AID-PC (A009)
*S**1 #M3-AID-SC (A009)
*S**1 #M3-GAP (A009)
*S**1 #M3-OVR (A009)
*S**1 #M3-REM (A009)
*S**1 WFAIDYRS.WF-AY-M1-BUDGET (A007)
*S**1 WFAIDYRS.WF-AY-M1-FC (A010)
*S**1 WFAIDYRS.WF-AY-M1-NEED (A007)
*S**1 WFAIDYRS.WF-AY-M1-PC (A010)
*S**1 WFAIDYRS.WF-AY-M1-SC (A010)
*S**1 WFAIDYRS.WF-AY-M2-BUDGET (A007)
*S**1 WFAIDYRS.WF-AY-M2-FC (A010)
*S**1 WFAIDYRS.WF-AY-M2-NEED (A007)
*S**1 WFAIDYRS.WF-AY-M2-PC (A010)
*S**1 WFAIDYRS.WF-AY-M2-SC (A010)
*S**1 WFAIDYRS.WF-AY-M3-BUDGET (A007)
*S**1 WFAIDYRS.WF-AY-M3-FC (A010)
*S**1 WFAIDYRS.WF-AY-M3-NEED (A007)
*S**1 WFAIDYRS.WF-AY-M3-PC (A010)
*S**1 WFAIDYRS.WF-AY-M3-SC (A010)
*S**1 WFAIDYRS.WF-AY-N-DUR-T (A010)
*S**1 WFAIDYRS.WF-AY-N-M1 (A010)
*S**1 WFAIDYRS.WF-AY-N-M3 (A010)
*S**1 WFAIDYRS.WF-AY-W-AID (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-FC (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-MN (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-PC (A009)
*S**1 WFAIDYRS.WF-AY-W-AID-SC (A009)
*S**END-DEFINE
*S**FORMAT PS=021 LS=080 ZP=OFF SG=OFF KD=ON IP=OFF
*S*** MAP2: MAP PROFILES ***************************** 200***********
*S*** .TOTOTOOOMOA NENEYEYEBLBL4YGR5YREN ^"`+={};!@ 'WWHELPRH',= *
*S*** 023080 N1NNLCN____ X 01 NCST YL 1 *
*S**************************************************************************
*S**INPUT ( IP=OFF HE='WWHELPRH',= /*
*S** )
*S** 001T *DATX (AD=OD EM=MM'/'DD'/'YYYY ) /*.01S010 D .
*S** 024T '-'(YE)
*S** 026T ##DISP-AY (AD=ODL CD=YE ) /*.01U007 A007 .
*S** 034T 'Aid/Need Evaluation -'(YE)
*S** 070T *TIMX (AD=OD EM=' 'HH':'II' 'AP CD=YE ) /*.01S009 T .
*S**/
*S**/
*S** 001T 'Student:'(YE)
*S** 011T ##SID (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U009 A009 .
*S** 022T ##COMP-NAME (AD=ODL CD=GR HE='WWHELPRH',= ) /*.01U035 A035 .
*S** 059T ##ST-STATUS (AD=ODR CD=GR HE='WWHELPRH',= ) /*.01U020 A020 .
*S**/
*S** 011T ##DISP-LIT (AD=ODL CD=YE ) /*.01U004 A004 .
*S** 018T ##DISP-FAO (AD=ODR CD=GR HE='WWHELPRH',= ) /*.01U002 A002 .
*S** 022T ##ST-SPECIAL (AD=ODL CD=RE HE='WWHELPRH',= ) /*.01U020 A020 .
*S**/
*S**/
*S** 034T WFAIDYRS.WF-AY-N-M1 (AD=ODL CD=YE AL=009 ) /*.01D009 A010 .
*S** 049T WFAIDYRS.WF-AY-N-DUR-T (AD=ODL CD=YE AL=008 ) /*.01D008 A010 .
*S** 064T WFAIDYRS.WF-AY-N-M3 (AD=ODL CD=YE AL=008 ) /*.01D008 A010 .
*S**/
*S** 004T 'Budget:'(BL)
*S** 034T WFAIDYRS.WF-AY-M1-BUDGET (AD=ODL CD=GR /*.01D007 A007 .
*S** HE='WWHELPRH',= )
*S** 049T WFAIDYRS.WF-AY-M2-BUDGET (AD=ODL CD=GR /*.01D007 A007 .
*S** HE='WWHELPRH',= )
*S** 064T WFAIDYRS.WF-AY-M3-BUDGET (AD=ODL CD=GR /*.01D007 A007 .
*S** HE='WWHELPRH',= )
*S**/
*S** 004T #CONTRIB-LIT (AD=WHFMYL' ' CD=BL /*.99D004 A004 .
*S** CV=#CONTRIB-LIT-CV )
*S** 031T WFAIDYRS.WF-AY-M1-FC (AD=ODL CD=GR /*.01D010 A010 .
*S** HE='WWHELPRH',= )
*S** 046T WFAIDYRS.WF-AY-M2-FC (AD=ODL CD=GR /*.01D010 A010 .
*S** HE='WWHELPRH',= )
*S** 061T WFAIDYRS.WF-AY-M3-FC (AD=ODL CD=GR /*.01D010 A010 .
*S** HE='WWHELPRH',= )
*S**/
*S** 005T 'SC:'(NE)
*S** 033T WFAIDYRS.WF-AY-M1-SC (AD=ODL CD=GR /*.01D010 A010 .
*S** HE='WWHELPRH',= )
*S** 048T WFAIDYRS.WF-AY-M2-SC (AD=ODL CD=GR /*.01U010 A010 .
*S** HE='WWHELPRH',= )
*S** 063T WFAIDYRS.WF-AY-M3-SC (AD=ODL CD=GR /*.01U010 A010 .
*S** HE='WWHELPRH',= )
*S**/
*S** 005T 'PC:'(NE)
*S** 033T WFAIDYRS.WF-AY-M1-PC (AD=ODL CD=GR /*.01D010 A010 .
*S** HE='WWHELPRH',= )
*S** 048T WFAIDYRS.WF-AY-M2-PC (AD=ODL CD=GR /*.01U010 A010 .
*S** HE='WWHELPRH',= )
*S** 063T WFAIDYRS.WF-AY-M3-PC (AD=ODL CD=GR /*.01U010 A010 .
*S** HE='WWHELPRH',= )
*S**/
*S** 004T 'Need:'(BL)
*S** 034T WFAIDYRS.WF-AY-M1-NEED (AD=ODL CD=GR /*.01D007 A007 .
*S** HE='WWHELPRH',= )
*S** 049T WFAIDYRS.WF-AY-M2-NEED (AD=ODL CD=GR /*.01D007 A007 .
*S** HE='WWHELPRH',= )
*S** 064T WFAIDYRS.WF-AY-M3-NEED (AD=ODL CD=GR /*.01D007 A007 .
*S** HE='WWHELPRH',= )
*S**/
*S** 004T 'Aid:'(BL)
*S** 034T WFAIDYRS.WF-AY-W-AID (AD=ODL CD=GR AL=006 /*.01D006 A009 .
*S** HE='WWHELPRH',= )
*S** 049T #M2-AID (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID ' )
*S** 064T #M3-AID (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID ' )
*S**/
*S** 005T 'Meets need:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-MN (AD=ODL CD=GR AL=006 /*.01D006 A009 .
*S** HE='WWHELPRH',= )
*S** 051T #M2-AID-MN (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-MN ' )
*S** 066T #M3-AID-MN (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-MN ' )
*S**/
*S** 005T 'Replaces SC:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-SC (AD=ODL CD=GR AL=006 /*.01D006 A009 .
*S** HE='WWHELPRH',= )
*S** 051T #M2-AID-SC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-SC ' )
*S** 066T #M3-AID-SC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-SC ' )
*S**/
*S** 005T 'Replaces PC:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-PC (AD=ODL CD=GR AL=006 /*.01D006 A009 .
*S** HE='WWHELPRH',= )
*S** 051T #M2-AID-PC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-PC ' )
*S** 066T #M3-AID-PC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-PC ' )
*S**/
*S** 005T 'Replaces SC or PC:'(NE)
*S** 036T WFAIDYRS.WF-AY-W-AID-FC (AD=ODL CD=GR AL=006 /*.01D006 A009 .
*S** HE='WWHELPRH',= )
*S** 051T #M2-AID-FC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-FC ' )
*S** 066T #M3-AID-FC (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WFAIDYRD.WF-AY-W-AID-FC ' )
*S**/
*S**/
*S** 004T 'Aid/Need gap:'(BL)
*S** 034T #M1-GAP (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-GAP ' )
*S** 049T #M2-GAP (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-GAP ' )
*S** 064T #M3-GAP (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-GAP ' )
*S**/
*S** 004T 'Remaining eligibility:'(BL)
*S** 034T #M1-REM (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-REM ' )
*S** 049T #M2-REM (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-REM ' )
*S** 064T #M3-REM (AD=ODL CD=GR AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-REM ' )
*S**/
*S** 004T 'Overaward:'(BL)
*S** 034T #M1-OVR (AD=ODL CD=RE AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-OVR ' )
*S** 049T #M2-OVR (AD=ODL CD=RE AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-OVR ' )
*S** 064T #M3-OVR (AD=ODL CD=RE AL=006 /*.01U006 A009 .
*S** HE='WWHELRRH','WWSYSVRD.WF-PGM-AWD-OVR ' )
*S**/
*S*** MAP2: VALIDATION *****************************************************
*S*** MAP2: END OF MAP *****************************************************
*S**END
16 differences: 52 lines, 101 inline differences in 50 changed lines
Added(2,48)
Deleted(0,28)
Changed(50)
Changed in changed(25)