Manualshelf

TRANSFER Programming Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series
211212213214215216217218219220
Sample Agent Program Code
Designing and Writing an Agent
10–18 069138, Update 1 to 040970 Tandem Computers Incorporated
2< 537 VALUE "UW".
2< 538 15 rsp-air-UOW-CODE PIC 9(4) COMP.
2< 539 10 rsp-air-RETN-CODE PIC S9(4) COMP.
2< 540 88 rsp-air-OK VALUE 0.
2< 541 88 rsp-air-E-BAD-TRANSACTION VALUE 4010.
2< 542 88 rsp-air-E-ITEM-NOT-FOUND VALUE 4035.
2< 543 88 rsp-air-E-ITEM-UNALTERABLE VALUE 4041.
2< 544 88 rsp-air-E-REC-ALREADY-EXISTS VALUE 4049.
2< 545 88 rsp-air-E-DATA-TOO-LONG VALUE 4085.
2< 546 88 rsp-air-E-INVALID-REC-TYPE VALUE 4046.
2< 547 88 rsp-air-E-INVALID-REC-SEQ-NUM VALUE 4058.
2< 548 10 rsp-air-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 549 10 rsp-air-REC-SEQ-NUM PIC S9(4) COMP.
73
74 *********
75 01 uow-atc-block.
76 * COPY uow-atc-attach-compnt-a01-uow OF "gcob".
2< 1133 * Definition ATTACH-COMPNT-A01-UOW created on 12/01/86 at 14:28
2< 1134 05 uow-atc-ATTACH-COMPNT-A01-UOW.
2< 1135 10 uow-atc-HDR.
2< 1136 15 uow-atc-SELF-IDENT PIC AA
2< 1137 VALUE "UW".
2< 1138 15 uow-atc-UOW-CODE PIC 9(4) COMP value 136.
2< 1139 10 uow-atc-PARENT-ITEM-ID.
2< 1140 15 uow-atc-DUMMY PIC X(12).
2< 1141 10 uow-atc-PARENT-ITEM-HANDLE REDEFINES uow-atc-PARENT-ITEM-ID.
2< 1142 * Set to HIGH-VALUES to indicate a handle.
2< 1143 15 uow-atc-HANDLE-FLAG PIC X(8).
2< 1144 15 uow-atc-UOW-NUMBER PIC S9(4) COMP.
2< 1145 15 uow-atc-ITEM-NUMBER PIC S9(4) COMP.
2< 1146 10 uow-atc-COMPNT-ID.
2< 1147 15 uow-atc-DUMMY PIC X(12).
2< 1148 10 uow-atc-COMPNT-HANDLE REDEFINES uow-atc-COMPNT-ID.
2< 1149 * Set to HIGH-VALUES to indicate a handle.
2< 1150 15 uow-atc-HANDLE-FLAG PIC X(8).
2< 1151 15 uow-atc-UOW-NUMBER PIC S9(4) COMP.
2< 1152 15 uow-atc-ITEM-NUMBER PIC S9(4) COMP.
2< 1153 10 uow-atc-REL-POSITION PIC S9(4) COMP.
2< 1154 10 uow-atc-COMPNT-TYPE PIC 9(4) COMP.
77
78 * COPY rsp-atc-attach-compnt-a01-rsp OF "gcob".
2< 1156 * Definition ATTACH-COMPNT-A01-RSP created on 12/01/86 at 14:28
2< 1157 05 rsp-atc-ATTACH-COMPNT-A01-RSP.
2< 1158 10 rsp-atc-HDR.
2< 1159 15 rsp-atc-SELF-IDENT PIC AA
2< 1160 VALUE "UW".
2< 1161 15 rsp-atc-UOW-CODE PIC 9(4) COMP.
2< 1162 10 rsp-atc-RETN-CODE PIC S9(4) COMP.
2< 1163 88 rsp-atc-OK VALUE 0.
2< 1164 88 rsp-atc-E-BAD-TRANSACTION VALUE 4010.
2< 1165 88 rsp-atc-E-PARENT-NOT-FOUND VALUE 4037.
2< 1166 88 rsp-atc-E-COMPNT-NOT-FOUND VALUE 4039.
2< 1167 88 rsp-atc-E-INVALID-ITEM VALUE 4062.
2< 1168 88 rsp-atc-W-ITEM-NOT-RETURNED VALUE -4063.
2< 1169 88 rsp-atc-E-COMPNT-CYCLE VALUE 4038.
2< 1170 88 rsp-atc-E-ITEM-UNALTERABLE VALUE 4041.
2< 1171 88 rsp-atc-E-INVALID-REL-POSITION VALUE 4057.
2< 1172 88 rsp-atc-E-INVALID-COMPNT-TYPE VALUE 4096.
2< 1173 88 rsp-atc-E-ITEM-TOO-COMPLEX VALUE 4036.
2< 1174 10 rsp-atc-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 1175 10 rsp-atc-INSERTED-POSITION PIC S9(4) COMP.
79
80 *********
81 01 uow-ar-block.
82 * COPY uow-ar-add-recip-uow OF "gcob".
2< 551 * Definition ADD-RECIP-UOW created on 12/01/86 at 14:27
2< 552 05 uow-ar-ADD-RECIP-UOW.
2< 553 10 uow-ar-HDR.
2< 554 15 uow-ar-SELF-IDENT PIC AA