\\Mac\Home\Downloads\20260524\wptest\wfaddlde.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
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFADDLDE
*S*** System : FINANCIER
*S*** Title : ADD Load subroutine
*S*** Function : This subroutine calls routines that load data and
*S*** perform calculations.
*S***
*S*** Copyright 1995 - 2027 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #PARAMETER-FIELDS
*S** 02 #PGM-PARAMETERS
*S** 03 #EARLIER-REC(A1)
*S** 03 #FED-REJ-CASE(A1)
*S** 03 #OVRD-FED-REJ(A1)
*S** 03 #OVRD-C-PEND(A1)
*S** 03 #OVRD-C-XMIT(A1)
*S** 03 #OVRD-LOCKED(A1)
*S** 03 #OVRD-VERIFD(A1)
*S** 03 #OVRD-PACKAGE(A1)
*S** 02 #PASSED-PARAMETERS
*S** 03 #INPUT-COUNTER(P7)
*S** 03 #NEW-REJ-COUNTER(P7)
*S** 03 #RE-REJ-COUNTER(P7)
*S** 03 #BYPASS-COUNTER(P7)
*S** 03 #ADD-RECORD-COUNTER(P7)
*S** 03 #PROCESSED-RECORD(L)
*S** PARAMETER USING WFADDDSD
*S***
*S** LOCAL
*S** 01 #VER-STAT(A1)
*S***
*S** 01 #SUBPGM-ID(A8)
*S** 01 #AID-CCYY(A4)
*S** 01 REDEFINE #AID-CCYY
*S** 02 #AID-CC(A2)
*S** 02 #AID-YY(A2)
*S** 01 #BYPASS-STUDENT(L)
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE LOAD-STUDENT
*S*************************************************************************
*S***
*S**PROG.
*S** REPEAT
*S** /*
*S** /* Call year specific subroutine depending on data source
*S** MOVE ##AID-YEAR TO #AID-CCYY
*S** DECIDE ON FIRST VALUE OF WFADDDSD.WF-AD-SOURCE
*S** VALUE 'B'
*S** COMPRESS 'WFFEB' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'F'
*S** COMPRESS 'WFFEL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'G'
*S** COMPRESS 'WFFGL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'C'
*S** COMPRESS 'WFCSL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'N'
*S** COMPRESS 'WFCNL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S** IF NOT #PROCESSED-RECORD
*S** ESCAPE BOTTOM(PROG.)
*S** END-IF
*S** /*
*S** /* Perform Budget calc
*S** PERFORM CALC-BUDGET
*S** /*
*S** /* Calculate application requirements
*S** MOVE WFADDDSD.WF-AD-SOURCE TO ##PASS-ACTION
*S** PERFORM CALC-APPL-REQ
*S** RESET ##PASS-ACTION
*S** /*
*S** /* Need analysis calc
*S** PERFORM CALC-NEED-ANALYSIS
*S** /*
*S** /* Verification calc (if previously verified)
*S** IF WFADDDSD.WF-AD-SOURCE = 'F'
*S** PERFORM CALC-VERIFICATION #BYPASS-STUDENT
*S** END-IF
*S** /*
*S** ESCAPE BOTTOM(PROG.)
*S** END-REPEAT
*S**END-SUBROUTINE /* LOAD-STUDENT
*S**END
\\Mac\Home\Downloads\20260525\wpdev\wfaddlde.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
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFADDLDE
*S*** System : FINANCIER
*S*** Title : ADD Load subroutine
*S*** Function : This subroutine calls routines that load data and
*S*** perform calculations.
*S***
*S*** Copyright 1995 - 2027 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #PARAMETER-FIELDS
*S** 02 #PGM-PARAMETERS
*S** 03 #EARLIER-REC(A1)
*S** 03 #FED-REJ-CASE(A1)
*S** 03 #OVRD-FED-REJ(A1)
*S** 03 #OVRD-C-PEND(A1)
*S** 03 #OVRD-C-XMIT(A1)
*S** 03 #OVRD-LOCKED(A1)
*S** 03 #OVRD-VERIFD(A1)
*S** 03 #OVRD-PACKAGE(A1)
*S** 02 #PASSED-PARAMETERS
*S** 03 #INPUT-COUNTER(P7)
*S** 03 #NEW-REJ-COUNTER(P7)
*S** 03 #RE-REJ-COUNTER(P7)
*S** 03 #BYPASS-COUNTER(P7)
*S** 03 #ADD-RECORD-COUNTER(P7)
*S** 03 #PROCESSED-RECORD(L)
*S** PARAMETER USING WFADDDSD
*S***
*S** LOCAL
*S** 01 #VER-STAT(A1)
*S***
*S** 01 #SUBPGM-ID(A8)
*S** 01 #AID-CCYY(A4)
*S** 01 REDEFINE #AID-CCYY
*S** 02 #AID-CC(A2)
*S** 02 #AID-YY(A2)
*S** 01 #BYPASS-STUDENT(L)
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE LOAD-STUDENT
*S*************************************************************************
*S***
*S**PROG.
*S** REPEAT
*S** /*
*S** /* Call year specific subroutine depending on data source
*S** MOVE ##AID-YEAR TO #AID-CCYY
*S** DECIDE ON FIRST VALUE OF WFADDDSD.WF-AD-SOURCE
*S** VALUE 'B'
*S** COMPRESS 'WFFEB' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'F'
*S** COMPRESS 'WFFEL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'G'
*S** COMPRESS 'WFFGL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'C'
*S** COMPRESS 'WFCSL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** VALUE 'N'
*S** COMPRESS 'WFCNL' #AID-YY 'N' INTO #SUBPGM-ID LEAVING NO
*S** CALLNAT #SUBPGM-ID WW-GDA #PARAMETER-FIELDS
*S** WFADDDSD WFADDDSD-ID
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S** IF NOT #PROCESSED-RECORD
*S** ESCAPE BOTTOM(PROG.)
*S** END-IF
*S** /*
*S** /* Perform Budget calc
*S** PERFORM CALC-BUDGET
*S** /*
*S** /* Calculate application requirements
*S** MOVE WFADDDSD.WF-AD-SOURCE TO ##PASS-ACTION
*S** PERFORM CALC-APPL-REQ
*S** RESET ##PASS-ACTION
*S** /*
*S** /* Need analysis calc
*S** PERFORM CALC-NEED-ANALYSIS
*S** /*
*S** /* Verification calc (if previously verified)
*S** IF WFADDDSD.WF-AD-SOURCE = 'F'
*S** /*
*S** /* 2027 (Mid-year OBBBBA mod)
*S** OR WFADDDSD.WF-AD-SOURCE = 'B'
*S** PERFORM CALC-VERIFICATION #BYPASS-STUDENT
*S** END-IF
*S** /*
*S** ESCAPE BOTTOM(PROG.)
*S** END-REPEAT
*S**END-SUBROUTINE /* LOAD-STUDENT
*S**END
1 difference: 3 lines, 0 inline differences in 0 changed lines
Added(3,0)
Deleted(0,0)
Changed(0)
Changed in changed(0)
Ignored