TRANSFER Programming Manual

Sample Agent Program Code
Designing and Writing an Agent
069138, Update 1 to 040970 Tandem Computers Incorporated 10–19
2< 555 VALUE "UW".
2< 556 15 uow-ar-UOW-CODE PIC 9(4) COMP value 114.
2< 557 10 uow-ar-ITEM-ID.
2< 558 15 uow-ar-DUMMY PIC X(12).
2< 559 10 uow-ar-ITEM-HANDLE REDEFINES uow-ar-ITEM-ID.
2< 560 * Set to HIGH-VALUES to indicate a handle.
2< 561 15 uow-ar-HANDLE-FLAG PIC X(8).
2< 562 15 uow-ar-UOW-NUMBER PIC S9(4) COMP.
2< 563 15 uow-ar-ITEM-NUMBER PIC S9(4) COMP.
2< 564 10 uow-ar-RECIP-NAME PIC X(120).
2< 565 10 uow-ar-RECIP-TYPE PIC 9(4) COMP.
2< 566 10 uow-ar-OPTIONS.
2< 567 15 uow-ar-USE-DEPOT-RESOL-FLAGS PIC A.
2< 568 15 uow-ar-DEFER-LOCAL-RESOLUTION PIC A.
2< 569 15 uow-ar-DEFER-REMOTE-RESOLUTION PIC A.
2< 570 15 uow-ar-DERIVED-FROM-DLIST PIC A.
2< 571 15 uow-ar-RESERVED-4 PIC A
2< 572 VALUE "N".
2< 573 15 uow-ar-RESERVED-5 PIC A
2< 574 VALUE "N".
2< 575 15 uow-ar-RESERVED-6 PIC A
2< 576 VALUE "N".
2< 577 15 uow-ar-RESERVED-7 PIC A
2< 578 VALUE "N".
83
84 * COPY rsp-ar-add-recip-rsp OF "gcob".
2< 580 * Definition ADD-RECIP-RSP created on 12/01/86 at 14:27
2< 581 05 rsp-ar-ADD-RECIP-RSP.
2< 582 10 rsp-ar-HDR.
2< 583 15 rsp-ar-SELF-IDENT PIC AA
2< 584 VALUE "UW".
2< 585 15 rsp-ar-UOW-CODE PIC 9(4) COMP.
2< 586 10 rsp-ar-RETN-CODE PIC S9(4) COMP.
2< 587 88 rsp-ar-OK VALUE 0.
2< 588 88 rsp-ar-W-REC-ALREADY-EXISTS VALUE -4049.
2< 589 88 rsp-ar-E-BAD-TRANSACTION VALUE 4010.
2< 590 88 rsp-ar-E-MUST-BE-YN VALUE 4051.
2< 591 88 rsp-ar-E-RESERVED-MUST-BE-N VALUE 4052.
2< 592 88 rsp-ar-E-ITEM-NOT-FOUND VALUE 4035.
2< 593 88 rsp-ar-E-INVALID-ITEM VALUE 4062.
2< 594 88 rsp-ar-W-ITEM-NOT-RETURNED VALUE -4063.
2< 595 88 rsp-ar-E-ITEM-NOT-PKG-HDR VALUE 4042.
2< 596 88 rsp-ar-E-ITEM-UNALTERABLE VALUE 4041.
2< 597 88 rsp-ar-E-INVALID-RECIP-TYPE VALUE 4065.
2< 598 88 rsp-ar-W-NODE-NAME-UNKNOWN VALUE -4069.
2< 599 88 rsp-ar-W-REMOTE-NAME-ACCEPTED VALUE -4067.
2< 600 88 rsp-ar-E-RECIP-BAD-NAME VALUE 5752.
2< 601 88 rsp-ar-E-RECIP-BAD-SUFFIX VALUE 5774.
2< 602 88 rsp-ar-E-RECIP-NSRV-ERR VALUE 5750.
2< 603 88 rsp-ar-E-RECIP-NOT-FOUND VALUE 5751.
2< 604 88 rsp-ar-E-RECIP-NO-SUCH-NODE VALUE 5754.
2< 605 88 rsp-ar-E-RECIP-SECURITY VALUE 5755.
2< 606 88 rsp-ar-E-RECIP-NSRV-NOT-FOUND VALUE 5756.
2< 607 88 rsp-ar-E-RECIP-NSRV-DOWN VALUE 5757.
2< 608 88 rsp-ar-E-RECIP-NET-DOWN VALUE 5761.
2< 609 88 rsp-ar-E-RECIP-AMBIGUOUS-NAME VALUE 5773.
2< 610 10 rsp-ar-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 611 10 rsp-ar-ACCEPTED-NAME PIC X(120).
85
86 **********
87 01 uow-cri-block.
88 * COPY uow-cri-create-item-uow OF "gcob".
2< 1316 * Definition CREATE-ITEM-UOW created on 12/01/86 at 14:28
2< 1317 05 uow-cri-CREATE-ITEM-UOW.
2< 1318 10 uow-cri-HDR.
2< 1319 15 uow-cri-SELF-IDENT PIC AA
2< 1320 VALUE "UW".
2< 1321 15 uow-cri-UOW-CODE PIC 9(4) COMP value 103.
2< 1322 10 uow-cri-ITEM-TYPE PIC 9(4) COMP.