TRANSFER Programming Manual

Sample Agent Program Code
Designing and Writing an Agent
069138, Update 1 to 040970 Tandem Computers Incorporated 10–21
2< 2881 15 uow-usv-SELF-IDENT PIC AA
2< 2882 VALUE "UW".
2< 2883 15 uow-usv-UOW-CODE PIC 9(4) COMP value 111.
2< 2884 10 uow-usv-ITEM-ID.
2< 2885 15 uow-usv-DUMMY PIC X(12).
2< 2886 10 uow-usv-ITEM-HANDLE REDEFINES uow-usv-ITEM-ID.
2< 2887 * Set to HIGH-VALUES to indicate a handle.
2< 2888 15 uow-usv-HANDLE-FLAG PIC X(8).
2< 2889 15 uow-usv-UOW-NUMBER PIC S9(4) COMP.
2< 2890 15 uow-usv-ITEM-NUMBER PIC S9(4) COMP.
2< 2891 10 uow-usv-FOLDER-NAME PIC X(80).
101
102 * COPY rsp-usv-unsave-item-rsp OF "gcob".
2< 2893 * Definition UNSAVE-ITEM-RSP created on 12/01/86 at 14:32
2< 2894 05 rsp-usv-UNSAVE-ITEM-RSP.
2< 2895 10 rsp-usv-HDR.
2< 2896 15 rsp-usv-SELF-IDENT PIC AA
2< 2897 VALUE "UW".
2< 2898 15 rsp-usv-UOW-CODE PIC 9(4) COMP.
2< 2899 10 rsp-usv-RETN-CODE PIC S9(4) COMP.
2< 2900 88 rsp-usv-OK VALUE 0.
2< 2901 88 rsp-usv-W-ITEM-NOT-IN-FOLDER VALUE -4061.
2< 2902 88 rsp-usv-E-BAD-TRANSACTION VALUE 4010.
2< 2903 88 rsp-usv-E-ITEM-NOT-FOUND VALUE 4035.
2< 2904 88 rsp-usv-E-INVALID-ITEM VALUE 4062.
2< 2905 88 rsp-usv-W-ITEM-NOT-RETURNED VALUE -4063.
2< 2906 88 rsp-usv-E-CONCURRNT-FLD-UPDATE VALUE 4105.
2< 2907 88 rsp-usv-E-FLD-NSRV-ERR VALUE 5675.
2< 2908 88 rsp-usv-E-FLD-NOT-FOUND VALUE 5676.
2< 2909 88 rsp-usv-E-FLD-BAD-NAME VALUE 5677.
2< 2910 88 rsp-usv-E-FLD-BAD-TYPE VALUE 5678.
2< 2911 88 rsp-usv-E-FLD-NO-SUCH-NODE VALUE 5679.
2< 2912 88 rsp-usv-E-FLD-SECURITY VALUE 5680.
2< 2913 88 rsp-usv-E-FLD-NSRV-NOT-FOUND VALUE 5681.
2< 2914 88 rsp-usv-E-FLD-NSRV-DOWN VALUE 5682.
2< 2915 88 rsp-usv-E-FLD-NET-DOWN VALUE 5686.
2< 2916 88 rsp-usv-E-FLD-NOT-SAME-NODE VALUE 5697.
2< 2917 88 rsp-usv-E-FLD-AMBIGUOUS-NAME VALUE 5698.
2< 2918 10 rsp-usv-RETN-CODE-DETAIL PIC S9(4) COMP.
103
104 /
105 LINKAGE SECTION.
106 01 ls-lnk-agent-link.
107 * COPY ag-lnk-agent-link OF "glnk".
3< 3185 * Definition AGENT-LINK created on 12/01/86 at 14:52
3< 3186 05 AG-LNK-AGENT-LINK.
3< 3187 10 AG-LNK-SESSION-ID.
3< 3188 15 AG-LNK-DUMMY PIC X(18).
3< 3189 10 AG-LNK-SENDER-INFO.
3< 3190 15 AG-LNK-SENDER-NAME PIC X(120).
3< 3191 15 AG-LNK-SENDER-APPLIC-ID PIC 9(4) COMP.
3< 3192 10 AG-LNK-RECIPIENT-INFO.
3< 3193 15 AG-LNK-RECIP-NAME PIC X(120).
3< 3194 10 AG-LNK-PACKAGE-INFO.
3< 3195 15 AG-LNK-PACKAGE-ID.
3< 3196 20 AG-LNK-DUMMY PIC X(12).
3< 3197 15 AG-LNK-AGENT-SELECTOR PIC 9(4) COMP.
3< 3198 88 AG-LNK-DEFAULT-PACKAGE Value is 0.
3< 3199 15 AG-LNK-PACKAGE-FLAGS.
3< 3200 20 AG-LNK-CERTIFIED PIC A.
3< 3201 20 AG-LNK-BYTE REDEFINES AG-LNK-CERTIFIED PIC X.
3< 3202 20 AG-LNK-RESERVED-1 PIC A
3< 3203 .
3< 3204 20 AG-LNK-RESERVED-2 PIC A
3< 3205 .
3< 3206 20 AG-LNK-RESERVED-3 PIC A
3< 3207 .
3< 3208 20 AG-LNK-RESERVED-4 PIC A
3< 3209 .