TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–18 40970 Tandem Computers Incorporated
2< 1752 15 rsp-gid-PAGE-STRING REDEFINES rsp-gid-CODE-PAGE-ID PIC XX.
2< 1753 15 rsp-gid-CODE-SET-ID PIC 9(4) COMP.
2< 1754 15 rsp-gid-SET-STRING REDEFINES rsp-gid-CODE-SET-ID PIC XX.
2< 1755 10 FILLER PIC X(32).
370
371 01 UOW-GIR.
372 * 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.
373
374 01 RSP-GIR.
375 * COPY RSP-GIR-GET-ITEM-REC-RSP OF "GCOB".
2< 1839 * Definition GET-ITEM-REC-RSP created on 12/01/86 at 14:29
2< 1840 05 rsp-gir-GET-ITEM-REC-RSP.
2< 1841 10 rsp-gir-HDR.
2< 1842 15 rsp-gir-SELF-IDENT PIC AA
2< 1843 VALUE "UW".
2< 1844 15 rsp-gir-UOW-CODE PIC 9(4) COMP.
2< 1845 10 rsp-gir-RETN-CODE PIC S9(4) COMP.
2< 1846 88 rsp-gir-OK VALUE 0.
2< 1847 88 rsp-gir-W-EOF VALUE -4001.
2< 1848 88 rsp-gir-W-DATA-TRUNCATED VALUE -4089.
2< 1849 88 rsp-gir-W-DATASIZE-ADJUSTED VALUE -4086.
2< 1850 88 rsp-gir-E-INVALID-NUM-RQSTD VALUE 4092.
2< 1851 88 rsp-gir-E-INVALID-MAX-DATASIZE VALUE 4087.
2< 1852 88 rsp-gir-E-MUST-BE-YN VALUE 4051.
2< 1853 88 rsp-gir-E-RESERVED-MUST-BE-N VALUE 4052.
2< 1854 88 rsp-gir-E-ITEM-NOT-FOUND VALUE 4035.
2< 1855 10 rsp-gir-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 1856 10 rsp-gir-NUM-RETURNED PIC 9(4) COMP.
2< 1857 * * * APPLICATION MUST DEFINE ARRAY LIMITS AND ELEMENT SIZES CONSISTENT WITH
2< 1858 * * * REQUEST UOW * * *
2< 1859 10 rsp-gir-RECS-RETURNED OCCURS 0 TO 20 TIMES DEPENDING ON rsp-gir-NUM-RETURNED of
2< 1860 rsp-gir-GET-ITEM-REC-RSP.
2< 1861 15 rsp-gir-REC-TYPE PIC 9(4) COMP.
2< 1862 15 rsp-gir-REC-SEQ-NUM PIC S9(4) COMP.
2< 1863 15 rsp-gir-DATA-LEN PIC 9(4) COMP.
2< 1864 15 rsp-gir-DATA-STRING PIC X(80).
376
377 01 AGENT-LINK.
378 * COPY AG-LNK-AGENT-LINK OF "GLNK".
3< 3185 * Definition AGENT-LINK created on 12/01/86 at 14:52