TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–10 40970 Tandem Computers Incorporated
198 VALUE "SE#7 Message is too large ".
199 * Termination status = 0008
200 02 FILLER PIC X(32)
201 VALUE "SE#8 Maximum reply too large ".
202 * Termination status = 0009
203 02 FILLER PIC X(32)
204 VALUE "SE#9 Unused error message ".
205 * Termination status = 0010
206 02 FILLER PIC X(32)
207 VALUE "SE#10 Undefined reply ".
208 * Termination status = 0011
209 02 FILLER PIC X(32)
210 VALUE "SE#11 Reply length invalid ".
211 * Termination status = 0012
212 02 FILLER PIC X(32)
213 VALUE "SE#12 I/O error ".
214 * Termination status = 0013
215 02 FILLER PIC X(32)
216 VALUE "SE#13 Transaction move violation".
217 * Termination status = 0014
218 02 FILLER PIC X(32)
219 VALUE "SE#14 No pmcb available ".
220 * Termination status = 0015
221 02 FILLER PIC X(32)
222 VALUE "SE#15 Undefined system reply ".
223 * Termination status = 0016
224 02 FILLER PIC X(32)
225 VALUE "SE#16 Illegal system name ".
226 * Termination status = 0017
227 02 FILLER PIC X(32)
228 VALUE "SE#17 Undefined system reply ".
229 * Termination status = 0018
230 02 FILLER PIC X(32)
231 VALUE "SE#18 PATHMON I/O error ".
232 01 SEND-ARRAY REDEFINES SEND-ERROR-MESSAGES.
233 02 SEND-ERROR-MESSAGE
234 OCCURS 16 TIMES PIC X(32).
235
236 01 LOCAL-STUFF.
237 05 ERROR-CODE PIC 9999 VALUE ZERO.
238
239 01 ACCEPT-TIME-AREA.
240 05 ACCEPT-TIME-IN-8 PIC 9(8).
241 05 ACCEPT-TIME-REDEF REDEFINES ACCEPT-TIME-IN-8.
242 09 ACCEPT-TIME-OUT-6 PIC 9(6).
243 09 FILLER PIC 9(2).
244
245 *********** CONTROL FLAGS *********************
246
247 01 CONTROL-FLAGS.
248 05 OPERATION-CHOICE PIC 9(4) COMP.
249 05 FATAL-ERRORS-CONTROL PIC X VALUE "N".
250 88 FATAL-ERRORS-YES VALUE "Y".
251 88 FATAL-ERRORS-NO VALUE "N".
252
253 05 SESSION-STARTED-CONTROL PIC X VALUE "N".
254 88 SESSION-STARTED-YES VALUE "Y".
255 88 SESSION-STARTED-NO VALUE "N".
256
257 05 PROGRAM-EXIT-CONTROL PIC X VALUE "N".
258 88 PROGRAM-EXIT-YES VALUE "Y".
259 88 PROGRAM-EXIT-NO VALUE "N".
260
261 05 SCAN-FOLDERS-DONE-CONTROL PIC X VALUE "N".
262 88 SCAN-FOLDERS-DONE-YES VALUE "Y".
263 88 SCAN-FOLDERS-DONE-NO VALUE "N".
264
265
266 05 ANOTHER-AGENT-CONTROL PIC X VALUE "N".