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