TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–9
129 02 FILLER PIC X(32)
130 VALUE "Error during terminal open ".
131 * Termination status = 0018
132 02 FILLER PIC X(32)
133 VALUE "Error during terminal IO ".
134 * Termination status = 0019
135 02 FILLER PIC X(32)
136 VALUE "Wrong transfer count in term IO ".
137 * Termination status = 0020
138 02 FILLER PIC X(32)
139 VALUE "Called program unit not found ".
140 * Termination status = 0021
141 02 FILLER PIC X(32)
142 VALUE "Transaction msg send failure ".
143 * Termination status = 0022
144 02 FILLER PIC X(32)
145 VALUE "Send:server class name invalid ".
146 * Termination status = 0023
147 02 FILLER PIC X(32)
148 VALUE "Pseudocode size too big ".
149 * Termination status = 0024
150 02 FILLER PIC X(32)
151 VALUE "TCLPROG directory entry is bad ".
152 * Termination status = 0025
153 02 FILLER PIC X(32)
154 VALUE "Term input data stream invalid ".
155 * Termination status = 0026
156 02 FILLER PIC X(32)
157 VALUE "Program unit has wrong term type".
158 * Termination status = 0027
159 02 FILLER PIC X(32)
160 VALUE "Transaction mode violation ".
161 * Termination status = 0028
162 02 FILLER PIC X(32)
163 VALUE "Transaction IO error ".
164 * Termination status = 0029
165 02 FILLER PIC X(32)
166 VALUE "Trans. restart limit reached ".
167 * Termination status = 0030
168 02 FILLER PIC X(32)
169 VALUE "TMF not configured ".
170 * Termination status = 0031
171 02 FILLER PIC X(32)
172 VALUE "TMF not running ".
173 01 ERROR-ARRAY REDEFINES CALL-ERROR-MESSAGES.
174 02 CALL-ERROR-MESSAGE
175 OCCURS 31 TIMES PIC X(32).
176
177 01 SEND-ERROR-MESSAGES.
178 * Termination status = 0001
179 02 FILLER PIC X(32)
180 VALUE "SE#1 Server class frozen ".
181 * Termination status = 0002
182 02 FILLER PIC X(32)
183 VALUE "SE#2 Resource unavailable ".
184 * Termination status = 0003
185 02 FILLER PIC X(32)
186 VALUE "SE#3 Resource unavailable ".
187 * Termination status = 0004
188 02 FILLER PIC X(32)
189 VALUE "SE#4 Link denied ".
190 * Termination status = 0005
191 02 FILLER PIC X(32)
192 VALUE "SE#5 Server class undefined ".
193 * Termination status = 0006
194 02 FILLER PIC X(32)
195 VALUE "SE#6 Illegal server class name ".
196 * Termination status = 0007
197 02 FILLER PIC X(32)