TRANSFER Programming Manual
Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–7
Agent Tester
Program Code
The following pages list agent tester program code.
PATHWAY SCREEN COBOL - T9153C11 - (01SEP90) SOURCE LANGUAGE: SCOBOL TARGET MACHINE: TCP/INTERP
COMPILED: 31 OCT 90 13:32:45 OPTIONS: ON - (LIST,WARN) OFF - (MAP,SYMBOLS,CROSSREF)
1 ?SYMBOLS
2 **********************************************************************
3 * *
4 * AGENT DEBUGGER -- CALL AGENT AS IF FROM A TAREQ. *
5 * *
6 **********************************************************************
7 * This program presents a screen that asks the user to enter *
8 * the following information: *
9 * *
10 * Correspondent or depot name *
11 * Password *
12 * Name of the SCREEN COBOL agent object module *
13 * Agent Data *
14 * *
15 * The program then takes the following actions: *
16 * *
17 * Starts the session *
18 * Scans the INBOX for a package *
19 * Gets the item descriptor of the package if it exists *
20 * Gets the subject line of the package if it is a mail *
21 * package (application ID=111, Record type = 115, *
22 * REC-SEQ-NUM = 1) *
23 * Calls the agent whose name the user supplied *
24 * and pass all available data via AG-LNK-AGENT-LINK. *
25 * (Note: The agent profile message is not retrieved *
26 * from the agent selection record. The relevant data *
27 * is submitted by the user on the agent data screen.) *
28 * Displays any error messages upon return from the call. *
29 * Ends the session. *
30 * *
31 **********************************************************************
32
33 IDENTIFICATION DIVISION.
34 PROGRAM-ID. AGENTEST.
35 Author. TANDEM
36 DATE-WRITTEN. 12 NOV 84
37 DATE-COMPILED. 90/10/31 - 13:32:57.
39 ENVIRONMENT DIVISION.
40 CONFIGURATION SECTION.
41 SOURCE-COMPUTER. T16.
42 OBJECT-COMPUTER. T16
43 TERMINAL IS T16-6530.
44 SPECIAL-NAMES.
45 BLINK IS BLINK, NOBLINK IS NOBLINK,
46 NORMAL IS NORMAL, MDTON IS MDTON,
47 REVERSE IS REVERSE, NOREVERSE IS NOREVERSE,
48 DIM IS DIM, UNDERLINE IS UNDERLINE,
49 MDTOFF IS MDTOFF, HIDDEN IS HIDDEN,
50 ERROR-ATTR IS (reverse),
51 ADVICE IS (DIM, REVERSE),
52 F1-KEY IS F1, SF1-KEY IS SF1,
53 F2-KEY IS F2, SF2-KEY IS SF2,
54 F3-KEY IS F3, SF3-KEY IS SF3,
55 F4-KEY IS F4, SF4-KEY IS SF4,
56 F5-KEY IS F5, SF5-KEY IS SF5,
57 F6-KEY IS F6, SF6-KEY IS SF6,
58 F7-KEY IS F7, SF7-KEY IS SF7,
59 F8-KEY IS F8, SF8-KEY IS SF8,