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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFA25PAZ
*S*** System: FINANCIER
*S*** Function : This subroutine performs update edits and
*S*** mask processing for the WFA25PAM 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 WFA25PAM-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** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFA25PAM
*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 /* WFA25PAM-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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFA25PAZ
*S*** System: FINANCIER
*S*** Function : This subroutine performs update edits and
*S*** mask processing for the WFA25PAM 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-P1-ADDL-N(P11)
*S** 01 #FE-P1-ADDL(A14)
*S** 01 #FE-P1-UNTXD-N(P11)
*S** 01 #FE-P1-UNTXD(A14)
*S***
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE WFA25PAM-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-P1-AGI NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-AGI (EM=Z,ZZZ,ZZZ,ZZ9-)
*S** TO WFFED25S.WF-FE-P1-AGI
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-FGN-INC-EXC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-FGN-INC-EXC (EM=Z,ZZZ,ZZZ,ZZ9-)
*S** TO WFFED25S.WF-FE-P1-FGN-INC-EXC
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-SCHEDC-AMT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-SCHEDC-AMT (EM=ZZZ,ZZZ,ZZZ,ZZ9-)
*S** TO WFFED25S.WF-FE-P1-SCHEDC-AMT
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-INC NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-INC (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P1-INC
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-BUS-FRM NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-BUS-FRM (EM=Z,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P1-BUS-FRM
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-CASH NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-CASH (EM=Z,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P1-CASH
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-FAM-COL NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-FAM-COL (EM=Z9)
*S** TO WFFED25S.WF-FE-P1-FAM-COL
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-FAM-SIZE NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-FAM-SIZE (EM=Z9)
*S** TO WFFED25S.WF-FE-P1-FAM-SIZE
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-FED-TAX NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-FED-TAX (EM=Z,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P1-FED-TAX
*S** END-IF
*S** IF WFFED25D.WF-FE-P1-INV NE 0
*S** MOVE EDITED WFFED25D.WF-FE-P1-INV (EM=Z,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-P1-INV
*S** END-IF
*S** COMPUTE #FE-P1-ADDL-N = WFFED25D.WF-FE-P1-EDCR
*S** + WFFED25D.WF-FE-P1-U-ROLL-IRA
*S** + WFFED25D.WF-FE-P1-U-ROLL-PEN
*S** + WFFED25D.WF-FE-P1-GRNT
*S** IF #FE-P1-ADDL-N > 99999999
*S** ASSIGN #FE-P1-ADDL-N = 99999999
*S** END-IF
*S** MOVE EDITED #FE-P1-ADDL-N (EM=ZZ,ZZZ,ZZZ) TO #FE-P1-ADDL
*S***
*S** COMPUTE #FE-P1-UNTXD-N = WFFED25D.WF-FE-P1-U-INT
*S** + WFFED25D.WF-FE-P1-U-DST-IRA
*S** + WFFED25D.WF-FE-P1-U-DST-PEN
*S** + WFFED25D.WF-FE-P1-DED-PAY
*S** + WFFED25D.WF-FE-P1-U-CSUP
*S** IF #FE-P1-UNTXD-N > 99999999
*S** ASSIGN #FE-P1-UNTXD-N = 99999999
*S** END-IF
*S** MOVE EDITED #FE-P1-UNTXD-N (EM=ZZ,ZZZ,ZZZ) TO #FE-P1-UNTXD
*S** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFA25PAM
*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 /* WFA25PAM-MASK-EDITS
*S**END
|