TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–39
2< 1738 15 rsp-gid-EXPIRED-UNEXAMINED PIC A.
2< 1739 15 rsp-gid-RESERVED-5 PIC A
2< 1740 VALUE "N".
2< 1741 15 rsp-gid-RESERVED-6 PIC A
2< 1742 VALUE "N".
2< 1743 15 rsp-gid-RESERVED-7 PIC A
2< 1744 VALUE "N".
2< 1745 10 rsp-gid-P-ATTACH-COUNT PIC 9(4) COMP.
2< 1746 10 rsp-gid-A-ATTACH-COUNT PIC 9(4) COMP.
2< 1747 * -------------------------------------------------------------------
2< 1748 * Identifier for a character map.
2< 1749 * -------------------------------------------------------------------
2< 1750 10 rsp-gid-CHAR-MAP-ID.
2< 1754 15 rsp-gid-SET-STRING REDEFINES rsp-gid-CODE-SET-ID PIC XX.
2< 1755 10 FILLER PIC X(32).
255 *********
256 /
257 01 get-subject-rec-uow.
258 * 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.
259
260 01 get-subject-rec-rsp.
261 02 gsu-hdr.
262 03 gsu-self-ident PIC AA VALUE "UW".
263 03 gsu-uow-code PIC 9(4) COMP.
264 02 gsu-retn-code PIC S9(4) COMP.
265 88 gsu-OK VALUE 0.
266 88 gsu-W-EOF VALUE -4001.
267 88 gsu-W-DATA-TRUNCATED VALUE -4089.
268 88 gsu-W-DATASIZE-ADJUSTED VALUE -4086.
269 88 gsu-W-TOO-MANY-REQUESTED VALUE -4091.
270 88 gsu-E-INVALID-NUM-RQSTD VALUE 4092.
271 88 gsu-E-INVALID-MAX-DATASIZE VALUE 4087.
272 88 gsu-E-MUST-BE-YN VALUE 4051.
273 88 gsu-E-RESERVED-MUST-BE-N VALUE 4052.
274 88 gsu-E-ITEM-NOT-FOUND VALUE 4035.
275 02 gsu-retn-code-detail PIC S9(4) COMP.
276 02 gsu-num-returned PIC 9(4) COMP.
277 02 gsu-recs-returned OCCURS 0 TO 1 TIMES
278 DEPENDING ON gsu-num-returned OF get-subject-rec-rsp.
279 03 gsu-rec-type PIC S9(4) COMP.