TRANSFER Programming Manual

Sample Agent Program Code
Designing and Writing an Agent
10–20 069138, Update 1 to 040970 Tandem Computers Incorporated
2< 1323 10 uow-cri-IS-PKG-HDR PIC A.
2< 1324 10 uow-cri-RESERVED-1 PIC A
2< 1325 VALUE "N".
89
90 * COPY rsp-cri-create-item-rsp OF "gcob".
2< 1327 * Definition CREATE-ITEM-RSP created on 12/01/86 at 14:28
2< 1328 05 rsp-cri-CREATE-ITEM-RSP.
2< 1329 10 rsp-cri-HDR.
2< 1330 15 rsp-cri-SELF-IDENT PIC AA
2< 1331 VALUE "UW".
2< 1332 15 rsp-cri-UOW-CODE PIC 9(4) COMP.
2< 1333 10 rsp-cri-RETN-CODE PIC S9(4) COMP.
2< 1334 88 rsp-cri-OK VALUE 0.
2< 1335 88 rsp-cri-E-BAD-TRANSACTION VALUE 4010.
2< 1336 88 rsp-cri-E-MUST-BE-YN VALUE 4051.
2< 1337 88 rsp-cri-E-RESERVED-MUST-BE-N VALUE 4052.
2< 1338 88 rsp-cri-E-INVALID-ITEM-TYPE VALUE 4056.
2< 1339 10 rsp-cri-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 1340 10 rsp-cri-ITEM-ID.
2< 1341 15 rsp-cri-DUMMY PIC X(12).
91
92 *********
93 01 uow-sp-block.
94 * COPY uow-sp-submit-pkg-uow OF "gcob".
2< 2840 * Definition SUBMIT-PKG-UOW created on 12/01/86 at 14:32
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.
95
96 * 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.
97
98 *********
99 01 uow-usv-block.
100 * COPY uow-usv-unsave-item-uow OF "gcob".
2< 2878 * Definition UNSAVE-ITEM-UOW created on 12/01/86 at 14:32
2< 2879 05 uow-usv-UNSAVE-ITEM-UOW.
2< 2880 10 uow-usv-HDR.