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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Program : WFPELIMB
*S*** System : FINANCIER
*S*** Title : Pell Import
*S*** Function : This program loads the Pell table from a CSV file.
*S***
*S***
*S*** Copyright 1995 - 2011 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S***
*S** LOCAL USING WWREQIBD /* Input parameter PDA
*S** LOCAL USING WWAOBJ
*S***
*S** LOCAL USING WWCONST
*S***
*S** LOCAL
*S** 01 #FETCH-PROGRAM(A8)
*S** 01 #AID-YEAR-N(N4)
*S** 01 #DELETE-COUNTER(P5)
*S** 01 #READ-COUNTER(P5)
*S** 01 #WRITE-COUNTER(P5)
*S** 01 #ET-READ-COUNTER(P5)
*S** 01 #MAX-READ-COUNTER(P5) INIT<100>
*S***
*S** 01 WF-PELL VIEW OF WF-PELL
*S** 02 WF-AID-YEAR
*S** 02 WF-PL-TBL-TYPE
*S** 02 WF-PL-HI-COA
*S** 02 WF-PL-HI-EFC
*S** 02 WF-PL-AWARD
*S** 01 PELL-FIELD
*S** 02 #PL-TBL-TYPE(A1)
*S** 02 #PL-HI-COA(A5)
*S** 02 #PL-HI-EFC(A5)
*S** 02 #PL-AWARD(A5)
*S***
*S** 01 PELL-CSV
*S** 02 INPUT-FIELD(A50)
*S**END-DEFINE
*S***
*S*** Define printers, formats, headings
*S**DEFINE PRINTER(1)
*S**FORMAT(1) LS=80 PS=60 ZP=ON IS=OFF ES=OFF SG=OFF
*S***
*S**AT TOP OF PAGE(1)
*S** WRITE(1) NOTITLE ##PGM-ID
*S** 26T '*** FINANCIER PELL IMPORT ***'
*S** 71T 'Page' *PAGE-NUMBER(1)(EM=ZZ9)
*S** / *DATX(EM=LLL' 'DD', 'YYYY)
*S** 28T 'Processing Counts/Errors'
*S** 71T *TIMX(EM=HH':'II' 'AP)
*S**END-TOPPAGE
*S***
*S**ASSIGN ##PGM-ID = *PROGRAM
*S**ASSIGN ##BYPASS-TRANSLATION = 'B'
*S***
*S**IF *DEVICE = 'BATCH' THEN
*S** SET CONTROL 'D' /* Set delimiter mode for batch input
*S**END-IF
*S***
*S*************************************************************************
*S***
*S*** Read and edit input parameters
*S** INPUT(AD=MITL'_' SG=ON IP=OFF ZP=OFF)
*S** 'Aid Year:' #INPUT-AID-YEAR /
*S** 'Term:' #INPUT-TERM /
*S** 'FAO:' #INPUT-FAO /
*S** 'Run Mode:' #INPUT-RUNMODE /
*S** 'Effective Date:' #INPUT-EFF-DATE /
*S** WRITE(1) ' '
*S** PERFORM REQUIRED-FIELD-BATCH WWREQIBD
*S** WRITE(1)
*S** 31T 'Aid Year:' ##DISP-AY /
*S** 36T ##DISP-LIT ##DISP-FAO ///
*S***
*S**IF #INPUT-AID-YEAR IS (N4)
*S** ASSIGN #AID-YEAR-N = VAL(#INPUT-AID-YEAR)
*S**END-IF
*S***
*S*** Delete existing PELL table data for Aid Year
*S**FIND WF-PELL WITH WF-AID-YEAR = #AID-YEAR-N
*S** /*
*S** DELETE
*S** ADD 1 TO #DELETE-COUNTER
*S** END TRANSACTION
*S** /*
*S** AT END OF DATA
*S** WRITE NOTITLE *NUMBER 'RECORDS DELETED'
*S** END-ENDDATA
*S**END-FIND
*S***
*S*** Read Pell CSV file
*S**READ WORK FILE 1 PELL-CSV
*S** /*
*S** ADD 1 TO #ET-READ-COUNTER
*S** IF #ET-READ-COUNTER > #MAX-READ-COUNTER
*S** PERFORM COMMIT-OR-BACKOUT
*S** END-IF
*S** ADD 1 TO #READ-COUNTER
*S** /*
*S** /* Separate CSV records into fields and store into table
*S** SEPARATE INPUT-FIELD INTO
*S** #PL-TBL-TYPE
*S** #PL-HI-COA
*S** #PL-HI-EFC
*S** #PL-AWARD
*S** WITH DELIMITER ','
*S** MOVE #AID-YEAR-N TO WF-PELL.WF-AID-YEAR
*S** MOVE EDITED #PL-TBL-TYPE TO WF-PELL.WF-PL-TBL-TYPE (EM=9)
*S** MOVE EDITED #PL-HI-COA TO WF-PELL.WF-PL-HI-COA (EM=ZZZZ9)
*S** MOVE EDITED #PL-HI-EFC TO WF-PELL.WF-PL-HI-EFC (EM=ZZZZ9)
*S** MOVE EDITED #PL-AWARD TO WF-PELL.WF-PL-AWARD (EM=ZZZZ9)
*S** STORE RECORD IN WF-PELL
*S** ADD 1 TO #WRITE-COUNTER
*S**END-WORK
*S***
*S*** Issue final END TRANSACTION
*S** PERFORM COMMIT-OR-BACKOUT
*S***
*S*** Print job statistics
*S** WRITE(1) NOTITLE
*S** 15T 'WF-PELL transactions:' /
*S** 17T 'Records:' /
*S** 25T 'Deleted:'
*S** (I) 55T #DELETE-COUNTER (EM=Z,ZZZ,ZZ9) /
*S** 25T 'Read:'
*S** (I) 55T #READ-COUNTER (EM=Z,ZZZ,ZZ9) /
*S** 25T 'Inserted:'
*S** (I) 55T #WRITE-COUNTER (EM=Z,ZZZ,ZZ9) /
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE COMMIT-OR-BACKOUT
*S*************************************************************************
*S** /*
*S** /* Periodically issue END TRANSACTION
*S** /* Trial mode not supported, end transaction only
*S** END TRANSACTION
*S** RESET #ET-READ-COUNTER
*S**END-SUBROUTINE /* COMMIT-OR-BACKOUT
*S**END
*E
|
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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Program : WFPELIMB
*S*** System : FINANCIER
*S*** Title : Pell Import
*S*** Function : This program loads the Pell table from a CSV file.
*S***
*S***
*S*** Copyright 1995 - 2011 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S***
*S** LOCAL USING WWREQIBD /* Input parameter PDA
*S** LOCAL USING WWAOBJ
*S***
*S** LOCAL USING WWCONST
*S***
*S** LOCAL
*S** 01 #FETCH-PROGRAM(A8)
*S** 01 #AID-YEAR-N(N4)
*S** 01 #DELETE-COUNTER(P5)
*S** 01 #READ-COUNTER(P5)
*S** 01 #WRITE-COUNTER(P5)
*S** 01 #ET-READ-COUNTER(P5)
*S** 01 #MAX-READ-COUNTER(P5) INIT<100>
*S***
*S** 01 WF-PELL VIEW OF WF-PELL
*S** 02 WF-AID-YEAR
*S** 02 WF-PL-TBL-TYPE
*S** 02 WF-PL-HI-COA
*S** 02 WF-PL-HI-EFC
*S** 02 WF-PL-AWARD
*S** 01 PELL-FIELD
*S** 02 #PL-TBL-TYPE(A1)
*S** 02 #PL-HI-COA(A6)
*S** 02 #PL-HI-EFC(A6)
*S** 02 #PL-AWARD(A5)
*S***
*S** 01 PELL-CSV
*S** 02 INPUT-FIELD(A50)
*S**END-DEFINE
*S***
*S*** Define printers, formats, headings
*S**DEFINE PRINTER(1)
*S**FORMAT(1) LS=80 PS=60 ZP=ON IS=OFF ES=OFF SG=OFF
*S***
*S**AT TOP OF PAGE(1)
*S** WRITE(1) NOTITLE ##PGM-ID
*S** 26T '*** FINANCIER PELL IMPORT ***'
*S** 71T 'Page' *PAGE-NUMBER(1)(EM=ZZ9)
*S** / *DATX(EM=LLL' 'DD', 'YYYY)
*S** 28T 'Processing Counts/Errors'
*S** 71T *TIMX(EM=HH':'II' 'AP)
*S**END-TOPPAGE
*S***
*S**ASSIGN ##PGM-ID = *PROGRAM
*S**ASSIGN ##BYPASS-TRANSLATION = 'B'
*S***
*S**IF *DEVICE = 'BATCH' THEN
*S** SET CONTROL 'D' /* Set delimiter mode for batch input
*S**END-IF
*S***
*S*************************************************************************
*S***
*S*** Read and edit input parameters
*S** INPUT(AD=MITL'_' SG=ON IP=OFF ZP=OFF)
*S** 'Aid Year:' #INPUT-AID-YEAR /
*S** 'Term:' #INPUT-TERM /
*S** 'FAO:' #INPUT-FAO /
*S** 'Run Mode:' #INPUT-RUNMODE /
*S** 'Effective Date:' #INPUT-EFF-DATE /
*S** WRITE(1) ' '
*S** PERFORM REQUIRED-FIELD-BATCH WWREQIBD
*S** WRITE(1)
*S** 31T 'Aid Year:' ##DISP-AY /
*S** 36T ##DISP-LIT ##DISP-FAO ///
*S***
*S**IF #INPUT-AID-YEAR IS (N4)
*S** ASSIGN #AID-YEAR-N = VAL(#INPUT-AID-YEAR)
*S**END-IF
*S***
*S*** Delete existing PELL table data for Aid Year
*S**FIND WF-PELL WITH WF-AID-YEAR = #AID-YEAR-N
*S** /*
*S** DELETE
*S** ADD 1 TO #DELETE-COUNTER
*S** END TRANSACTION
*S** /*
*S** AT END OF DATA
*S** WRITE NOTITLE *NUMBER 'RECORDS DELETED'
*S** END-ENDDATA
*S**END-FIND
*S***
*S*** Read Pell CSV file
*S**READ WORK FILE 1 PELL-CSV
*S** /*
*S** ADD 1 TO #ET-READ-COUNTER
*S** IF #ET-READ-COUNTER > #MAX-READ-COUNTER
*S** PERFORM COMMIT-OR-BACKOUT
*S** END-IF
*S** ADD 1 TO #READ-COUNTER
*S** /*
*S** /* Separate CSV records into fields and store into table
*S** SEPARATE INPUT-FIELD INTO
*S** #PL-TBL-TYPE
*S** #PL-HI-COA
*S** #PL-HI-EFC
*S** #PL-AWARD
*S** WITH DELIMITER ','
*S** MOVE #AID-YEAR-N TO WF-PELL.WF-AID-YEAR
*S** MOVE EDITED #PL-TBL-TYPE TO WF-PELL.WF-PL-TBL-TYPE (EM=9)
*S** MOVE EDITED #PL-HI-COA TO WF-PELL.WF-PL-HI-COA (EM=ZZZZZ9)
*S** MOVE EDITED #PL-HI-EFC TO WF-PELL.WF-PL-HI-EFC (EM=ZZZZZ9)
*S** MOVE EDITED #PL-AWARD TO WF-PELL.WF-PL-AWARD (EM=ZZZZ9)
*S** STORE RECORD IN WF-PELL
*S** ADD 1 TO #WRITE-COUNTER
*S**END-WORK
*S***
*S*** Issue final END TRANSACTION
*S** PERFORM COMMIT-OR-BACKOUT
*S***
*S*** Print job statistics
*S** WRITE(1) NOTITLE
*S** 15T 'WF-PELL transactions:' /
*S** 17T 'Records:' /
*S** 25T 'Deleted:'
*S** (I) 55T #DELETE-COUNTER (EM=Z,ZZZ,ZZ9) /
*S** 25T 'Read:'
*S** (I) 55T #READ-COUNTER (EM=Z,ZZZ,ZZ9) /
*S** 25T 'Inserted:'
*S** (I) 55T #WRITE-COUNTER (EM=Z,ZZZ,ZZ9) /
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE COMMIT-OR-BACKOUT
*S*************************************************************************
*S** /*
*S** /* Periodically issue END TRANSACTION
*S** /* Trial mode not supported, end transaction only
*S** END TRANSACTION
*S** RESET #ET-READ-COUNTER
*S**END-SUBROUTINE /* COMMIT-OR-BACKOUT
*S**END
*E
|