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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFPKPELE
*S*** System : FINANCIER
*S*** Title : WF-PELL table look-up
*S*** Function : This is the external subroutine which reads
*S*** the WF-PELL table for a given year.
*S***
*S*** Copyright 1995 - 2012 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #PASS-AID-YEAR(A4)
*S** 01 #PASS-TIME(N1)
*S** 01 #PASS-COA(N5)
*S** 01 #PASS-EFC(N5)
*S** 01 #PASS-PELL-AWARD(P6.2)
*S** 01 #PASS-SUCCESS(A1)
*S***
*S**LOCAL
*S**01 #HOLD-COA(N5)
*S**01 #HOLD-EFC(N5)
*S**01 #AID-YEAR(N4)
*S***
*S**01 WF-PELL VIEW OF WF-PELL
*S** 02 WF-AID-YEAR
*S** 02 WF-PL-TBL-TYPE
*S** 02 WF-PL-HI-COA
*S** 02 WF-PL-HI-EFC
*S** 02 WF-PL-AWARD
*S***
*S**END-DEFINE
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE PELL-LOOKUP
*S*************************************************************************
*S** /*
*S** ASSIGN #AID-YEAR = VAL(#PASS-AID-YEAR)
*S** ASSIGN #PASS-PELL-AWARD = 0
*S** ASSIGN #PASS-SUCCESS = 'N'
*S** /*
*S** /* Determine COA to use
*S** FIND (1) WF-PELL WITH WF-AID-YEAR = #AID-YEAR
*S** AND WF-PL-TBL-TYPE = #PASS-TIME
*S** AND WF-PL-HI-COA >= #PASS-COA
*S** SORTED BY WF-PL-HI-COA
*S** IF NO RECORDS FOUND
*S** ASSIGN #HOLD-COA = 0
*S** ESCAPE ROUTINE
*S** END-NOREC
*S** MOVE WF-PELL.WF-PL-HI-COA TO #HOLD-COA
*S** END-FIND
*S** /*
*S** /* Determine EFC to use
*S** FIND WF-PELL WITH WF-AID-YEAR = #AID-YEAR
*S** AND WF-PL-TBL-TYPE = #PASS-TIME
*S** AND WF-PL-HI-COA = #HOLD-COA
*S** SORTED BY WF-PL-HI-EFC
*S** IF NO RECORDS FOUND
*S** ASSIGN #HOLD-EFC = 0
*S** ESCAPE ROUTINE
*S** END-NOREC
*S** IF WF-PELL.WF-PL-HI-EFC >= #PASS-EFC
*S** MOVE WF-PELL.WF-PL-HI-EFC TO #HOLD-EFC
*S** MOVE WF-PELL.WF-PL-AWARD TO #PASS-PELL-AWARD
*S** ESCAPE BOTTOM
*S** END-IF
*S** ASSIGN #PASS-SUCCESS = 'Y'
*S** END-FIND
*S** /*
*S**END-SUBROUTINE /* PELL-LOOKUP
*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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFPKPELE
*S*** System : FINANCIER
*S*** Title : WF-PELL table look-up
*S*** Function : This is the external subroutine which reads
*S*** the WF-PELL table for a given year.
*S***
*S*** Copyright 1995 - 2012 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #PASS-AID-YEAR(A4)
*S** 01 #PASS-TIME(N1)
*S** 01 #PASS-COA(N6)
*S** 01 #PASS-EFC(N6)
*S** 01 #PASS-PELL-AWARD(P6.2)
*S** 01 #PASS-SUCCESS(A1)
*S***
*S**LOCAL
*S**01 #HOLD-COA(N6)
*S**01 #HOLD-EFC(N6)
*S**01 #AID-YEAR(N4)
*S***
*S**01 WF-PELL VIEW OF WF-PELL
*S** 02 WF-AID-YEAR
*S** 02 WF-PL-TBL-TYPE
*S** 02 WF-PL-HI-COA
*S** 02 WF-PL-HI-EFC
*S** 02 WF-PL-AWARD
*S***
*S**END-DEFINE
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE PELL-LOOKUP
*S*************************************************************************
*S** /*
*S** ASSIGN #AID-YEAR = VAL(#PASS-AID-YEAR)
*S** ASSIGN #PASS-PELL-AWARD = 0
*S** ASSIGN #PASS-SUCCESS = 'N'
*S** /*
*S** /* Determine COA to use
*S** FIND (1) WF-PELL WITH WF-AID-YEAR = #AID-YEAR
*S** AND WF-PL-TBL-TYPE = #PASS-TIME
*S** AND WF-PL-HI-COA >= #PASS-COA
*S** SORTED BY WF-PL-HI-COA
*S** IF NO RECORDS FOUND
*S** ASSIGN #HOLD-COA = 0
*S** ESCAPE ROUTINE
*S** END-NOREC
*S** MOVE WF-PELL.WF-PL-HI-COA TO #HOLD-COA
*S** END-FIND
*S** /*
*S** /* Determine EFC to use
*S** FIND WF-PELL WITH WF-AID-YEAR = #AID-YEAR
*S** AND WF-PL-TBL-TYPE = #PASS-TIME
*S** AND WF-PL-HI-COA = #HOLD-COA
*S** SORTED BY WF-PL-HI-EFC
*S** IF NO RECORDS FOUND
*S** ASSIGN #HOLD-EFC = 0
*S** ESCAPE ROUTINE
*S** END-NOREC
*S** IF WF-PELL.WF-PL-HI-EFC >= #PASS-EFC
*S** MOVE WF-PELL.WF-PL-HI-EFC TO #HOLD-EFC
*S** MOVE WF-PELL.WF-PL-AWARD TO #PASS-PELL-AWARD
*S** ESCAPE BOTTOM
*S** END-IF
*S** ASSIGN #PASS-SUCCESS = 'Y'
*S** END-FIND
*S** /*
*S**END-SUBROUTINE /* PELL-LOOKUP
*S**END
*E
|