TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–11
267 88 ANOTHER-AGENT-YES VALUE "Y".
268 88 ANOTHER-AGENT-NO VALUE "N".
269
270 05 REQUEST-NEW-ITEM-CONTROL PIC X VALUE "Y".
271 88 REQUEST-NEW-ITEM-YES VALUE "Y".
272 88 REQUEST-NEW-ITEM-NO VALUE "N".
273
274 05 FINISHED-W-ITEMS-CONTROL PIC X VALUE "N".
275 88 FINISHED-W-ITEMS-YES VALUE "Y".
276 88 FINISHED-W-ITEMS-NO VALUE "N".
277
278 ************************* END CONTROL FLAGS ********
279
280 01 GLOBALS.
281 05 OPERATOR-MESSAGE PIC X(78) VALUE SPACES.
282 05 SCRN-MESSAGE PIC X(78) VALUE SPACES.
283 05 SCRN-MESSAGE-FLDS REDEFINES SCRN-MESSAGE.
284 10 ERROR-NUMBER-1 PIC S9999
285 SIGN IS LEADING SEPARATE CHARACTER.
286 10 FILLER PIC XX.
287 10 ERROR-NUMBER-2 PIC S9999
288 SIGN IS LEADING SEPARATE CHARACTER.
289 10 FILLER PIC XX.
290 10 MESSAGE-ALPHA.
291 15 MESSAGE-ALPHA-A PIC X(38).
292 15 MESSAGE-ALPHA-B PIC X(26).
293
294
295 05 SEND-ERRORS PIC X(79) VALUE SPACES.
296 05 SEND-E-MESSAGE REDEFINES SEND-ERRORS.
297 10 SE-NOTE PIC X(11).
298 10 SE-NUMBER-1 PIC 9999.
299 10 FILLER PIC XX.
300 10 SE-NUMBER-2 PIC 9999.
301 10 FILLER PIC XX.
302 10 SE-MESSAGE PIC X(56).
303
304 01 ERROR-NOTE.
305 02 PROG-NAME PIC X(26) VALUE SPACES.
306
307 ******************************************************************
308 * UOW WORK VARIABLES
309 *******************************************************************
310
311 01 UOW-WORK-VALUES.
312 05 CORRESPONDENT-NAME-VALUE PIC X(70) VALUE SPACES.
313 05 PASSWORD-VALUE PIC X(16) VALUE SPACES.
314 05 CALL-PROGRAM-VALUE PIC X(30) VALUE SPACES.
315 05 AGENT-DATA-VALUE PIC X(70) VALUE SPACES.
316 05 APPLICATION-ID PIC 9(4) VALUE ZEROS.
317 05 PROGRAM-CALLED PIC X(30) VALUE SPACES.
318 05 AGENT-SELECTOR PIC 9(4) VALUE ZEROS.
319 05 SENDER-NAME PIC X(120) VALUE SPACES.
320 05 CERTIFIED-FLAG PIC X VALUE SPACES.
321 05 SUBJECT-STRING PIC X(78) VALUE SPACES.
322 05 ERROR-RETURN PIC S9(8) VALUE ZEROS.
323 05 ITEM-FILTER-FLAG PIC X VALUE "N".
324 05 ITEM-TYPE-FILTER-VALUE PIC 9(4) VALUE ZEROS.
325 05 DESCRIPTOR-ITEM-TYPE PIC 9(4) VALUE ZEROS.
326 05 DESC-PARENT-COUNT PIC 9(4) VALUE ZEROS.
327 05 DESC-COMPONENT-COUNT PIC 9(4) VALUE ZEROS.
328 05 SENT-DATE.
329 10 SENT-MONTH PIC 9(2) VALUE ZEROS.
330 10 SENT-DAY PIC 9(2) VALUE ZEROS.
331 10 SENT-YEAR PIC 9(4) VALUE ZEROS.
332 10 SENT-HOUR PIC 9(2) VALUE ZEROS.
333 10 SENT-MINUTES PIC 9(2) VALUE ZEROS.
334 05 ITEM-UPDATE-CONTROL PIC 9(4) VALUE ZEROS.
335 05 PRIORITY PIC 9(3) VALUE ZEROS.