C:\Documents and Settings\Dan\My Documents\share\FINANCIER\releases\Natural\1210-99\old\ww-quit .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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Program : WW-QUIT
*S*** System : FINANCIER
*S*** Title : FINANCIER Terminate
*S*** Function : This is the termination program for FINANCIER.
*S***
*S*** Copyright 1995 - 2003 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S***
*S** LOCAL USING WWCONST /* Constants LDA
*S** LOCAL USING WWDIALDA /* Common local data.
*S** LOCAL USING WWENVIRA /* Used to capture/restore previous environment.
*S** LOCAL USING WWKEYLDA /* Used to set function keys + their alias.
*S***
*S** LOCAL
*S** 01 #APPLICATION-NAME(A25) INIT <'FINANCIER'>
*S** 01 #LAST-OBJECT(A8) /* Object which initiated quit.
*S** 01 #LAST-PF-KEY(A4)
*S** 01 #RESUME-PF-KEY(A4)
*S** 01 #QUIT-INDEX(P3) /* Index of quit key in WWKEYLDA table.
*S** 01 #USE-STANDARD-QUIT-KEY(L)
*S** /*
*S** /* Variables Requirement routine
*S** 01 #REQMNTS(3)
*S** 02 #REQMNT-TYPE(A1) /* (A/Application, D/Disbursement)
*S** INIT (1)<' '> (2)<' '> (3)<' '>
*S** 02 #REQMNT-DOC(A6) /* Document mnemonic
*S** INIT (1)<' '> (2)<' '> (3)<' '>
*S** 02 #REQMNT-PD(A2) /* (ST/Student, AY/Aid Year)
*S** INIT (1)<' '> (2)<' '> (3)<' '>
*S**END-DEFINE
*S***
*S***
*S**FORMAT KD=ON
*S**ASSIGN #PROGRAM = *PROGRAM
*S***
*S*** Input last object, process if required.
*S**IF *DATA GT 0 THEN
*S** INPUT #LAST-OBJECT
*S**END-IF
*S***
*S**DEFINE WINDOW VERFEXIT
*S** SIZE 7*47
*S** BASE 8 / 17
*S** TITLE 'Termination Confirmation'
*S** CONTROL SCREEN
*S** FRAMED ON (CD=RE)
*S** POSITION OFF
*S**SET WINDOW 'VERFEXIT'
*S***
*S*** If quit program was invoked via a FETCH RETURN, allow the user to
*S*** confirm the QUIT operation.
*S**IF *LEVEL GT 1 THEN
*S** /*
*S** ASSIGN #RESUME-PF-KEY = 'ENTR'
*S** ASSIGN #LAST-PF-KEY = WWKEYLDA.#RETURN-KEY
*S** /*
*S** CALLNAT 'WWENVIRP' WW-GDA WWENVIRA /* Capture current environment.
*S** /*
*S** PERFORM DEFINE-KEYS
*S** PERFORM SET-KEYS
*S** INPUT(AD=OD IP=OFF CD=YE)
*S** / 1X 'Retrn'(CD=YE) 'was selected ...'(CD=NE)
*S** / 1X 'Press'(CD=NE) 'Retrn'(CD=YE) 'again to exit from'(CD=NE)
*S** #APPLICATION-NAME(CD=RE)
*S** / 1X 'Press'(CD=NE) 'Enter'(CD=YE)
*S** 'to return to the Menu Bar'(CD=NE)
*S***
*S** DECIDE ON FIRST VALUE *PF-KEY
*S** VALUE #LAST-PF-KEY
*S** IGNORE /* Continue quit processing.
*S** VALUE #RESUME-PF-KEY
*S** /*
*S** /* Restore window and return to the invoking object.
*S** CALLNAT 'WWENVIRP' WW-GDA WWENVIRA
*S** ESCAPE ROUTINE
*S** NONE
*S** REINPUT 'Press:1:to quit, Press:2:to resume:3:',
*S** #LAST-PF-KEY, #RESUME-PF-KEY, #APPLICATION-NAME ALARM
*S** END-DECIDE
*S**END-IF
*S***
*S*** Reset screen base.
*S**ASSIGN *ERROR-TA = ' ' /* Restore default NATURAL error trapping.
*S**SET CONTROL 'WB'
*S**RELEASE STACK
*S**RELEASE SETS
*S**BACKOUT TRANSACTION
*S**NEWPAGE
*S***
*S*** Financier defaults to 'STOP', this may be modified
*S*** to 'TERMINATE' to end the Natural session if desired
*S**STOP
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE DEFINE-KEYS
*S*************************************************************************
*S***
*S*** Assign PF Keys used and place at bottom of screen
*S** RESET WWKEYLDA.#KEY-INITS
*S** RESET INITIAL WWKEYLDA.#RETURN-KEY
*S** SET CONTROL 'YB'
*S**END-SUBROUTINE /* DEFINE-KEYS
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE SET-KEYS
*S*************************************************************************
*S***
*S*** Set defined keys
*S** INCLUDE WWSETKEY
*S**END-SUBROUTINE /* SET-KEYS
*S**END
C:\Documents and Settings\Dan\My Documents\share\FINANCIER\releases\Natural\1210-99\new\ww-quit .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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Program : WW-QUIT
*S*** System : FINANCIER
*S*** Title : FINANCIER Terminate
*S*** Function : This is the termination program for FINANCIER.
*S***
*S*** Copyright 1995 - 2011 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S**DEFINE DATA
*S** GLOBAL USING WWGDA
*S***
*S** LOCAL USING WWCONST /* Constants LDA
*S** LOCAL USING WWDIALDA /* Common local data.
*S** LOCAL USING WWENVIRA /* Used to capture/restore previous environment.
*S** LOCAL USING WWKEYLDA /* Used to set function keys + their alias.
*S***
*S** LOCAL
*S** 01 #APPLICATION-NAME(A25) INIT <'FINANCIER'>
*S** 01 #LAST-OBJECT(A8) /* Object which initiated quit.
*S** 01 #LAST-PF-KEY(A4)
*S** 01 #RESUME-PF-KEY(A4)
*S** 01 #QUIT-INDEX(P3) /* Index of quit key in WWKEYLDA table.
*S** 01 #USE-STANDARD-QUIT-KEY(L)
*S** /*
*S** /* Variables Requirement routine
*S** 01 #REQMNTS(3)
*S** 02 #REQMNT-TYPE(A1) /* (A/Application, D/Disbursement)
*S** INIT (1)<' '> (2)<' '> (3)<' '>
*S** 02 #REQMNT-DOC(A6) /* Document mnemonic
*S** INIT (1)<' '> (2)<' '> (3)<' '>
*S** 02 #REQMNT-PD(A2) /* (ST/Student, AY/Aid Year)
*S** INIT (1)<' '> (2)<' '> (3)<' '>
*S**END-DEFINE
*S***
*S***
*S**FORMAT KD=ON
*S**ASSIGN #PROGRAM = *PROGRAM
*S***
*S*** Input last object, process if required.
*S**IF *DATA GT 0 THEN
*S** INPUT #LAST-OBJECT
*S**END-IF
*S***
*S**DEFINE WINDOW VERFEXIT
*S** SIZE 7*47
*S** BASE 8 / 17
*S** TITLE 'Termination Confirmation'
*S** CONTROL SCREEN
*S** FRAMED ON (CD=RE)
*S** POSITION OFF
*S**SET WINDOW 'VERFEXIT'
*S***
*S*** If quit program was invoked via a FETCH RETURN, allow the user to
*S*** confirm the QUIT operation.
*S**IF *LEVEL GT 1 THEN
*S** /*
*S** ASSIGN #RESUME-PF-KEY = 'ENTR'
*S** ASSIGN #LAST-PF-KEY = WWKEYLDA.#RETURN-KEY
*S** /*
*S** CALLNAT 'WWENVIRP' WW-GDA WWENVIRA /* Capture current environment.
*S** /*
*S** PERFORM DEFINE-KEYS
*S** PERFORM SET-KEYS
*S** INPUT(AD=OD IP=OFF CD=YE)
*S** / 1X 'Retrn'(CD=YE) 'was selected ...'(CD=NE)
*S** / 1X 'Press'(CD=NE) 'Retrn'(CD=YE) 'again to exit from'(CD=NE)
*S** #APPLICATION-NAME(CD=RE)
*S** / 1X 'Press'(CD=NE) 'Enter'(CD=YE)
*S** 'to return to the Menu Bar'(CD=NE)
*S***
*S** DECIDE ON FIRST VALUE *PF-KEY
*S** VALUE #LAST-PF-KEY
*S** IGNORE /* Continue quit processing.
*S** VALUE #RESUME-PF-KEY
*S** /*
*S** /* Restore window and return to the invoking object.
*S** CALLNAT 'WWENVIRP' WW-GDA WWENVIRA
*S** SET CONTROL 'WB' /* Reset Window
*S** SET CONTROL 'YB' /* Show keys at bottom of screen
*S** SET CONTROL 'YF' /* Show keys 1-12
*S** ESCAPE ROUTINE
*S** NONE
*S** REINPUT 'Press:1:to quit, Press:2:to resume:3:',
*S** #LAST-PF-KEY, #RESUME-PF-KEY, #APPLICATION-NAME ALARM
*S** END-DECIDE
*S**END-IF
*S***
*S*** Reset screen base.
*S**ASSIGN *ERROR-TA = ' ' /* Restore default NATURAL error trapping.
*S**SET CONTROL 'WB'
*S**RELEASE STACK
*S**RELEASE SETS
*S**BACKOUT TRANSACTION
*S**NEWPAGE
*S***
*S*** Financier defaults to 'STOP', this may be modified
*S*** to 'TERMINATE' to end the Natural session if desired
*S**STOP
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE DEFINE-KEYS
*S*************************************************************************
*S***
*S*** Assign PF Keys used and place at bottom of screen
*S** RESET WWKEYLDA.#KEY-INITS
*S** RESET INITIAL WWKEYLDA.#RETURN-KEY
*S** SET CONTROL 'YB'
*S**END-SUBROUTINE /* DEFINE-KEYS
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE SET-KEYS
*S*************************************************************************
*S***
*S*** Set defined keys
*S** INCLUDE WWSETKEY
*S**END-SUBROUTINE /* SET-KEYS
*S**END
Number of differences: 2
Added(3,0)
Deleted(0,0)
Changed(1)
Changed in changed(1)
Ignored