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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFPKLEUE
*S*** System : FINANCIER
*S*** Title : Pell previous year lookup
*S*** Function : This subroutine retrieves Pell data for LEU processing.
*S***
*S*** Copyright 1995 - 2013 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #CPS-EXISTS(A1)
*S** 01 #LEU-AMOUNT(P4.3)
*S***
*S** LOCAL
*S** 01 #PASS-KEY(A30)
*S** 01 #PASS-TEMP(A30)
*S**END-DEFINE
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE GET-PRIOR-YR-PELL-LEU
*S*************************************************************************
*S** /*
*S** /* Get CPS data for student
*S** DECIDE FOR FIRST CONDITION
*S** WHEN ##AID-YEAR = '2013'
*S** PERFORM LOOKUP-PELL-LEU-1112 #CPS-EXISTS #LEU-AMOUNT
*S** WHEN ##AID-YEAR = '2012'
*S** PERFORM LOOKUP-PELL-LEU-1011 #CPS-EXISTS #LEU-AMOUNT
*S** WHEN NONE
*S** IGNORE
*S** END-DECIDE
*S** /*
*S**END-SUBROUTINE /* GET-PRIOR-YR-PELL-LEU
*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
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFPKLEUE
*S*** System : FINANCIER
*S*** Title : Pell previous year lookup
*S*** Function : This subroutine retrieves Pell data for LEU processing.
*S***
*S*** Copyright 1995 - 2013 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S** PARAMETER
*S** 01 #CPS-EXISTS(A1)
*S** 01 #LEU-AMOUNT(P4.3)
*S***
*S** LOCAL
*S** 01 #PASS-KEY(A30)
*S** 01 #PASS-TEMP(A30)
*S**END-DEFINE
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE GET-PRIOR-YR-PELL-LEU
*S*************************************************************************
*S** /*
*S** /* Get CPS data for student
*S** DECIDE FOR FIRST CONDITION
*S** WHEN ##AID-YEAR = '2013'
*S** PERFORM LOOKUP-PELL-LEU-1112 #CPS-EXISTS #LEU-AMOUNT
*S** WHEN NONE
*S** IGNORE
*S** END-DECIDE
*S** /*
*S**END-SUBROUTINE /* GET-PRIOR-YR-PELL-LEU
*S**END
|