TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–35
2< 2841 05 uow-sp-SUBMIT-PKG-UOW.
2< 2842 10 uow-sp-HDR.
2< 2843 15 uow-sp-SELF-IDENT PIC AA
2< 2844 VALUE "UW".
2< 2845 15 uow-sp-UOW-CODE PIC 9(4) COMP value 117.
2< 2846 10 uow-sp-ITEM-ID.
2< 2847 15 uow-sp-DUMMY PIC X(12).
2< 2848 10 uow-sp-ITEM-HANDLE REDEFINES uow-sp-ITEM-ID.
2< 2849 * Set to HIGH-VALUES to indicate a handle.
2< 2850 15 uow-sp-HANDLE-FLAG PIC X(8).
2< 2851 15 uow-sp-UOW-NUMBER PIC S9(4) COMP.
2< 2852 15 uow-sp-ITEM-NUMBER PIC S9(4) COMP.
207
208 01 submit-pkg-rsp.
209 * COPY rsp-sp-submit-pkg-rsp OF "GCOB".
2< 2854 * Definition SUBMIT-PKG-RSP created on 12/01/86 at 14:32
2< 2855 05 rsp-sp-SUBMIT-PKG-RSP.
2< 2856 10 rsp-sp-HDR.
2< 2857 15 rsp-sp-SELF-IDENT PIC AA
2< 2858 VALUE "UW".
2< 2859 15 rsp-sp-UOW-CODE PIC 9(4) COMP.
2< 2860 10 rsp-sp-RETN-CODE PIC S9(4) COMP.
2< 2861 88 rsp-sp-OK VALUE 0.
2< 2862 88 rsp-sp-W-PRIORITY-REDUCED VALUE -4079.
2< 2863 88 rsp-sp-W-TIME-WINDOW-EXTENDED VALUE -4075.
2< 2864 88 rsp-sp-E-LIFESPAN-TOO-LONG VALUE 4077.
2< 2865 88 rsp-sp-E-BAD-TRANSACTION VALUE 4010.
2< 2866 88 rsp-sp-E-NO-RECIPS VALUE 4082.
2< 2867 88 rsp-sp-E-ITEM-NOT-FOUND VALUE 4035.
2< 2868 88 rsp-sp-E-INVALID-ITEM VALUE 4062.
2< 2869 88 rsp-sp-W-ITEM-NOT-RETURNED VALUE -4063.
2< 2870 88 rsp-sp-E-ITEM-NOT-PKG-HDR VALUE 4042.
2< 2871 88 rsp-sp-E-NOT-CREATED-BY-YOU VALUE 4083.
2< 2872 88 rsp-sp-E-ITEM-UNALTERABLE VALUE 4041.
2< 2873 88 rsp-sp-E-TSCHED-UNAVAIL VALUE 4045.
2< 2874 88 rsp-sp-W-TSCHED-UNAVAIL VALUE -4045.
2< 2875 88 rsp-sp-E-ITEM-TOO-COMPLEX VALUE 4036.
2< 2876 10 rsp-sp-RETN-CODE-DETAIL PIC S9(4) COMP.
210 *********
211 /
212 01 scan-folder-uow.
213 * COPY uow-scn-scan-folder-uow OF "GCOB".
2< 2288 * Definition SCAN-FOLDER-UOW created on 12/01/86 at 14:31
2< 2289 05 uow-scn-SCAN-FOLDER-UOW.
2< 2290 10 uow-scn-HDR.
2< 2291 15 uow-scn-SELF-IDENT PIC AA
2< 2292 VALUE "UW".
2< 2293 15 uow-scn-UOW-CODE PIC 9(4) COMP value 120.
2< 2294 10 uow-scn-FOLDER-NAME PIC X(80).
2< 2295 10 uow-scn-ITEM-ID.
2< 2296 15 uow-scn-DUMMY PIC X(12).
2< 2297 10 uow-scn-ITEM-HANDLE REDEFINES uow-scn-ITEM-ID.
2< 2298 * Set to HIGH-VALUES to indicate a handle.
2< 2299 15 uow-scn-HANDLE-FLAG PIC X(8).
2< 2300 15 uow-scn-UOW-NUMBER PIC S9(4) COMP.
2< 2301 15 uow-scn-ITEM-NUMBER PIC S9(4) COMP.
2< 2302 10 uow-scn-OPTIONS.
2< 2303 15 uow-scn-FILTER-BY-ITEM-TYPE PIC A.
2< 2304 15 uow-scn-RESERVED-1 PIC A
2< 2305 VALUE "N".
2< 2306 15 uow-scn-ITEM-TYPE PIC 9(4) COMP.
2< 2307 * 88 TANDEM-ASSIGNED values 100 thru 999.
2< 2308 88 uow-scn-ORIGINAL-PACKAGE value 109.
2< 2309 88 uow-scn-REPLY-PACKAGE value 110.
2< 2310 88 uow-scn-FORWARD-PACKAGE value 111.
2< 2311 88 uow-scn-ORIGINAL-TTEXT-PKG value 112.
2< 2312 88 uow-scn-REPLY-TTEXT-PKG value 113.
2< 2313 88 uow-scn-FORWARD-TTEXT-PKG value 114.
2< 2314 88 uow-scn-UNFORMATTED-TEXT-ITEM value 120.