\\Mac\Home\Downloads\20240429\wptest\wff25021.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
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFF25021
*S*** System: FINANCIER
*S*** Function : This subroutine performs load processing
*S*** for the WFF2502M 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 WFF2502M-MAP-LOAD
*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-DED-PAY NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-DED-PAY (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-DED-PAY
*S** END-IF
*S** IF WFFED25D.WF-FE-S-EDCR NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-EDCR (EM=ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-EDCR
*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-GRNT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-GRNT (EM=ZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-GRNT
*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-SGN-DATE NE INIT-DATE
*S** MOVE EDITED WFFED25D.WF-FE-S-SGN-DATE (EM=MM/DD/YYYY)
*S** TO WFFED25S.WF-FE-S-SGN-DATE
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-CSUP NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-CSUP (EM=Z,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-CSUP
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-DST-IRA NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-DST-IRA (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-DST-IRA
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-DST-PEN NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-DST-PEN (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-DST-PEN
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-INT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-INT (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-INT
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-ROLL-IRA NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-ROLL-IRA (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-ROLL-IRA
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-ROLL-PEN NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-ROLL-PEN (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-ROLL-PEN
*S** END-IF
*S** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFF2502M
*S** /* RESET performed to allow generated subroutines to stow.
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFF2502M-MAP-LOAD
*S**END
\\Mac\Home\Downloads\20240429\wpdev\wff25021.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: WFF25021
*S*** System: FINANCIER
*S*** Function : This subroutine performs load processing
*S*** for the WFF2502M 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** PARAMETER USING WFAIDYND
*S** PARAMETER USING WFAIDYNR
*S** PARAMETER USING WFAIDYNS
*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 WFF2502M-MAP-LOAD
*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 WFAIDYND.WF-AY-N-DUR NE 0
*S** MOVE EDITED WFAIDYND.WF-AY-N-DUR (EM=Z9)
*S** TO WFAIDYNS.WF-AY-N-DUR
*S** END-IF
*S** IF WFFED25D.WF-FE-S-DED-PAY NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-DED-PAY (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-DED-PAY
*S** END-IF
*S** IF WFFED25D.WF-FE-S-EDCR NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-EDCR (EM=ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-EDCR
*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-GRNT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-GRNT (EM=ZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-GRNT
*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-SGN-DATE NE INIT-DATE
*S** MOVE EDITED WFFED25D.WF-FE-S-SGN-DATE (EM=MM/DD/YYYY)
*S** TO WFFED25S.WF-FE-S-SGN-DATE
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-CSUP NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-CSUP (EM=Z,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-CSUP
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-DST-IRA NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-DST-IRA (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-DST-IRA
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-DST-PEN NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-DST-PEN (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-DST-PEN
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-INT NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-INT (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-INT
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-ROLL-IRA NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-ROLL-IRA (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-ROLL-IRA
*S** END-IF
*S** IF WFFED25D.WF-FE-S-U-ROLL-PEN NE 0
*S** MOVE EDITED WFFED25D.WF-FE-S-U-ROLL-PEN (EM=ZZ,ZZZ,ZZZ,ZZ9)
*S** TO WFFED25S.WF-FE-S-U-ROLL-PEN
*S** END-IF
*S** RESET INITIAL #FAIL-EDIT
*S** /* In event of no masked fields on MAP WFF2502M
*S** /* RESET performed to allow generated subroutines to stow.
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFF2502M-MAP-LOAD
*S**END
2 differences: 7 lines, 0 inline differences in 0 changed lines
Added(7,0)
Deleted(0,0)
Changed(0)
Changed in changed(0)