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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subprogram: WFVCNCLN
*S*** System : FINANCIER
*S*** Title : Verification Calc
*S*** Function : This subprogram invokes a year-specific verification
*S*** calculation.
*S***
*S*** Copyright 1995 - 2012 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER USING WWPDA
*S** PARAMETER
*S** 01 #BYPASS-STUDENT(L)
*S***
*S** LOCAL
*S** 01 #SUBPGM(A8)
*S** 01 #AID-CCYY(A4)
*S** 01 REDEFINE #AID-CCYY
*S** 02 #AID-CC(A2)
*S** 02 #AID-YY(A2)
*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** IF ##AID-YEAR = ##FAO-LO-YEAR THRU ##FAO-HI-YEAR
*S** MOVE ##AID-YEAR TO #AID-CCYY
*S** COMPRESS 'WXVCN' #AID-YY 'N' INTO #SUBPGM LEAVING NO SPACE
*S** IF ##AID-YEAR GE '2013'
*S** COMPRESS 'WFVCN' #AID-YY 'N' INTO #SUBPGM LEAVING NO SPACE
*S** END-IF
*S** /*
*S** CALLNAT #SUBPGM WW-GDA #BYPASS-STUDENT
*S** END-IF
*S***
*S**MOVE BY POSITION WW-GDA TO WW-PDA
*S***
*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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subprogram: WFVCNCLN
*S*** System : FINANCIER
*S*** Title : Verification Calc
*S*** Function : This subprogram invokes a year-specific verification
*S*** calculation.
*S***
*S*** Copyright 1995 - 2012 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER USING WWPDA
*S** PARAMETER
*S** 01 #BYPASS-STUDENT(L)
*S***
*S** LOCAL
*S** 01 #SUBPGM(A8)
*S** 01 #AID-CCYY(A4)
*S** 01 REDEFINE #AID-CCYY
*S** 02 #AID-CC(A2)
*S** 02 #AID-YY(A2)
*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** IF ##AID-YEAR = ##FAO-LO-YEAR THRU ##FAO-HI-YEAR
*S** MOVE ##AID-YEAR TO #AID-CCYY
*S** COMPRESS 'WXVCN' #AID-YY 'N' INTO #SUBPGM LEAVING NO SPACE
*S** IF ##AID-YEAR GE '2013'
*S** COMPRESS 'WFVCN' #AID-YY 'N' INTO #SUBPGM LEAVING NO SPACE
*S** END-IF
*S** /*
*S** /* wp25
*S*** IF ##AID-YEAR < '2025'
*S** CALLNAT #SUBPGM WW-GDA #BYPASS-STUDENT
*S*** END-IF
*S*** /* wp25
*S** END-IF
*S***
*S**MOVE BY POSITION WW-GDA TO WW-PDA
*S***
*S**END
|