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
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Copycode : WWHELPRC
*S*** System : FINANCIER
*S*** Title : FINANCIER Helproutine Logic
*S*** Function : This is the standard FINANCIER helproutine
*S*** logic, copied into a variety of Helproutines
*S*** that manage help functions for different size
*S*** fields.
*S***
*S*** Copyright 1995 - 2003 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S***
*S*** Help windows will 'override' frame color of previous window
*S*** need to define windows to reset to
*S***
*S** DEFINE WINDOW RED
*S** CONTROL SCREEN
*S** FRAMED ON (CD=RE)
*S** POSITION OFF
*S** DEFINE WINDOW TURQUOIS
*S** CONTROL SCREEN
*S** FRAMED ON (CD=TU)
*S** POSITION OFF
*S** DEFINE WINDOW YELLOW
*S** CONTROL SCREEN
*S** FRAMED ON (CD=YE)
*S** POSITION OFF
*S** DEFINE WINDOW NEUTRAL
*S** CONTROL SCREEN
*S** FRAMED ON (CD=NE)
*S** POSITION OFF
*S** DEFINE WINDOW BLUE
*S** CONTROL SCREEN
*S** FRAMED ON (CD=BL)
*S** POSITION OFF
*S** DEFINE WINDOW GREEN
*S** CONTROL SCREEN
*S** FRAMED ON (CD=GR)
*S** POSITION OFF
*S** DEFINE WINDOW PINK
*S** CONTROL SCREEN
*S** FRAMED ON (CD=PI)
*S** POSITION OFF
*S**PERFORM INITIALIZATIONS
*S**SET KEY ALL
*S**MOVE #PDA-HPARM TO #HPARM
*S***
*S*** Translate & characters to current language,
*S*** also determine the length.
*S**ASSIGN #LANGUAGE = *LANGUAGE
*S**ASSIGN #PF-KEY = *PF-KEY
*S**EXAMINE #HPARM FOR '&' REPLACE WITH #LANGUAGE-A
*S** GIVING LENGTH #LENGTH
*S**EXAMINE #HPARM FOR '.' GIVING NUMBER #COUNT-A
*S**EXAMINE #HPARM FOR '#' GIVING NUMBER #COUNT-B
*S**COMPUTE #COUNT = #COUNT-A + #COUNT-B
*S****
*S**** Check for Shadow file name
*S****
*S** IF SUBSTRING(#HPARM,1,8) = MASK(X......X) 'W......S'
*S** MOVE 'D' TO SUBSTRING(#HPARM,8,1)
*S** END-IF
*S****
*S**** Determine if valid values should be accessed.
*S****
*S** IF #PF-KEY = 'PF2'
*S** IF #COUNT-A NOT > 0 /* GDA or program variable
*S** /*
*S** /* Setup GDA and Program fields
*S** EXAMINE #HPARM FOR '##' REPLACE WITH 'WW-GDA-'
*S** EXAMINE #HPARM FOR '#' REPLACE WITH 'WF-PGM-'
*S** COMPRESS 'WWSYSVRD.' #HPARM INTO #HPARM LEAVING NO
*S** END-IF
*S** SEPARATE #HPARM INTO #VALUE-FILE #VALUE-FIELD WITH DELIMITER '.'
*S** /*
*S** /* Determine whether to use Dictionary or External file for
*S** /* browse function
*S** PERFORM DETERMINE-DICT-LOOKUP #VALUE-FILE #VALUE-FIELD
*S** #DICT-LOOKUP #EXT-TYPE
*S** IF #DICT-LOOKUP
*S** MOVE ##PASS-KEY TO #HOLD-PASS-KEY
*S** RESET ##PASS-KEY
*S** CALLNAT 'WWVALBRN' WW-GDA #VALUE-BROWSE
*S** MOVE #HOLD-PASS-KEY TO ##PASS-KEY
*S** IF ##PASS-TEMP = 'REFERENCE-EXT' /* Indicates that values are
*S** PERFORM EXT-FILE-BROWSE /* to be used from External
*S** END-IF /* file
*S** ELSE
*S** MOVE #EXT-TYPE TO #VALUE-TYPE
*S** PERFORM EXT-FILE-BROWSE
*S** END-IF
*S** PERFORM SET-KEYS
*S** /*
*S** /* Only write access allowed for passback
*S** IF ##PASS-SECURITY = 'W'
*S** IF #VALUE NE ' '
*S** MOVE #VALUE TO #PASSBACK-VALUE
*S** END-IF
*S** END-IF
*S** ELSE
*S** /*
*S** /* Determine if element help or program help should be accessed.
*S** /* (No '.' in #PDA-HPARM signifies program help)
*S** IF #COUNT > 0
*S** CALLNAT 'WWDICTDN' WW-GDA #HPARM
*S** ELSE
*S** EXAMINE SUBSTRING(#HPARM,1,2) FOR 'WW' GIVING NUMBER #COUNT
*S** IF #COUNT > 0
*S** COMPRESS 'WW-' #HPARM INTO #HPARM LEAVING NO
*S** END-IF
*S** EXAMINE SUBSTRING(#HPARM,1,2) FOR 'WF' GIVING NUMBER #COUNT
*S** IF #COUNT > 0
*S** COMPRESS 'WF-' #HPARM INTO #HPARM LEAVING NO
*S** END-IF
*S** COMPRESS 'WW-SCREENHELP.' #HPARM INTO #HPARM LEAVING NO
*S** CALLNAT 'WWDICTDN' WW-GDA #HPARM
*S** END-IF
*S** PERFORM SET-KEYS
*S** END-IF
*S***
*S**PERFORM FINAL-PROCESSING
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE EXT-FILE-BROWSE
*S*************************************************************************
*S** /*
*S** CALLNAT 'WWEXTBRN' WW-GDA #VALUE-BROWSE
*S** /*
*S**END-SUBROUTINE /* EXT-FILE-BROWSE
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE INITIALIZATIONS
*S*************************************************************************
*S** INCLUDE WWBEGIN /* Capture Environment
*S**END-SUBROUTINE /* INITIALIZATIONS
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE FINAL-PROCESSING
*S*************************************************************************
*S***
*S** INCLUDE WWEND /* Restore environment.
*S** /*
*S** /* Utilize SET WINDOW command to reset frame color
*S** DECIDE ON FIRST VALUE ##COLOR
*S** VALUE 'RE'
*S** SET WINDOW 'RED'
*S** VALUE 'TU'
*S** SET WINDOW 'TURQUOIS'
*S** VALUE 'YE'
*S** SET WINDOW 'YELLOW'
*S** VALUE 'NE'
*S** SET WINDOW 'NEUTRAL'
*S** VALUE 'BL'
*S** SET WINDOW 'BLUE'
*S** VALUE 'GR'
*S** SET WINDOW 'GREEN'
*S** VALUE 'PI'
*S** SET WINDOW 'PINK'
*S** NONE /* Default 'Neutral' for
*S** SET WINDOW 'NEUTRAL' /* subroutines without GDA
*S** END-DECIDE
*S**END-SUBROUTINE /* FINAL-PROCESSING
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE SET-KEYS
*S*************************************************************************
*S** INCLUDE WWSETKEY
*S**END-SUBROUTINE /* SET-KEYS
*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
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
*S*************************************************************************
*S***
*S*** WolffPack
*S***
*S*** Copycode : WWHELPRC
*S*** System : FINANCIER
*S*** Title : FINANCIER Helproutine Logic
*S*** Function : This is the standard FINANCIER helproutine
*S*** logic, copied into a variety of Helproutines
*S*** that manage help functions for different size
*S*** fields.
*S***
*S*** Copyright 1995 - 2003 WolffPack, Inc. All rights reserved.
*S***
*S*************************************************************************
*S***
*S*** Help windows will 'override' frame color of previous window
*S*** need to define windows to reset to
*S***
*S** DEFINE WINDOW RED
*S** CONTROL SCREEN
*S** FRAMED ON (CD=RE)
*S** POSITION OFF
*S** DEFINE WINDOW TURQUOIS
*S** CONTROL SCREEN
*S** FRAMED ON (CD=TU)
*S** POSITION OFF
*S** DEFINE WINDOW YELLOW
*S** CONTROL SCREEN
*S** FRAMED ON (CD=YE)
*S** POSITION OFF
*S** DEFINE WINDOW NEUTRAL
*S** CONTROL SCREEN
*S** FRAMED ON (CD=NE)
*S** POSITION OFF
*S** DEFINE WINDOW BLUE
*S** CONTROL SCREEN
*S** FRAMED ON (CD=BL)
*S** POSITION OFF
*S** DEFINE WINDOW GREEN
*S** CONTROL SCREEN
*S** FRAMED ON (CD=GR)
*S** POSITION OFF
*S** DEFINE WINDOW PINK
*S** CONTROL SCREEN
*S** FRAMED ON (CD=PI)
*S** POSITION OFF
*S**PERFORM INITIALIZATIONS
*S**SET KEY ALL
*S**MOVE #PDA-HPARM TO #HPARM
*S***
*S*** Translate & characters to current language,
*S*** also determine the length.
*S**ASSIGN #LANGUAGE = *LANGUAGE
*S**ASSIGN #PF-KEY = *PF-KEY
*S**EXAMINE #HPARM FOR '&' REPLACE WITH #LANGUAGE-A
*S** GIVING LENGTH #LENGTH
*S**EXAMINE #HPARM FOR '.' GIVING NUMBER #COUNT-A
*S**EXAMINE #HPARM FOR '#' GIVING NUMBER #COUNT-B
*S**COMPUTE #COUNT = #COUNT-A + #COUNT-B
*S****
*S**** Check for Shadow file name
*S****
*S** IF SUBSTRING(#HPARM,1,8) = MASK(X......X) 'W......S'
*S** MOVE 'D' TO SUBSTRING(#HPARM,8,1)
*S** END-IF
*S****
*S**** Determine if valid values should be accessed.
*S****
*S** IF #PF-KEY = 'PF2'
*S** IF #COUNT-A NOT > 0 /* GDA or program variable
*S** /*
*S** /* Setup GDA and Program fields
*S** EXAMINE #HPARM FOR '##' REPLACE WITH 'WW-GDA-'
*S** EXAMINE #HPARM FOR '#' REPLACE WITH 'WF-PGM-'
*S** COMPRESS 'WWSYSVRD.' #HPARM INTO #HPARM LEAVING NO
*S** END-IF
*S** IF #LENGTH > 29 AND
*S** #COUNT-A > 0
*S** SEPARATE #HPARM INTO #VALUE-FILE #HOLD-PASS-KEY
*S** WITH DELIMITER '.'
*S** MOVE #HOLD-PASS-KEY TO #VALUE-FIELD
*S** ELSE
*S** SEPARATE #HPARM INTO #VALUE-FILE #VALUE-FIELD WITH DELIMITER '.'
*S** END-IF
*S** /*
*S** /* Determine whether to use Dictionary or External file for
*S** /* browse function
*S** PERFORM DETERMINE-DICT-LOOKUP #VALUE-FILE #VALUE-FIELD
*S** #DICT-LOOKUP #EXT-TYPE
*S** IF #DICT-LOOKUP
*S** MOVE ##PASS-KEY TO #HOLD-PASS-KEY
*S** RESET ##PASS-KEY
*S** CALLNAT 'WWVALBRN' WW-GDA #VALUE-BROWSE
*S** MOVE #HOLD-PASS-KEY TO ##PASS-KEY
*S** IF ##PASS-TEMP = 'REFERENCE-EXT' /* Indicates that values are
*S** PERFORM EXT-FILE-BROWSE /* to be used from External
*S** END-IF /* file
*S** ELSE
*S** MOVE #EXT-TYPE TO #VALUE-TYPE
*S** PERFORM EXT-FILE-BROWSE
*S** END-IF
*S** PERFORM SET-KEYS
*S** /*
*S** /* Only write access allowed for passback
*S** IF ##PASS-SECURITY = 'W'
*S** IF #VALUE NE ' '
*S** MOVE #VALUE TO #PASSBACK-VALUE
*S** END-IF
*S** END-IF
*S** ELSE
*S** /*
*S** /* Determine if element help or program help should be accessed.
*S** /* (No '.' in #PDA-HPARM signifies program help)
*S** IF #COUNT > 0
*S** CALLNAT 'WWDICTDN' WW-GDA #HPARM
*S** ELSE
*S** EXAMINE SUBSTRING(#HPARM,1,2) FOR 'WW' GIVING NUMBER #COUNT
*S** IF #COUNT > 0
*S** COMPRESS 'WW-' #HPARM INTO #HPARM LEAVING NO
*S** END-IF
*S** EXAMINE SUBSTRING(#HPARM,1,2) FOR 'WF' GIVING NUMBER #COUNT
*S** IF #COUNT > 0
*S** COMPRESS 'WF-' #HPARM INTO #HPARM LEAVING NO
*S** END-IF
*S** COMPRESS 'WW-SCREENHELP.' #HPARM INTO #HPARM LEAVING NO
*S** CALLNAT 'WWDICTDN' WW-GDA #HPARM
*S** END-IF
*S** PERFORM SET-KEYS
*S** END-IF
*S***
*S**PERFORM FINAL-PROCESSING
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE EXT-FILE-BROWSE
*S*************************************************************************
*S** /*
*S** CALLNAT 'WWEXTBRN' WW-GDA #VALUE-BROWSE
*S** /*
*S**END-SUBROUTINE /* EXT-FILE-BROWSE
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE INITIALIZATIONS
*S*************************************************************************
*S** INCLUDE WWBEGIN /* Capture Environment
*S**END-SUBROUTINE /* INITIALIZATIONS
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE FINAL-PROCESSING
*S*************************************************************************
*S***
*S** INCLUDE WWEND /* Restore environment.
*S** /*
*S** /* Utilize SET WINDOW command to reset frame color
*S** DECIDE ON FIRST VALUE ##COLOR
*S** VALUE 'RE'
*S** SET WINDOW 'RED'
*S** VALUE 'TU'
*S** SET WINDOW 'TURQUOIS'
*S** VALUE 'YE'
*S** SET WINDOW 'YELLOW'
*S** VALUE 'NE'
*S** SET WINDOW 'NEUTRAL'
*S** VALUE 'BL'
*S** SET WINDOW 'BLUE'
*S** VALUE 'GR'
*S** SET WINDOW 'GREEN'
*S** VALUE 'PI'
*S** SET WINDOW 'PINK'
*S** NONE /* Default 'Neutral' for
*S** SET WINDOW 'NEUTRAL' /* subroutines without GDA
*S** END-DECIDE
*S**END-SUBROUTINE /* FINAL-PROCESSING
*S***
*S*************************************************************************
*S**DEFINE SUBROUTINE SET-KEYS
*S*************************************************************************
*S** INCLUDE WWSETKEY
*S**END-SUBROUTINE /* SET-KEYS
*E
|