TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–41
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.
319
320 * The response to this UOW was hand-coded to allow tailoring
321 * of the RECS-RETURNED and DATA-STRING fields, as with the
322 * response to the previous UOW.
323 01 get-text-rec-rsp.
324 02 gtx-hdr.
325 03 gtx-self-ident PIC AA VALUE "UW".
326 03 gtx-uow-code PIC 9(4) COMP.
327 02 gtx-retn-code PIC S9(4) COMP.
328 88 gtx-OK VALUE 0.
329 88 gtx-W-EOF VALUE -4001.
330 88 gtx-W-DATA-TRUNCATED VALUE -4089.
331 88 gtx-W-DATASIZE-ADJUSTED VALUE -4086.
332 88 gtx-W-TOO-MANY-REQUESTED VALUE -4091.
333 88 gtx-E-INVALID-NUM-RQSTD VALUE 4092.
334 88 gtx-E-INVALID-MAX-DATASIZE VALUE 4087.
335 88 gtx-E-MUST-BE-YN VALUE 4051.
336 88 gtx-E-RESERVED-MUST-BE-N VALUE 4052.
337 88 gtx-E-ITEM-NOT-FOUND VALUE 4035.
338 02 gtx-retn-code-detail PIC S9(4) COMP.
339 02 gtx-num-returned PIC 9(4) COMP.
340 02 gtx-recs-returned OCCURS 0 TO 5 TIMES
341 DEPENDING ON gtx-num-returned OF get-text-rec-rsp.
342 03 gtx-rec-type PIC S9(4) COMP.
343 03 gtx-rec-seq-num PIC S9(4) COMP.
344 03 gtx-data-len PIC 9(4) COMP.
345 03 gtx-data-string PIC X(78).
346
347 * Working storage area to contain item data records for display.
348 * These records are moved from gtx-data-string.
349
350 01 ws-data-rec-block.
351 02 ws-data-recs OCCURS 5 TIMES.
352 03 ws-data-rec-string PIC X(78).
353 *********
354 /
355 01 ack-receipt-uow.
356 * COPY uow-ack-ack-receipt-uow OF "GCOB".
2< 470 * Definition ACK-RECEIPT-UOW created on 12/01/86 at 14:26
2< 471 05 uow-ack-ACK-RECEIPT-UOW.
2< 472 10 uow-ack-HDR.