TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–40 069138, Update 1 to 040970 Tandem Computers Incorporated
280 03 gsu-rec-seq-num PIC S9(4) COMP.
281 03 gsu-data-len PIC 9(4) COMP.
282 03 gsu-data-string PIC X(40).
283 *********
284 /
285 01 get-recip-text-uow.
286 * COPY uow-gir-get-item-rec-uow OF "GCOB".
2< 1809 * Definition GET-ITEM-REC-UOW created on 12/01/86 at 14:29
2< 1810 05 uow-gir-GET-ITEM-REC-UOW.
2< 1811 10 uow-gir-HDR.
2< 1812 15 uow-gir-SELF-IDENT PIC AA
2< 1813 VALUE "UW".
2< 1814 15 uow-gir-UOW-CODE PIC 9(4) COMP value 125.
2< 1815 10 uow-gir-STARTING-KEY.
2< 1816 15 uow-gir-ITEM-ID.
2< 1817 20 uow-gir-DUMMY PIC X(12).
2< 1818 15 uow-gir-ITEM-HANDLE REDEFINES uow-gir-ITEM-ID.
2< 1819 * Set to HIGH-VALUES to indicate a handle.
2< 1820 20 uow-gir-HANDLE-FLAG PIC X(8).
2< 1821 20 uow-gir-UOW-NUMBER PIC S9(4) COMP.
2< 1822 20 uow-gir-ITEM-NUMBER PIC S9(4) COMP.
2< 1823 15 uow-gir-REC-TYPE PIC 9(4) COMP.
2< 1824 15 uow-gir-REC-SEQ-NUM PIC S9(4) COMP.
2< 1825 10 uow-gir-OPTIONS.
2< 1826 15 uow-gir-SKIP-EXACT PIC A.
2< 1827 15 uow-gir-ANY-REC-TYPE PIC A.
2< 1828 15 uow-gir-ANY-SEQ-NUM PIC A.
2< 1829 15 uow-gir-RESERVED-3 PIC A
2< 1830 VALUE "N".
2< 1831 * * * VALUE OF NUM-REQUESTED AFFECTS SIZE OF REPLY UOW * * *
2< 1832 10 uow-gir-NUM-REQUESTED PIC 9(4) COMP
2< 1833 VALUE 20.
2< 1834 * * * VALUE OF MAX-DATASIZE AFFECTS SIZE OF REPLY UOW: range [0:2000] * * *
2< 1835 10 uow-gir-MAX-DATASIZE PIC 9(4) COMP.
2< 1836 10 uow-gir-PAD-CHAR PIC X.
2< 1837 10 FILLER PIC X.
287 * The response to this UOW was hand-coded to allow tailoring of the
288 * RECS-RETURNED and DATA-STRING fields to the application's
289 * requirements. Notice that in this UOW, the values entered in
290 * the NUM-REQUESTED and MAX-DATASIZE fields constrain the maximum
291 * number of occurrences for RECS-RETURNED and the length of the
292 * DATA-STRING field in the response returned by TISERV.
293 01 get-recip-text-rsp.
294 02 grt-hdr.
295 03 grt-self-ident PIC AA VALUE "UW".
296 03 grt-uow-code PIC 9(4) COMP.
297 02 grt-retn-code PIC S9(4) COMP.
298 88 grt-OK VALUE 0.
299 88 grt-W-EOF VALUE -4001.
300 88 grt-W-DATA-TRUNCATED VALUE -4089.
301 88 grt-W-DATASIZE-ADJUSTED VALUE -4086.
302 88 grt-W-TOO-MANY-REQUESTED VALUE -4091.
303 88 grt-E-INVALID-NUM-RQSTD VALUE 4092.
304 88 grt-E-INVALID-MAX-DATASIZE VALUE 4087.
305 88 grt-E-MUST-BE-YN VALUE 4051.
306 88 grt-E-RESERVED-MUST-BE-N VALUE 4052.
307 88 grt-E-ITEM-NOT-FOUND VALUE 4035.
308 02 grt-retn-code-detail PIC S9(4) COMP.
309 02 grt-num-returned PIC 9(4) COMP.
310 02 grt-recs-returned OCCURS 0 TO 1 TIMES
311 DEPENDING ON grt-num-returned OF get-recip-text-rsp.
312 03 grt-rec-type PIC S9(4) COMP.
313 03 grt-rec-seq-num PIC S9(4) COMP.
314 03 grt-data-len PIC 9(4) COMP.
315 03 grt-data-string PIC X(70).
316 /
317 01 get-text-rec-uow.
318 * COPY uow-gir-get-item-rec-uow OF "GCOB".
2< 1809 * Definition GET-ITEM-REC-UOW created on 12/01/86 at 14:29