TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–34 069138, Update 1 to 040970 Tandem Computers Incorporated
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).
196 *********
197 /
198 01 create-item-uow.
199 * 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.
2< 1323 10 uow-cri-IS-PKG-HDR PIC A.
2< 1324 10 uow-cri-RESERVED-1 PIC A
2< 1325 VALUE "N".
200
201 01 create-item-rsp.
202 * COPY rsp-cri-create-item-rsp OF "GCOB".
2< 1327 * Definition CREATE-ITEM-RSP created on 12/01/86 at 14:28
2< 1328 05 rsp-cri-CREATE-ITEM-RSP.
2< 1329 10 rsp-cri-HDR.
2< 1330 15 rsp-cri-SELF-IDENT PIC AA
2< 1331 VALUE "UW".
2< 1332 15 rsp-cri-UOW-CODE PIC 9(4) COMP.
2< 1333 10 rsp-cri-RETN-CODE PIC S9(4) COMP.
2< 1334 88 rsp-cri-OK VALUE 0.
2< 1335 88 rsp-cri-E-BAD-TRANSACTION VALUE 4010.
2< 1336 88 rsp-cri-E-MUST-BE-YN VALUE 4051.
2< 1337 88 rsp-cri-E-RESERVED-MUST-BE-N VALUE 4052.
2< 1338 88 rsp-cri-E-INVALID-ITEM-TYPE VALUE 4056.
2< 1339 10 rsp-cri-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 1340 10 rsp-cri-ITEM-ID.
2< 1341 15 rsp-cri-DUMMY PIC X(12).
203 *********
204 /
205 01 submit-pkg-uow.
206 * COPY uow-sp-submit-pkg-uow OF "GCOB".
2< 2840 * Definition SUBMIT-PKG-UOW created on 12/01/86 at 14:32