TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–31
1160 * Next line if appropriate:
1161 MOVE SPACES TO SCRN-MESSAGE
1162 MOVE "Y" TO FATAL-ERRORS-CONTROL
1163 MOVE "ITEM DESCRIPTION NOT FOUND" TO MESSAGE-ALPHA-A
1164 MOVE RSP-GID-RETN-CODE TO ERROR-NUMBER-1
1165 MOVE RSP-GID-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1166 ELSE NEXT SENTENCE.
1167
1168 IF FATAL-ERRORS-NO AND RSP-GIR-RETN-CODE > 0
1169 * Next line if appropriate:
1170 MOVE SPACES TO SCRN-MESSAGE
1171 MOVE "ITEM RECORD ERROR " TO MESSAGE-ALPHA-A
1172 MOVE RSP-GIR-RETN-CODE TO ERROR-NUMBER-1
1173 MOVE RSP-GIR-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1174 ELSE NEXT SENTENCE.
1175
1176 * Handle case where there is a warning in one of the UOWs going from
1177 * left to right:
1178
1179 IF FATAL-ERRORS-NO AND RSP-GIR-RETN-CODE < 0
1180 * Next line if appropriate:
1181 MOVE SPACES TO SCRN-MESSAGE
1182 MOVE "Item-record warning" TO MESSAGE-ALPHA-A
1183 MOVE RSP-GIR-RETN-CODE TO ERROR-NUMBER-1
1184 MOVE RSP-GIR-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1185 ELSE NEXT SENTENCE.
1186
1187
1188 200-GET-ITEM-DESC-ON-ERROR.
1189 IF TERMINATION-STATUS NOT EQUAL 11
1190 MOVE 4 TO ih-PW-REPLY-CODE
1191 ELSE NEXT SENTENCE.
1192
1193 **********************************************************************
1194 * CALL THE AGENT AND PASS IT THE REQUIRED PARAMETERS
1195 **********************************************************************
1196
1197 300-CALL-AGENT.
1198
1199 CALL PROGRAM-CALLED USING AGENT-LINK, AGENT-LINK-REPLY
1200 ON ERROR PERFORM 899-CALL-ERROR.
1201
1202 MOVE AG-REP-ERROR-RETURN TO ERROR-RETURN.
1203
1204 DISPLAY BASE SCREEN1.
1205
1206 300-CALL-AGENT-EXIT.
1207 EXIT.
1208 ***********************************************************************
1209 * END THE SESSION AND ALLOW USER TO START OVER
1210 ***********************************************************************
1211
1212 400-ES.
1213 MOVE -3 TO IH-REQUEST-CODE.
1214 MOVE 1 TO IH-UOWS-TO-PROCESS.
1215 MOVE 0 TO IH-UOWS-RETURNED.
1216
1217 SEND IH-IPC-HDR, UOW-ES-01
1218 TO "TISERV"
1219 REPLY CODE 0, 1, 2 YIELDS IH-IPC-HDR, RSP-ES-01
1220 CODE 3 YIELDS IH-IPC-HDR
1221 ON ERROR PERFORM 400-ES-ON-ERROR.
1222
1223 IF ih-ALL-UOWS-OK
1224 MOVE "N" TO FATAL-ERRORS-CONTROL
1225 MOVE "SESSION ENDED NORMALLY " TO MESSAGE-ALPHA-A
1226 ELSE
1227 PERFORM ONE OF 400-ES-ERRORS,
1228 400-ES-ERRORS,