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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFA25SPZ
*S*** System: FINANCIER
*S*** Function : This subroutine performs update edits and
*S*** mask processing for the WFA25SPM 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 WFA25SPM-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** IF WFFED25D.WF-FE-SP-AGI NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-AGI (EM=Z,ZZZ,ZZZ,ZZ9-)
*S** TO WFFED25S.WF-FE-SP-AGI
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-INC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-INC (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-INC
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-FED-TAX NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-FED-TAX (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-FED-TAX
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-FGN-INC-EXC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-FGN-INC-EXC (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-FGN-INC-EXC
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-SCHEDC-AMT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-SCHEDC-AMT (EM=ZZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-SCHEDC-AMT
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-AGI NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-AGI (EM=Z,ZZZ,ZZZ,ZZ9-)
*S** TO WFFED25S.WF-FE-P2-AGI
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-INC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-INC (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-INC
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-FED-TAX NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-FED-TAX (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-FED-TAX
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-FGN-INC-EXC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-FGN-INC-EXC (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-FGN-INC-EXC
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-SCHEDC-AMT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-SCHEDC-AMT (EM=ZZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-SCHEDC-AMT
*S** END-IF
*S** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFA25SPM
*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** /*
*S** /* No updatable fields found on map
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFA25SPM-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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFA25SPZ
*S*** System: FINANCIER
*S*** Function : This subroutine performs update edits and
*S*** mask processing for the WFA25SPM 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***
*S** 01 #FE-SP-ADDL-N(P11)
*S** 01 #FE-SP-ADDL(A14)
*S** 01 #FE-SP-UNTXD-N(P11)
*S** 01 #FE-SP-UNTXD(A14)
*S***
*S** 01 #FE-P2-ADDL-N(P11)
*S** 01 #FE-P2-ADDL(A14)
*S** 01 #FE-P2-UNTXD-N(P11)
*S** 01 #FE-P2-UNTXD(A14)
*S***
*S**END-DEFINE
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE WFA25SPM-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** IF WFFED25D.WF-FE-SP-AGI NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-AGI (EM=Z,ZZZ,ZZZ,ZZ9-)
*S** TO WFFED25S.WF-FE-SP-AGI
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-INC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-INC (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-INC
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-FED-TAX NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-FED-TAX (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-FED-TAX
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-FGN-INC-EXC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-FGN-INC-EXC (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-FGN-INC-EXC
*S** END-IF
*S** IF WFFED25D.WF-FE-SP-SCHEDC-AMT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-SP-SCHEDC-AMT (EM=ZZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-SP-SCHEDC-AMT
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-AGI NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-AGI (EM=Z,ZZZ,ZZZ,ZZ9-)
*S** TO WFFED25S.WF-FE-P2-AGI
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-INC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-INC (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-INC
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-FED-TAX NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-FED-TAX (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-FED-TAX
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-FGN-INC-EXC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-FGN-INC-EXC (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-FGN-INC-EXC
*S** END-IF
*S** IF WFFED25D.WF-FE-P2-SCHEDC-AMT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P2-SCHEDC-AMT (EM=ZZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P2-SCHEDC-AMT
*S** END-IF
*S** COMPUTE #FE-SP-ADDL-N = WFFED25D.WF-FE-SP-EDCR
*S** + WFFED25D.WF-FE-SP-U-ROLL-IRA
*S** + WFFED25D.WF-FE-SP-U-ROLL-PEN
*S** IF #FE-SP-ADDL-N > 99999999
*S** ASSIGN #FE-SP-ADDL-N = 99999999
*S** END-IF
*S** MOVE EDITED #FE-SP-ADDL-N (EM=ZZ,ZZZ,ZZZ) TO #FE-SP-ADDL
*S***
*S** COMPUTE #FE-SP-UNTXD-N = WFFED25D.WF-FE-SP-U-INT
*S** + WFFED25D.WF-FE-SP-U-DST-IRA
*S** + WFFED25D.WF-FE-SP-U-DST-PEN
*S** + WFFED25D.WF-FE-SP-DED-PAY
*S** IF #FE-SP-UNTXD-N > 99999999
*S** ASSIGN #FE-SP-UNTXD-N = 99999999
*S** END-IF
*S** MOVE EDITED #FE-SP-UNTXD-N (EM=ZZ,ZZZ,ZZZ) TO #FE-P2-UNTXD
*S***
*S** COMPUTE #FE-P2-ADDL-N = WFFED25D.WF-FE-P2-EDCR
*S** + WFFED25D.WF-FE-P2-U-ROLL-IRA
*S** + WFFED25D.WF-FE-P2-U-ROLL-PEN
*S** IF #FE-P2-ADDL-N > 99999999
*S** ASSIGN #FE-P2-ADDL-N = 99999999
*S** END-IF
*S** MOVE EDITED #FE-P2-ADDL-N (EM=ZZ,ZZZ,ZZZ) TO #FE-P2-ADDL
*S***
*S** COMPUTE #FE-P2-UNTXD-N = WFFED25D.WF-FE-P2-U-INT
*S** + WFFED25D.WF-FE-P2-U-DST-IRA
*S** + WFFED25D.WF-FE-P2-U-DST-PEN
*S** + WFFED25D.WF-FE-P2-DED-PAY
*S** IF #FE-P2-UNTXD-N > 99999999
*S** ASSIGN #FE-P2-UNTXD-N = 99999999
*S** END-IF
*S** MOVE EDITED #FE-P2-UNTXD-N (EM=ZZ,ZZZ,ZZZ) TO #FE-P2-UNTXD
*S** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFA25SPM
*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** /*
*S** /* No updatable fields found on map
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFA25SPM-MASK-EDITS
*S**END
|