TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–12 40970 Tandem Computers Incorporated
336 05 DATA-RECORD-TYPE PIC 9(4) VALUE ZEROS.
337 05 SEQUENCE-NUMBER PIC 9(5) VALUE ZEROS.
338 05 AGENT-SELECT PIC 9(4) VALUE ZEROS.
339 01 LAST-ITEM-ID-GOT PIC X(12) VALUE SPACES.
340 01 ITEM-FIRST-TOSCAN PIC X(12) VALUE SPACES.
341 01 ITEM-INDEX PIC 9(2) VALUE ZEROS.
342 01 MAX-INDEX-VALUE PIC 9(2) VALUE ZEROS.
343
344 01 IH-IPC.
345 * COPY IH-IPC-HDR OF "GCOB".
2< 281 * Definition IPC-HDR created on 12/01/86 at 14:26
2< 282 05 IH-IPC-HDR.
2< 283 10 IH-REQUEST-CODE PIC S9(4) COMP.
2< 284 88 IH-STOP-ON-WARNING Value is -1.
2< 285 88 IH-STOP-ON-ERR Value is -2.
2< 286 88 IH-DO-ALL-UOWS Value is -3.
2< 287 10 IH-PW-REPLY-CODE REDEFINES IH-REQUEST-CODE PIC S9(4) COMP.
2< 288 88 IH-ALL-UOWS-OK Value is 0.
2< 289 88 IH-UOWS-WITH-WARNING Value is 1.
2< 290 88 IH-UOWS-WITH-ERR Value is 2.
2< 291 88 IH-RQST-ERR Value is 3.
2< 292 10 FILLER PIC X.
2< 293 10 IH-VERSION-CODE.
2< 294 15 IH-LETTER PIC A value "B".
2< 295 15 IH-REV-NUMBER PIC 99 value 40.
2< 296 10 IH-IPC-RETN-CODE PIC S9(4) COMP
2< 297 VALUE 0.
2< 298 88 IH-IPC-OK Value is 0.
2< 299 88 IH-INVALID-VERSION-CODE Value is 1.
2< 300 88 IH-INVALID-SESSION-ID Value is 2.
2< 301 88 IH-SERVICE-DENIED Value is 3.
2< 302 88 IH-INVALID-UOW-HDR Value is 4.
2< 303 88 IH-RQST-TOO-LONG Value is 5.
2< 304 88 IH-REPLY-TOO-LONG Value is 6.
2< 305 88 IH-RQST-TOO-SHORT Value is 7.
2< 306 88 IH-INVALID-REQUEST-CODE Value is 8.
2< 307 88 IH-E-BAD-TRANSACTION VALUE 4010.
2< 308 88 IH-E-ERR-PROFILE-FILE VALUE 4902.
2< 309 88 IH-E-ERR-SESSION-FILE VALUE 4904.
2< 310 88 IH-E-ERR-ITEMDESC-FILE VALUE 4906.
2< 311 88 IH-E-ERR-ITEMDATA-FILE VALUE 4908.
2< 312 88 IH-E-ERR-RECIP-FILE VALUE 4910.
2< 313 88 IH-E-ERR-FOLDER-FILE VALUE 4912.
2< 314 88 IH-E-ERR-DLIST-FILE VALUE 4914.
2< 315 88 IH-E-ERR-READY-FILE VALUE 4916.
2< 316 88 IH-E-ERR-TIME-FILE VALUE 4918.
2< 317 88 IH-E-ERR-NET-FILE VALUE 4920.
2< 318 88 IH-E-ERR-INV-FOLDER-FILE VALUE 4922.
2< 319 88 IH-E-ERR-QUEUE-FILE VALUE 4924.
2< 320 88 IH-E-IO-TIMEOUT VALUE 4990.
2< 321 88 IH-E-TEXT-SERVICE VALUE 5800.
2< 322 88 IH-E-WAITMANAGER-UNAVAIL VALUE 6006.
2< 323 * FOR IPC-RETN-CODE = E-BAD-TRANSACTION OR E-ERR-FILE-XXXX, THIS
2< 324 * FIELD CONTAINS THE GUARDIAN ERROR CODE THAT DESCRIBES THE PROBLEM.
2< 325 * FOR IPC-RETN-CODE = E-IO-TIMEOUT, THIS FIELD CONTAINS THE FILE
2< 326 * CODE OF THE FILE ON WHICH THE TIMEOUT OCCURRED.
2< 327 * FOR IPC-RETN-CODE = E-TEXT-SERVICE, THIS FIELD CONTAINS THE
2< 328 * PRIMARY ERROR CODE RETURNED BY THE TEXT SERVER.
2< 329 * FOR OTHER VALUES OF IPC-RETN-CODE, THIS FIELD IS UNDEFINED.
2< 330 10 IH-IPC-RETN-CODE-DETAIL PIC S9(4) COMP
2< 331 VALUE 0.
2< 332 10 IH-SESSION-ID.
2< 333 15 IH-DUMMY PIC X(18).
2< 334 10 IH-UOWS-TO-PROCESS PIC 9(4) COMP.
2< 335 10 IH-UOWS-RETURNED PIC 9(4) COMP
2< 336 VALUE 0.
2< 337 10 IH-LOG-THIS-IPC PIC A.
2< 338 10 FILLER PIC X.
346