TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–8 40970 Tandem Computers Incorporated
60 F9-KEY IS F9, SF9-KEY IS SF9,
61 F10-KEY IS F10, SF10-KEY IS SF10,
62 F11-KEY IS F11, SF11-KEY IS SF11,
63 F12-KEY IS F12, SF12-KEY IS SF12,
64 F13-KEY IS F13, SF13-KEY IS SF13,
65 F14-KEY IS F14, SF14-KEY IS SF14,
66 F15-KEY IS F15, SF15-KEY IS SF15,
67 F16-KEY IS F16, SF16-KEY IS SF16.
68
69 INPUT-OUTPUT SECTION.
70 SCREEN-CONTROL.
71 ERROR-ENHANCEMENT IS REVERSE IN ALL.
72
73 /
74 DATA DIVISION.
75 WORKING-STORAGE SECTION.
76
77 * Error messages for bad calls to test agent
78
79 01 CALL-ERROR-MESSAGES.
80 * Termination status = 0001
81 02 FILLER PIC X(32)
82 VALUE "Invalid Pseudocode detected ".
83 * Termination status = 0002
84 02 FILLER PIC X(32)
85 VALUE "Depending variable value to big ".
86 * Termination status = 0003
87 02 FILLER PIC X(32)
88 VALUE "Invalid subscript value ".
89 * Termination status = 0004
90 02 FILLER PIC X(32)
91 VALUE "Screen Recovery -illegal instr. ".
92 * Termination status = 0005
93 02 FILLER PIC X(32)
94 VALUE "Mismatch - number of parameters".
95 * Termination status = 0006
96 02 FILLER PIC X(32)
97 VALUE "Mismatch - size of parameters ".
98 * Termination status = 0007
99 02 FILLER PIC X(32)
100 VALUE "Screen operation without base ".
101 * Termination status = 0008
102 02 FILLER PIC X(32)
103 VALUE "Invalid data reference ".
104 * Termination status = 0009
105 02 FILLER PIC X(32)
106 VALUE "Screen illegal for term type ".
107 * Termination status = 0010
108 02 FILLER PIC X(32)
109 VALUE "Internal err in terminal format ".
110 * Termination status = 0011
111 02 FILLER PIC X(32)
112 VALUE "Illegal terminal type specified ".
113 * Termination status = 0012
114 02 FILLER PIC X(32)
115 VALUE "Screen referenced/not displayed ".
116 * Termination status = 0013
117 02 FILLER PIC X(32)
118 VALUE "Overlay screen displayed/2 areas".
119 * Termination status = 0014
120 02 FILLER PIC X(32)
121 VALUE "Illegal term IO protocol word ".
122 * Termination status = 0015
123 02 FILLER PIC X(32)
124 VALUE "Arithmetic Overflow ".
125 * Termination status = 0016
126 02 FILLER PIC X(32)
127 VALUE "Terminal stack space overflow ".
128 * Termination status = 0017