C:\Users\Dan\Dropbox\WolffPack\intranet_access\Regs\2019\Natural\src\old\wfnancle.txt
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
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFNANCLE
*S*** System : FINANCIER
*S*** Title : Need Anaylsis routing subroutine
*S*** Function : This external subroutine performs the routing function
*S*** for the Needs Analysis calculations.
*S***
*S*** Copyright 1995 - 2017 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE CALC-NEED-ANALYSIS
*S*************************************************************************
*S** /*
*S** /* Perform year specific subroutine for
*S** /* need calc
*S** DECIDE FOR FIRST CONDITION
*S** WHEN ##AID-YEAR = '2018'
*S** PERFORM CALC-NEED-ANALYSIS-1718
*S** WHEN ##AID-YEAR = '2017'
*S** PERFORM CALC-NEED-ANALYSIS-1617
*S** WHEN ##AID-YEAR = '2016'
*S** PERFORM CALC-NEED-ANALYSIS-1516
*S** WHEN ##AID-YEAR = '2015'
*S** PERFORM CALC-NEED-ANALYSIS-1415
*S** WHEN ##AID-YEAR = '2014'
*S** PERFORM CALC-NEED-ANALYSIS-1314
*S** WHEN ##AID-YEAR = '2013'
*S** PERFORM CALC-NEED-ANALYSIS-1213
*S** WHEN ##AID-YEAR = '2012'
*S** PERFORM CALC-NEED-ANALYSIS-1112
*S** WHEN ##AID-YEAR = '2011'
*S** PERFORM CALC-NEED-ANALYSIS-1011
*S** WHEN ##AID-YEAR = '2010'
*S** PERFORM CALC-NEED-ANALYSIS-0910
*S** WHEN ##AID-YEAR = '2009'
*S** PERFORM CALC-NEED-ANALYSIS-0809
*S** WHEN ##AID-YEAR = '2008'
*S** PERFORM CALC-NEED-ANALYSIS-0708
*S** WHEN ##AID-YEAR = '2007'
*S** PERFORM CALC-NEED-ANALYSIS-0607
*S** WHEN ##AID-YEAR = '2006'
*S** PERFORM CALC-NEED-ANALYSIS-0506
*S** WHEN ##AID-YEAR = '2005'
*S** PERFORM CALC-NEED-ANALYSIS-0405
*S** WHEN ##AID-YEAR = '2004'
*S** PERFORM CALC-NEED-ANALYSIS-0304
*S** WHEN ##AID-YEAR = '2003'
*S** PERFORM CALC-NEED-ANALYSIS-0203
*S** WHEN ##AID-YEAR = '2002'
*S** PERFORM CALC-NEED-ANALYSIS-0102
*S** WHEN ##AID-YEAR = '2001'
*S** PERFORM CALC-NEED-ANALYSIS-0001
*S** WHEN ##AID-YEAR = '2000'
*S** PERFORM CALC-NEED-ANALYSIS-9900
*S** WHEN ##AID-YEAR = '1999'
*S** PERFORM CALC-NEED-ANALYSIS-9899
*S** WHEN ##AID-YEAR = '1998'
*S** PERFORM CALC-NEED-ANALYSIS-9798
*S** WHEN ##AID-YEAR = '1997'
*S** PERFORM CALC-NEED-ANALYSIS-9697
*S** WHEN NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* CALC-NEED-ANALYSIS
*S**END
C:\Users\Dan\Dropbox\WolffPack\intranet_access\Regs\2019\Natural\src\new\wfnancle.txt
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
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Subroutine: WFNANCLE
*S*** System : FINANCIER
*S*** Title : Need Anaylsis routing subroutine
*S*** Function : This external subroutine performs the routing function
*S*** for the Needs Analysis calculations.
*S***
*S*** Copyright 1995 - 2018 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S**END-DEFINE
*S***
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE CALC-NEED-ANALYSIS
*S*************************************************************************
*S** /*
*S** /* Perform year specific subroutine for
*S** /* need calc
*S** DECIDE FOR FIRST CONDITION
*S** WHEN ##AID-YEAR = '2019'
*S** PERFORM CALC-NEED-ANALYSIS-1819
*S** WHEN ##AID-YEAR = '2018'
*S** PERFORM CALC-NEED-ANALYSIS-1718
*S** WHEN ##AID-YEAR = '2017'
*S** PERFORM CALC-NEED-ANALYSIS-1617
*S** WHEN ##AID-YEAR = '2016'
*S** PERFORM CALC-NEED-ANALYSIS-1516
*S** WHEN ##AID-YEAR = '2015'
*S** PERFORM CALC-NEED-ANALYSIS-1415
*S** WHEN ##AID-YEAR = '2014'
*S** PERFORM CALC-NEED-ANALYSIS-1314
*S** WHEN ##AID-YEAR = '2013'
*S** PERFORM CALC-NEED-ANALYSIS-1213
*S** WHEN ##AID-YEAR = '2012'
*S** PERFORM CALC-NEED-ANALYSIS-1112
*S** WHEN ##AID-YEAR = '2011'
*S** PERFORM CALC-NEED-ANALYSIS-1011
*S** WHEN ##AID-YEAR = '2010'
*S** PERFORM CALC-NEED-ANALYSIS-0910
*S** WHEN ##AID-YEAR = '2009'
*S** PERFORM CALC-NEED-ANALYSIS-0809
*S** WHEN ##AID-YEAR = '2008'
*S** PERFORM CALC-NEED-ANALYSIS-0708
*S** WHEN ##AID-YEAR = '2007'
*S** PERFORM CALC-NEED-ANALYSIS-0607
*S** WHEN ##AID-YEAR = '2006'
*S** PERFORM CALC-NEED-ANALYSIS-0506
*S** WHEN ##AID-YEAR = '2005'
*S** PERFORM CALC-NEED-ANALYSIS-0405
*S** WHEN ##AID-YEAR = '2004'
*S** PERFORM CALC-NEED-ANALYSIS-0304
*S** WHEN ##AID-YEAR = '2003'
*S** PERFORM CALC-NEED-ANALYSIS-0203
*S** WHEN ##AID-YEAR = '2002'
*S** PERFORM CALC-NEED-ANALYSIS-0102
*S** WHEN ##AID-YEAR = '2001'
*S** PERFORM CALC-NEED-ANALYSIS-0001
*S** WHEN ##AID-YEAR = '2000'
*S** PERFORM CALC-NEED-ANALYSIS-9900
*S** WHEN ##AID-YEAR = '1999'
*S** PERFORM CALC-NEED-ANALYSIS-9899
*S** WHEN ##AID-YEAR = '1998'
*S** PERFORM CALC-NEED-ANALYSIS-9798
*S** WHEN ##AID-YEAR = '1997'
*S** PERFORM CALC-NEED-ANALYSIS-9697
*S** WHEN NONE
*S** IGNORE
*S** END-DECIDE
*S**END-SUBROUTINE /* CALC-NEED-ANALYSIS
*S**END
2 differences: 3 lines, 1 inline difference in 1 changed line
Added(2,0)
Deleted(0,0)
Changed(1)
Changed in changed(1)