TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–33
1298
1299 899-CALL-ERROR.
1300 MOVE SPACES TO SCRN-MESSAGE.
1301 MOVE TERMINATION-STATUS TO ERROR-NUMBER-1.
1302 MOVE TERMINATION-SUBSTATUS TO ERROR-NUMBER-2.
1303 IF TERMINATION-STATUS IS LESS THAN 31
1304 MOVE CALL-ERROR-MESSAGE(TERMINATION-STATUS) TO MESSAGE-ALPHA-A
1305 ELSE
1306 IF TERMINATION-STATUS IS EQUAL TO 44
1307 MOVE "Call program unit name is invalid" TO MESSAGE-ALPHA-A
1308 MOVE PROGRAM-CALLED TO MESSAGE-ALPHA-B.
1309
1310
1311 900-NORMAL-STOP.
1312 MOVE ZERO TO TERMINATION-STATUS.
1313 PERFORM 999-EXIT-PROG.
1314
1315 900-ERROR-HAS-OCCURRED.
1316 PERFORM 998-EXIT-PROG-ERR.
1317
1318 998-EXIT-PROG-ERR.
1319 EXIT PROGRAM WITH ERROR.
1320
1321 999-EXIT-PROG.
1322 EXIT PROGRAM.