TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–32 40970 Tandem Computers Incorporated
1229 400-ES-BAD-IPC,
1230 400-ES-SEND-ERROR
1231 DEPENDING ON ih-PW-REPLY-CODE.
1232
1233 400-ES-EXIT.
1234 EXIT.
1235
1236 400-ES-SEND-ERROR.
1237 * Handle case where a SEND error occured and nothing got through:
1238 MOVE "Y" TO FATAL-ERRORS-CONTROL.
1239 * Move error code for a fatal SEND error to error-number-1:
1240 MOVE 9001 TO ERROR-NUMBER-1.
1241 MOVE TERMINATION-STATUS TO ERROR-NUMBER-2.
1242
1243 400-ES-BAD-IPC.
1244 * Handle case where the IPC header did not work:
1245 MOVE "Y" TO FATAL-ERRORS-CONTROL.
1246 IF IH-IPC-RETN-CODE LESS THAN 4000
1247
1248 * move error code for reply length invalid to error-number-1
1249 MOVE 9002 TO ERROR-NUMBER-1
1250 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-2
1251 ELSE
1252 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-1
1253 MOVE IH-IPC-RETN-CODE-DETAIL TO ERROR-NUMBER-2.
1254
1255 400-ES-ERRORS.
1256 * Handle case where there is an error in one of the UOWs going from
1257 * left to right:
1258 IF RSP-ES-RETN-CODE > 0
1259 * Next line if appropriate:
1260 MOVE "Y" TO FATAL-ERRORS-CONTROL
1261 MOVE RSP-ES-RETN-CODE TO ERROR-NUMBER-1
1262 MOVE RSP-ES-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1263 ELSE NEXT SENTENCE.
1264
1265 * Handle case where there is a warning in one of the UOWs going from
1266 * left to right:
1267 IF FATAL-ERRORS-NO AND RSP-ES-RETN-CODE < 0
1268 * Next line if appropriate:
1269 MOVE "Y" TO FATAL-ERRORS-CONTROL
1270 MOVE RSP-ES-RETN-CODE TO ERROR-NUMBER-1
1271 MOVE RSP-ES-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1272 ELSE NEXT SENTENCE.
1273
1274 400-ES-ON-ERROR.
1275 IF TERMINATION-STATUS NOT EQUAL 11
1276 MOVE 4 TO IH-PW-REPLY-CODE
1277 ELSE NEXT SENTENCE.
1278
1279 ************************************************************************
1280 * GLOBAL ERROR HANDLING ROUTINES
1281 ************************************************************************
1282
1283 890-NOT-SUPPORTED.
1284 MOVE SPACES TO SCRN-MESSAGE.
1285 MOVE "Invalid key struck, try again" TO SCRN-MESSAGE.
1286 DISPLAY TEMP ERROR-MESSAGE.
1287
1288 898-SEND-ERROR-MSG.
1289 MOVE SPACES TO SEND-ERRORS.
1290 MOVE "SEND error:" TO SE-NOTE.
1291 MOVE TERMINATION-STATUS TO SE-NUMBER-1.
1292 MOVE TERMINATION-SUBSTATUS TO SE-NUMBER-2.
1293 IF TERMINATION-STATUS IS LESS THAN 19
1294 MOVE SEND-ERROR-MESSAGE(TERMINATION-STATUS) TO SE-MESSAGE
1295 ELSE
1296 MOVE "Undefined SEND Error " TO SE-MESSAGE.
1297 MOVE SEND-ERRORS TO OPERATOR-MESSAGE.