\\Mac\Home\Desktop\2406-04\old\wffpackm.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
*S*** MAP2: PROTOTYPE --- CREATED BY UNIX 6.2.5 ---
*S*** INPUT USING MAP 'XXXXXXXX'
*S*** FP-AW-ACTION-CV FP-DOC-EXCLUDE-CV FP-DOC-STAT-1-CV FP-DOC-STAT-2-CV
*S*** FP-DOC-STAT-3-CV FP-DOC-STAT-4-CV FP-DOC-STAT-5-CV FP-DOCUMENT-CV
*S*** FP-EFC-CHECK-CV FP-FUND-CATEGORY-CV FP-MAX-EFC-CV FP-MIN-EFC-CV
*S*** FP-PELL-ELIGIBLE-CV FP-PELL-LEU-TIM-CV FP-PELL-MAX-LEU-CV
*S*** FP-PELL-MIN-LEU-CV FP-RECVD-DATE-CV WFFPACKD.WF-FP-AW-ACTION
*S*** WFFPACKD.WF-FP-DOC-EXCLUDE WFFPACKD.WF-FP-DOC-STAT-1
*S*** WFFPACKD.WF-FP-DOC-STAT-2 WFFPACKD.WF-FP-DOC-STAT-3
*S*** WFFPACKD.WF-FP-DOC-STAT-4 WFFPACKD.WF-FP-DOC-STAT-5
*S*** WFFPACKD.WF-FP-DOCUMENT WFFPACKD.WF-FP-EFC-CHECK
*S*** WFFPACKD.WF-FP-FUND-CATEGORY WFFPACKD.WF-FP-PELL-ELIGIBLE
*S*** WFFPACKD.WF-FP-PELL-LEU-TIM WFFPACKS.WF-FP-MAX-EFC
*S*** WFFPACKS.WF-FP-MIN-EFC WFFPACKS.WF-FP-PELL-MAX-LEU
*S*** WFFPACKS.WF-FP-PELL-MIN-LEU WFFPACKS.WF-FP-RECVD-DATE
*S*** WFFUNDSS.WF-FU-PGM-AWARD WFFUNDSS.WF-FU-SRC WFFUNDSS.WF-FU-TYPE
*S**DEFINE DATA PARAMETER
*S**1 FP-AW-ACTION-CV (C)
*S**1 FP-DOC-EXCLUDE-CV (C)
*S**1 FP-DOC-STAT-1-CV (C)
*S**1 FP-DOC-STAT-2-CV (C)
*S**1 FP-DOC-STAT-3-CV (C)
*S**1 FP-DOC-STAT-4-CV (C)
*S**1 FP-DOC-STAT-5-CV (C)
*S**1 FP-DOCUMENT-CV (C)
*S**1 FP-EFC-CHECK-CV (C)
*S**1 FP-FUND-CATEGORY-CV (C)
*S**1 FP-MAX-EFC-CV (C)
*S**1 FP-MIN-EFC-CV (C)
*S**1 FP-PELL-ELIGIBLE-CV (C)
*S**1 FP-PELL-LEU-TIM-CV (C)
*S**1 FP-PELL-MAX-LEU-CV (C)
*S**1 FP-PELL-MIN-LEU-CV (C)
*S**1 FP-RECVD-DATE-CV (C)
*S**1 WFFPACKD.WF-FP-AW-ACTION (A002)
*S**1 WFFPACKD.WF-FP-DOC-EXCLUDE (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-1 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-2 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-3 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-4 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-5 (A001)
*S**1 WFFPACKD.WF-FP-DOCUMENT (A006)
*S**1 WFFPACKD.WF-FP-EFC-CHECK (A001)
*S**1 WFFPACKD.WF-FP-FUND-CATEGORY (A009)
*S**1 WFFPACKD.WF-FP-PELL-ELIGIBLE (A001)
*S**1 WFFPACKD.WF-FP-PELL-LEU-TIM (A001)
*S**1 WFFPACKS.WF-FP-MAX-EFC (A005)
*S**1 WFFPACKS.WF-FP-MIN-EFC (A005)
*S**1 WFFPACKS.WF-FP-PELL-MAX-LEU (A004)
*S**1 WFFPACKS.WF-FP-PELL-MIN-LEU (A004)
*S**1 WFFPACKS.WF-FP-RECVD-DATE (A010)
*S**1 WFFUNDSS.WF-FU-PGM-AWARD (A020)
*S**1 WFFUNDSS.WF-FU-SRC (A020)
*S**1 WFFUNDSS.WF-FU-TYPE (A020)
*S**END-DEFINE
*S**FORMAT PS=013 LS=074 ZP=OFF SG=OFF KD=ON IP=OFF
*S*** MAP2: MAP PROFILES ***************************** 200***********
*S*** .TOTOTOOOMOA NENEYEYEBLBL4YGR5YREN ^"`+={};!@ 'WWHELPRH',= *
*S*** 015074 N1NNLCN____ X 01 NCST YL 1 *
*S**************************************************************************
*S**INPUT ( IP=OFF HE='WWHELPRH',= /*
*S** )
*S** 002T WFFUNDSS.WF-FU-PGM-AWARD (AD=ODL CD=GR /*.01U020 A020 .
*S** HE='WWHELPRH',= )
*S**/
*S** 004T 'Aid Source:'(NE)
*S** 016T WFFUNDSS.WF-FU-SRC (AD=ODL CD=GR /*.01U020 A020 .
*S** HE='WWHELPRH',= )
*S**/
*S** 004T 'Aid Type:'(NE)
*S** 016T WFFUNDSS.WF-FU-TYPE (AD=OD CD=GR AL=005 /*.01U005 A020 .
*S** HE='WWHELPRH',= )
*S**/
*S**/
*S** 003T '------Selection Criteria------'(BL)
*S** 040T '--------Calculation Logic-------'(BL)
*S**/
*S** 003T 'CPS Received Date:'(NE)
*S** 023T WFFPACKS.WF-FP-RECVD-DATE (AD=MYLT'_' CD=TU /*.99D010 A010 .
*S** CV=FP-RECVD-DATE-CV HE='WWHELPRH',= )
*S** 040T 'Category:'(NE)
*S** 063T WFFPACKD.WF-FP-FUND-CATEGORY (AD=MYLT'_' CD=TU /*.99D009 A009 .
*S** CV=FP-FUND-CATEGORY-CV HE='WWHELP9H',= )
*S**/
*S** 003T 'Pell eligible:'(NE)
*S** 032T WFFPACKD.WF-FP-PELL-ELIGIBLE (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-PELL-ELIGIBLE-CV HE='WWHELP1H',= )
*S**/
*S** 003T 'EFC check:'(NE)
*S** 032T WFFPACKD.WF-FP-EFC-CHECK (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-EFC-CHECK-CV HE='WWHELP1H',= )
*S** 040T 'Estimated Pell LEU Minimum:'(NE)
*S** 068T WFFPACKS.WF-FP-PELL-MIN-LEU (AD=MYLT'_' CD=TU /*.99D004 A004 .
*S** CV=FP-PELL-MIN-LEU-CV HE='WWHELPRH',= )
*S**/
*S** 005T 'Minimum EFC:'(NE)
*S** 028T WFFPACKS.WF-FP-MIN-EFC (AD=MYLT'_' CD=TU /*.99U005 A005 .
*S** CV=FP-MIN-EFC-CV HE='WWHELPRH',= )
*S** 055T 'LEU Maximum:'(NE)
*S** 068T WFFPACKS.WF-FP-PELL-MAX-LEU (AD=MYLT'_' CD=TU /*.99D004 A004 .
*S** CV=FP-PELL-MAX-LEU-CV HE='WWHELPRH',= )
*S**/
*S** 005T 'Maximum EFC:'(NE)
*S** 028T WFFPACKS.WF-FP-MAX-EFC (AD=MYLT'_' CD=TU /*.99U005 A005 .
*S** CV=FP-MAX-EFC-CV HE='WWHELPRH',= )
*S** 055T 'Time Status:'(NE)
*S** 071T WFFPACKD.WF-FP-PELL-LEU-TIM (AD=TMYL'_' CD=TU /*.99D001 A001 .
*S** CV=FP-PELL-LEU-TIM-CV HE='WWHELP1H',= )
*S**/
*S** 003T 'Document Check:'(NE)
*S** 027T WFFPACKD.WF-FP-DOCUMENT (AD=MYLT'_' CD=TU /*.99D006 A006 .
*S** CV=FP-DOCUMENT-CV HE='WWHELP6H',= )
*S**/
*S** 005T 'Statuses:'(NE)
*S** 024T WFFPACKD.WF-FP-DOC-STAT-1 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-1-CV HE='WWHELP1H',= )
*S** 026T WFFPACKD.WF-FP-DOC-STAT-2 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-2-CV HE='WWHELP1H',= )
*S** 028T WFFPACKD.WF-FP-DOC-STAT-3 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-3-CV HE='WWHELP1H',= )
*S** 030T WFFPACKD.WF-FP-DOC-STAT-4 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-4-CV HE='WWHELP1H',= )
*S** 032T WFFPACKD.WF-FP-DOC-STAT-5 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-5-CV HE='WWHELP1H',= )
*S** 040T 'Award action:'(NE)
*S** 070T WFFPACKD.WF-FP-AW-ACTION (AD=MYL'_' CD=TU /*.99U002 A002 .
*S** CV=FP-AW-ACTION-CV HE='WWHELP2H',= )
*S**/
*S** 005T 'Exclude:'(NE)
*S** 032T WFFPACKD.WF-FP-DOC-EXCLUDE (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-EXCLUDE-CV HE='WWHELP1H',= )
*S*** MAP2: VALIDATION *****************************************************
*S*** MAP2: END OF MAP *****************************************************
*S**END
\\Mac\Home\Desktop\2406-04\new\wffpackm.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
*S*** MAP2: PROTOTYPE --- CREATED BY UNIX 8.3.4 ---
*S*** INPUT USING MAP 'XXXXXXXX'
*S*** #MAX-PELL-TYPE #MIN-PELL-TYPE #PELL-TYPE FP-AW-ACTION-CV
*S*** FP-DOC-EXCLUDE-CV FP-DOC-STAT-1-CV FP-DOC-STAT-2-CV
*S*** FP-DOC-STAT-3-CV FP-DOC-STAT-4-CV FP-DOC-STAT-5-CV FP-DOCUMENT-CV
*S*** FP-EFC-CHECK-CV FP-FUND-CATEGORY-CV FP-MAX-EFC-CV FP-MIN-EFC-CV
*S*** FP-PELL-ELIGIBLE-CV FP-PELL-LEU-TIM-CV FP-PELL-MAX-LEU-CV
*S*** FP-PELL-MIN-LEU-CV FP-RECVD-DATE-CV WFFPACKD.WF-FP-AW-ACTION
*S*** WFFPACKD.WF-FP-DOC-EXCLUDE WFFPACKD.WF-FP-DOC-STAT-1
*S*** WFFPACKD.WF-FP-DOC-STAT-2 WFFPACKD.WF-FP-DOC-STAT-3
*S*** WFFPACKD.WF-FP-DOC-STAT-4 WFFPACKD.WF-FP-DOC-STAT-5
*S*** WFFPACKD.WF-FP-DOCUMENT WFFPACKD.WF-FP-EFC-CHECK
*S*** WFFPACKD.WF-FP-FUND-CATEGORY WFFPACKD.WF-FP-PELL-ELIGIBLE
*S*** WFFPACKD.WF-FP-PELL-LEU-TIM WFFPACKS.WF-FP-MAX-EFC
*S*** WFFPACKS.WF-FP-MIN-EFC WFFPACKS.WF-FP-PELL-MAX-LEU
*S*** WFFPACKS.WF-FP-PELL-MIN-LEU WFFPACKS.WF-FP-RECVD-DATE
*S*** WFFUNDSS.WF-FU-PGM-AWARD WFFUNDSS.WF-FU-SRC WFFUNDSS.WF-FU-TYPE
*S**DEFINE DATA PARAMETER
*S**1 #MAX-PELL-TYPE (A012)
*S**1 #MIN-PELL-TYPE (A012)
*S**1 #PELL-TYPE (A010)
*S**1 FP-AW-ACTION-CV (C)
*S**1 FP-DOC-EXCLUDE-CV (C)
*S**1 FP-DOC-STAT-1-CV (C)
*S**1 FP-DOC-STAT-2-CV (C)
*S**1 FP-DOC-STAT-3-CV (C)
*S**1 FP-DOC-STAT-4-CV (C)
*S**1 FP-DOC-STAT-5-CV (C)
*S**1 FP-DOCUMENT-CV (C)
*S**1 FP-EFC-CHECK-CV (C)
*S**1 FP-FUND-CATEGORY-CV (C)
*S**1 FP-MAX-EFC-CV (C)
*S**1 FP-MIN-EFC-CV (C)
*S**1 FP-PELL-ELIGIBLE-CV (C)
*S**1 FP-PELL-LEU-TIM-CV (C)
*S**1 FP-PELL-MAX-LEU-CV (C)
*S**1 FP-PELL-MIN-LEU-CV (C)
*S**1 FP-RECVD-DATE-CV (C)
*S**1 WFFPACKD.WF-FP-AW-ACTION (A002)
*S**1 WFFPACKD.WF-FP-DOC-EXCLUDE (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-1 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-2 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-3 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-4 (A001)
*S**1 WFFPACKD.WF-FP-DOC-STAT-5 (A001)
*S**1 WFFPACKD.WF-FP-DOCUMENT (A006)
*S**1 WFFPACKD.WF-FP-EFC-CHECK (A001)
*S**1 WFFPACKD.WF-FP-FUND-CATEGORY (A009)
*S**1 WFFPACKD.WF-FP-PELL-ELIGIBLE (A001)
*S**1 WFFPACKD.WF-FP-PELL-LEU-TIM (A001)
*S**1 WFFPACKS.WF-FP-MAX-EFC (A005)
*S**1 WFFPACKS.WF-FP-MIN-EFC (A005)
*S**1 WFFPACKS.WF-FP-PELL-MAX-LEU (A004)
*S**1 WFFPACKS.WF-FP-PELL-MIN-LEU (A004)
*S**1 WFFPACKS.WF-FP-RECVD-DATE (A010)
*S**1 WFFUNDSS.WF-FU-PGM-AWARD (A020)
*S**1 WFFUNDSS.WF-FU-SRC (A020)
*S**1 WFFUNDSS.WF-FU-TYPE (A020)
*S**END-DEFINE
*S**FORMAT PS=013 LS=074 ZP=OFF SG=OFF KD=ON IP=OFF
*S*** MAP2: MAP PROFILES ***************************** 200***********
*S*** .TOTOTOOOMOA NENEYEYEBLBL4YGR5YREN ^"`+={};!@ 'WWHELPRH',= *
*S*** 015074 N1NNLCN____ X 01 NCST YL 1 *
*S**************************************************************************
*S**INPUT ( IP=OFF HE='WWHELPRH',= /*
*S** )
*S** 002T WFFUNDSS.WF-FU-PGM-AWARD (AD=ODL CD=GR /*.01U020 A020 .
*S** HE='WWHELPRH',= )
*S**/
*S** 004T 'Aid Source:'(NE)
*S** 016T WFFUNDSS.WF-FU-SRC (AD=ODL CD=GR /*.01U020 A020 .
*S** HE='WWHELPRH',= )
*S**/
*S** 004T 'Aid Type:'(NE)
*S** 016T WFFUNDSS.WF-FU-TYPE (AD=OD CD=GR AL=005 /*.01U005 A020 .
*S** HE='WWHELPRH',= )
*S**/
*S**/
*S** 003T '------Selection Criteria------'(BL)
*S** 040T '--------Calculation Logic-------'(BL)
*S**/
*S** 003T 'CPS Received Date:'(NE)
*S** 023T WFFPACKS.WF-FP-RECVD-DATE (AD=MYLT'_' CD=TU /*.99D010 A010 .
*S** CV=FP-RECVD-DATE-CV HE='WWHELPRH',= )
*S** 040T 'Category:'(NE)
*S** 063T WFFPACKD.WF-FP-FUND-CATEGORY (AD=MYLT'_' CD=TU /*.99D009 A009 .
*S** CV=FP-FUND-CATEGORY-CV HE='WWHELP9H',= )
*S**/
*S** 003T 'Pell eligible:'(NE)
*S** 032T WFFPACKD.WF-FP-PELL-ELIGIBLE (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-PELL-ELIGIBLE-CV HE='WWHELP1H',= )
*S**/
*S** 003T #PELL-TYPE (AD=DO CD=NE ) /*.99U010 A010 .
*S** 032T WFFPACKD.WF-FP-EFC-CHECK (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-EFC-CHECK-CV HE='WWHELP1H',= )
*S** 040T 'Estimated Pell LEU Minimum:'(NE)
*S** 068T WFFPACKS.WF-FP-PELL-MIN-LEU (AD=MYLT'_' CD=TU /*.99D004 A004 .
*S** CV=FP-PELL-MIN-LEU-CV HE='WWHELPRH',= )
*S**/
*S** 005T #MIN-PELL-TYPE (AD=DLO CD=NE ) /*.99U012 A012 .
*S** 028T WFFPACKS.WF-FP-MIN-EFC (AD=MYLT'_' CD=TU /*.99U005 A005 .
*S** CV=FP-MIN-EFC-CV HE='WWHELPRH',= )
*S** 055T 'LEU Maximum:'(NE)
*S** 068T WFFPACKS.WF-FP-PELL-MAX-LEU (AD=MYLT'_' CD=TU /*.99D004 A004 .
*S** CV=FP-PELL-MAX-LEU-CV HE='WWHELPRH',= )
*S**/
*S** 005T #MAX-PELL-TYPE (AD=DLMFHW'_' CD=NE ) /*.99U012 A012 .
*S** 028T WFFPACKS.WF-FP-MAX-EFC (AD=MYLT'_' CD=TU /*.99U005 A005 .
*S** CV=FP-MAX-EFC-CV HE='WWHELPRH',= )
*S** 055T 'Time Status:'(NE)
*S** 071T WFFPACKD.WF-FP-PELL-LEU-TIM (AD=TMYL'_' CD=TU /*.99D001 A001 .
*S** CV=FP-PELL-LEU-TIM-CV HE='WWHELP1H',= )
*S**/
*S** 003T 'Document Check:'(NE)
*S** 027T WFFPACKD.WF-FP-DOCUMENT (AD=MYLT'_' CD=TU /*.99D006 A006 .
*S** CV=FP-DOCUMENT-CV HE='WWHELP6H',= )
*S**/
*S** 005T 'Statuses:'(NE)
*S** 024T WFFPACKD.WF-FP-DOC-STAT-1 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-1-CV HE='WWHELP1H',= )
*S** 026T WFFPACKD.WF-FP-DOC-STAT-2 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-2-CV HE='WWHELP1H',= )
*S** 028T WFFPACKD.WF-FP-DOC-STAT-3 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-3-CV HE='WWHELP1H',= )
*S** 030T WFFPACKD.WF-FP-DOC-STAT-4 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-4-CV HE='WWHELP1H',= )
*S** 032T WFFPACKD.WF-FP-DOC-STAT-5 (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-STAT-5-CV HE='WWHELP1H',= )
*S** 040T 'Award action:'(NE)
*S** 070T WFFPACKD.WF-FP-AW-ACTION (AD=MYL'_' CD=TU /*.99U002 A002 .
*S** CV=FP-AW-ACTION-CV HE='WWHELP2H',= )
*S**/
*S** 005T 'Exclude:'(NE)
*S** 032T WFFPACKD.WF-FP-DOC-EXCLUDE (AD=MYLT'_' CD=TU /*.99D001 A001 .
*S** CV=FP-DOC-EXCLUDE-CV HE='WWHELP1H',= )
*S*** MAP2: VALIDATION *****************************************************
*S*** MAP2: END OF MAP *****************************************************
*S**END
6 differences: 9 lines, 26 inline differences in 6 changed lines
Added(3,16)
Deleted(0,4)
Changed(6)
Changed in changed(6)