TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–32 069138, Update 1 to 040970 Tandem Computers Incorporated
139 * allowed within OCCURS...DEPENDING ON. The program must set this
140 * value.
141 05 asu-data-byte-count PIC 9(4) COMP.
142 05 asu-client-data PIC X(40).
143
144 01 add-subject-rec-rsps.
145 03 add-subject-rsp OCCURS 0 TO 1 TIMES DEPENDING ON add-subject-count.
146 * 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.
147 *********
148 /
149 * Special version of ADD-ITEM-REC for adding the recipient as
150 * text--used to save the recipient for TRANSFER mail clients
151 * to display; see the explanation of Step 8 earlier in this section.
152 01 add-recip-text-uow.
153 05 art-hdr.
154 10 art-self-ident PIC AA VALUE "UW".
155 10 art-uow-code PIC 9(4) COMP VALUE 104.
156 05 art-item-key.
157 10 art-item-id.
158 15 art-dummy PIC X(12).
159 10 art-rec-type PIC S9(4) COMP VALUE 340.
160 10 art-rec-seq-num PIC S9(4) COMP VALUE 1.
161 05 art-data-byte-count PIC 9(4) COMP VALUE 70.
162 05 art-client-data PIC X(70).
163
164 01 add-recip-text-rsp.
165 * 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
2< 537 VALUE "UW".
2< 538 15 rsp-air-UOW-CODE PIC 9(4) COMP.
2< 539 10 rsp-air-RETN-CODE PIC S9(4) COMP.
2< 540 88 rsp-air-OK VALUE 0.
2< 541 88 rsp-air-E-BAD-TRANSACTION VALUE 4010.
2< 542 88 rsp-air-E-ITEM-NOT-FOUND VALUE 4035.
2< 543 88 rsp-air-E-ITEM-UNALTERABLE VALUE 4041.
2< 544 88 rsp-air-E-REC-ALREADY-EXISTS VALUE 4049.
2< 545 88 rsp-air-E-DATA-TOO-LONG VALUE 4085.
2< 546 88 rsp-air-E-INVALID-REC-TYPE VALUE 4046.
2< 547 88 rsp-air-E-INVALID-REC-SEQ-NUM VALUE 4058.
2< 548 10 rsp-air-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 549 10 rsp-air-REC-SEQ-NUM PIC S9(4) COMP.
166 *********
167 /
168 01 add-text-array-count PIC 9(4) COMP.
169
170 * Special version of ADD-ITEM-REC for adding text to a message:
171 01 add-text-rec-uows.
172 03 add-text-uow-array OCCURS 0 TO 5 TIMES