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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subprogram: WFAFR27N
*S*** System : FINANCIER
*S*** Title : 2026-27 ADD Federal Record Retrieve
*S*** Function : This subprogram retrieves a federal record
*S*** from the ADD file based on a passed student ID.
*S***
*S*** Copyright 1995 - 2026 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER USING WWPDA
*S** PARAMETER USING WF27FEXD
*S***
*S** LOCAL USING WFADDDSD /* Passed to object subprogram
*S** LOCAL USING WFADDDSR /* Passed to object subprogram
*S** LOCAL USING WWAOBJ /* Passed to object subprogram
*S***
*S** LOCAL USING WF27FEDL /* Sequential LDA
*S**END-DEFINE
*S***
*S***
*S*** Populate WW-GDA from WW-PDA
*S** MOVE BY POSITION WW-PDA TO WW-GDA
*S***
*S*************************************************************************
*S** /*
*S** MOVE ##AID-YEAR TO WFADDDSD.WF-AID-YEAR
*S** MOVE 'F' TO WFADDDSD.WF-AD-SOURCE /* Default to Federal Data
*S** MOVE ##FAO-ID TO WFADDDSD.WF-FAO
*S** MOVE ##SSN TO WFADDDSD.WW-ST-SSN
*S** /*
*S** ASSIGN WWAOBJ.#FUNCTION = 'GET' /* Perform GET, only way to
*S** CALLNAT 'WFADDDSO' WW-GDA /* get here is thru ADD
*S** WFADDDSD /* display, therefore record
*S** WFADDDSD-ID /* must exist.
*S** WFADDDSR
*S** WWAOBJ
*S** /*
*S** MOVE BY NAME WFADDDSD TO WF27FEDL /* Load LDA from ADD file
*S** MOVE BY NAME WF27FEDL TO WF27FEXD /* Load LDA to PDA
*S***
*S**MOVE BY POSITION WW-GDA TO WW-PDA
*S***
*S**END
*E
|
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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subprogram: WFAFR27N
*S*** System : FINANCIER
*S*** Title : 2026-27 ADD Federal Record Retrieve
*S*** Function : This subprogram retrieves a federal record
*S*** from the ADD file based on a passed student ID.
*S***
*S*** Copyright 1995 - 2026 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER USING WWPDA
*S** PARAMETER USING WF27FEXD
*S***
*S** LOCAL USING WFADDDSD /* Passed to object subprogram
*S** LOCAL USING WFADDDSR /* Passed to object subprogram
*S** LOCAL USING WWAOBJ /* Passed to object subprogram
*S***
*S** LOCAL USING WF27FEDL /* Sequential LDA
*S**END-DEFINE
*S***
*S***
*S*** Populate WW-GDA from WW-PDA
*S** MOVE BY POSITION WW-PDA TO WW-GDA
*S***
*S*************************************************************************
*S** /*
*S** MOVE ##AID-YEAR TO WFADDDSD.WF-AID-YEAR
*S** /*
*S** /* 2027 (Mid-year OBBBA mod)
*S** /* ##PASS-ACTION contains WF-AD-SOURCE
*S** /* (passed in WFADDMTP)
*S** MOVE ##PASS-ACTION TO WFADDDSD.WF-AD-SOURCE
*S** MOVE ##FAO-ID TO WFADDDSD.WF-FAO
*S** MOVE ##SSN TO WFADDDSD.WW-ST-SSN
*S** /*
*S** ASSIGN WWAOBJ.#FUNCTION = 'GET' /* Perform GET, only way to
*S** CALLNAT 'WFADDDSO' WW-GDA /* get here is thru ADD
*S** WFADDDSD /* display, therefore record
*S** WFADDDSD-ID /* must exist.
*S** WFADDDSR
*S** WWAOBJ
*S** /*
*S** MOVE BY NAME WFADDDSD TO WF27FEDL /* Load LDA from ADD file
*S** MOVE BY NAME WF27FEDL TO WF27FEXD /* Load LDA to PDA
*S***
*S**MOVE BY POSITION WW-GDA TO WW-PDA
*S***
*S**END
*E
|