TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–33
173 DEPENDING ON add-text-array-count.
174 05 atx-hdr.
175 10 atx-self-ident PIC AA.
176 10 atx-uow-code PIC 9(4) COMP.
177 05 atx-item-key.
178 10 atx-item-id.
179 15 atx-dummy PIC X(12).
180 10 atx-rec-type PIC S9(4) COMP.
181 10 atx-rec-seq-num PIC S9(4) COMP.
182 05 atx-data-byte-count PIC 9(4) COMP.
183 05 atx-client-data PIC X(78).
184
185 01 add-text-rec-rsps.
186 03 add-text-rsp-array OCCURS 0 TO 5 TIMES
187 DEPENDING ON add-text-array-count.
188 * COPY rsp-air-add-item-rec-rsp OF "GLNK".
3< 533 * Definition ADD-ITEM-REC-RSP created on 12/01/86 at 14:27
3< 534 05 rsp-air-ADD-ITEM-REC-RSP.
3< 535 10 rsp-air-HDR.
3< 536 15 rsp-air-SELF-IDENT PIC AA
3< 537 .
3< 538 15 rsp-air-UOW-CODE PIC 9(4) COMP.
3< 539 10 rsp-air-RETN-CODE PIC S9(4) COMP.
3< 540 88 rsp-air-OK VALUE 0.
3< 541 88 rsp-air-E-BAD-TRANSACTION VALUE 4010.
3< 542 88 rsp-air-E-ITEM-NOT-FOUND VALUE 4035.
3< 543 88 rsp-air-E-ITEM-UNALTERABLE VALUE 4041.
3< 544 88 rsp-air-E-REC-ALREADY-EXISTS VALUE 4049.
3< 545 88 rsp-air-E-DATA-TOO-LONG VALUE 4085.
3< 546 88 rsp-air-E-INVALID-REC-TYPE VALUE 4046.
3< 547 88 rsp-air-E-INVALID-REC-SEQ-NUM VALUE 4058.
3< 548 10 rsp-air-RETN-CODE-DETAIL PIC S9(4) COMP.
3< 549 10 rsp-air-REC-SEQ-NUM PIC S9(4) COMP.
189 *********
190 /
191 01 add-recip-uow.
192 * COPY uow-ar-add-recip-uow OF "GCOB".
2< 551 * Definition ADD-RECIP-UOW created on 12/01/86 at 14:27
2< 552 05 uow-ar-ADD-RECIP-UOW.
2< 553 10 uow-ar-HDR.
2< 554 15 uow-ar-SELF-IDENT PIC AA
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".
193
194 01 add-recip-rsp.
195 * COPY rsp-ar-add-recip-rsp OF "GCOB".
2< 580 * Definition ADD-RECIP-RSP created on 12/01/86 at 14:27