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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
*S****SAG GENERATOR: WW-EDIT-SUBR Version: 3.2.2
*S****SAG TITLE: FAFSA Maintenance
*S****SAG SYSTEM: FINANCIER
*S****SAG GDA: WWGDA
*S****SAG DESCS(1): This subroutine calls the edit subroutines
*S****SAG DESCS(2): for the individual FAFSA maps.
*S****SAG HEADER1: FINANCIER
*S****SAG DIRECT-COMMAND-PROCESS:
*S****SAG ACTIONS: 0101010101010000
*S****SAG OBJECT-NAME: WFFED25O
*S****SAG MAX-WINDOWS: 10
*S****SAG MAP-NAME(1): WFF251AM
*S****SAG MAP-NAME(2): WFF251BM
*S****SAG MAP-NAME(3): WFF252AM
*S****SAG MAP-NAME(4): WFF253AM
*S****SAG MAP-NAME(5): WFF253BM
*S****SAG MAP-NAME(6): WFF254AM
*S****SAG MAP-NAME(7): WFF255AM
*S****SAG MAP-NAME(8): WFF255BM
*S****SAG MAP-NAME(9): WFF256AM
*S****SAG MAP-NAME(10): WFF25CAM
*S****SAG MAP-NAME(11): WFF257AM
*S****SAG MAP-NAME(12): WFF257BM
*S****SAG MAP-NAME(13): WFF258AM
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFFSA25Y
*S*** System : FINANCIER
*S*** Title : FAFSA Maintenance
*S*** Function : This subroutine calls the edit subroutines
*S*** for the individual FAFSA maps.
*S***
*S***
*S***
*S*** Copyright 1995 - 2024 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #PANEL(N7)
*S** PARAMETER USING WWVALLDA /* Valid value LDA
*S***
*S** PARAMETER USING WWSTDNCD
*S** PARAMETER USING WWSTDNCR
*S** PARAMETER USING WWSTDNCS
*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**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE WFFSA25P-CALL-EDIT-SUBS
*S*************************************************************************
*S** DECIDE ON FIRST VALUE OF ##PASS-TEMP
*S** VALUE EDIT
*S** /*
*S** /* For each updatable field on map, perform edit routine.
*S** DECIDE ON FIRST VALUE OF #PANEL
*S** VALUE 1
*S** PERFORM WFF251AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** WWSTDNCD WWSTDNCD-ID WWSTDNCR WWSTDNCS
*S** VALUE 2
*S** PERFORM WFF251BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 3
*S** PERFORM WFF252AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 4
*S** PERFORM WFF253AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 5
*S** PERFORM WFF253BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 6
*S** PERFORM WFF254AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 7
*S** PERFORM WFF255AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 8
*S** PERFORM WFF255BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 9
*S** PERFORM WFF256AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 10
*S** PERFORM WFF25CAM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 11
*S** PERFORM WFF257AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 12
*S** PERFORM WFF257BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 13
*S** PERFORM WFF258AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** NONE IGNORE
*S** END-DECIDE
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFFSA25P-CALL-EDIT-SUBS
*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
|
*S****SAG GENERATOR: WW-EDIT-SUBR Version: 3.2.2
*S****SAG TITLE: FAFSA Maintenance
*S****SAG SYSTEM: FINANCIER
*S****SAG GDA: WWGDA
*S****SAG DESCS(1): This subroutine calls the edit subroutines
*S****SAG DESCS(2): for the individual FAFSA maps.
*S****SAG HEADER1: FINANCIER
*S****SAG DIRECT-COMMAND-PROCESS:
*S****SAG ACTIONS: 0101010101010000
*S****SAG OBJECT-NAME: WFFED25O
*S****SAG MAX-WINDOWS: 10
*S****SAG MAP-NAME(1): WFF251AM
*S****SAG MAP-NAME(2): WFF251BM
*S****SAG MAP-NAME(3): WFF252AM
*S****SAG MAP-NAME(4): WFF253AM
*S****SAG MAP-NAME(5): WFF253BM
*S****SAG MAP-NAME(6): WFF254AM
*S****SAG MAP-NAME(7): WFF255AM
*S****SAG MAP-NAME(8): WFF255BM
*S****SAG MAP-NAME(9): WFF256AM
*S****SAG MAP-NAME(10): WFF25CAM
*S****SAG MAP-NAME(11): WFF257AM
*S****SAG MAP-NAME(12): WFF257BM
*S****SAG MAP-NAME(13): WFF258AM
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFFSA25Y
*S*** System : FINANCIER
*S*** Title : FAFSA Maintenance
*S*** Function : This subroutine calls the edit subroutines
*S*** for the individual FAFSA maps.
*S***
*S***
*S***
*S*** Copyright 1995 - 2024 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #PANEL(N7)
*S** PARAMETER USING WWVALLDA /* Valid value LDA
*S***
*S** PARAMETER USING WWSTDNCD
*S** PARAMETER USING WWSTDNCR
*S** PARAMETER USING WWSTDNCS
*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**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE WFFSA25P-CALL-EDIT-SUBS
*S*************************************************************************
*S** DECIDE ON FIRST VALUE OF ##PASS-TEMP
*S** VALUE EDIT
*S** /*
*S** /* For each updatable field on map, perform edit routine.
*S** DECIDE ON FIRST VALUE OF #PANEL
*S** VALUE 1
*S** PERFORM WFF251AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** WWSTDNCD WWSTDNCD-ID WWSTDNCR WWSTDNCS
*S** VALUE 2
*S** PERFORM WFF251BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 3
*S** PERFORM WFF252AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 4
*S** PERFORM WFF253AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 5
*S** PERFORM WFF253BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 6
*S** PERFORM WFF254AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 7
*S** PERFORM WFF255AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 8
*S** PERFORM WFF255BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 9
*S** PERFORM WFF256AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 10
*S** PERFORM WFF25CAM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 11
*S** PERFORM WFF257AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 12
*S** PERFORM WFF257BM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** VALUE 13
*S** PERFORM WFF258AM-MASK-EDITS EDIT WWVALLDA
*S** WFFED25D WFFED25D-ID WFFED25R WFFED25S
*S** WFAIDYND WFAIDYND-ID WFAIDYNR WFAIDYNS
*S** NONE IGNORE
*S** END-DECIDE
*S** NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* WFFSA25P-CALL-EDIT-SUBS
*S**END
|