TRANSFER Programming Manual

Sample Agent Program Code
Designing and Writing an Agent
069138, Update 1 to 040970 Tandem Computers Incorporated 10–17
2< 474 VALUE "UW".
2< 475 15 uow-ack-UOW-CODE PIC 9(4) COMP value 131.
2< 476 10 uow-ack-ITEM-ID.
2< 477 15 uow-ack-DUMMY PIC X(12).
2< 478 10 uow-ack-ITEM-HANDLE REDEFINES uow-ack-ITEM-ID.
2< 479 * Set to HIGH-VALUES to indicate a handle.
2< 480 15 uow-ack-HANDLE-FLAG PIC X(8).
2< 481 15 uow-ack-UOW-NUMBER PIC S9(4) COMP.
2< 482 15 uow-ack-ITEM-NUMBER PIC S9(4) COMP.
64
65 * COPY rsp-ack-ack-receipt-rsp OF "gcob".
2< 484 * Definition ACK-RECEIPT-RSP created on 12/01/86 at 14:26
2< 485 05 rsp-ack-ACK-RECEIPT-RSP.
2< 486 10 rsp-ack-HDR.
2< 487 15 rsp-ack-SELF-IDENT PIC AA
2< 488 VALUE "UW".
2< 489 15 rsp-ack-UOW-CODE PIC 9(4) COMP.
2< 490 10 rsp-ack-RETN-CODE PIC S9(4) COMP.
2< 491 88 rsp-ack-OK VALUE 0.
2< 492 88 rsp-ack-E-BAD-TRANSACTION VALUE 4010.
2< 493 88 rsp-ack-E-ITEM-NOT-FOUND VALUE 4035.
2< 494 88 rsp-ack-E-INVALID-ITEM VALUE 4062.
2< 495 88 rsp-ack-W-ITEM-NOT-RETURNED VALUE -4063.
2< 496 88 rsp-ack-E-ITEM-NOT-PKG-HDR VALUE 4042.
2< 497 88 rsp-ack-E-PKG-NOT-SUBMITTED VALUE 4084.
2< 498 88 rsp-ack-E-PKG-NOT-RECEIVED VALUE 4080.
2< 499 88 rsp-ack-E-PKG-CANCELED VALUE 4094.
2< 500 88 rsp-ack-E-PKG-EXPIRED VALUE 4095.
2< 501 88 rsp-ack-E-TSCHED-UNAVAIL VALUE 4045.
2< 502 88 rsp-ack-W-TSCHED-UNAVAIL VALUE -4045.
2< 503 10 rsp-ack-RETN-CODE-DETAIL PIC S9(4) COMP.
66
67 *********
68 01 uow-air.
69 * COPY uow-air-add-item-rec-uow OF "gcob".
2< 505 * Definition ADD-ITEM-REC-UOW created on 12/01/86 at 14:26
2< 506 05 uow-air-ADD-ITEM-REC-UOW.
2< 507 10 uow-air-HDR.
2< 508 15 uow-air-SELF-IDENT PIC AA
2< 509 VALUE "UW".
2< 510 15 uow-air-UOW-CODE PIC 9(4) COMP value 104.
2< 511 * Sequence number = -1 means "assign next highest seq # for given record type"
2< 512 10 uow-air-ITEM-KEY.
2< 513 15 uow-air-ITEM-ID.
2< 514 20 uow-air-DUMMY PIC X(12).
2< 515 15 uow-air-ITEM-HANDLE REDEFINES uow-air-ITEM-ID.
2< 516 * Set to HIGH-VALUES to indicate a handle.
2< 517 20 uow-air-HANDLE-FLAG PIC X(8).
2< 518 20 uow-air-UOW-NUMBER PIC S9(4) COMP.
2< 519 20 uow-air-ITEM-NUMBER PIC S9(4) COMP.
2< 520 15 uow-air-REC-TYPE PIC 9(4) COMP.
2< 521 15 uow-air-REC-SEQ-NUM PIC S9(4) COMP.
2< 522 *
2< 523 * Definition from client's perspective: constant in the range [0:2000]
2< 524 10 uow-air-DATA-BYTE-COUNT PIC 9(4) COMP.
2< 525 * * * SIZE OF CLIENT-DATA MUST BE CONSISTENT WITH DATA-BYTE-COUNT * * *
2< 526 * For any given application, CLIENT-DATA may be fixed length, e.g.:
2< 527 * 02 CLIENT-DATA pic X(DATA-BYTE-COUNT).
2< 528 10 uow-air-CLIENT-DATA.
2< 529 15 uow-air-ELEMENT PIC X
2< 530 OCCURS 0 TO 2000 TIMES DEPENDING ON uow-air-DATA-BYTE-COUNT of
2< 531 uow-air-ADD-ITEM-REC-UOW.
70
71 01 rsp-air.
72 * COPY rsp-air-add-item-rec-rsp OF "gcob".
2< 533 * Definition ADD-ITEM-REC-RSP created on 12/01/86 at 14:27
2< 534 05 rsp-air-ADD-ITEM-REC-RSP.
2< 535 10 rsp-air-HDR.
2< 536 15 rsp-air-SELF-IDENT PIC AA