TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–28 40970 Tandem Computers Incorporated
953
954 100-SS-ON-ERROR.
955 IF TERMINATION-STATUS NOT EQUAL 11
956 MOVE 4 TO IH-PW-REPLY-CODE
957 ELSE NEXT SENTENCE.
958 * =====================================================================
959 * SCAN-FOLDER UOW WORK AREA
960 * =====================================================================
961 150-SCAN-FOLDER.
962 MOVE "N" TO FATAL-ERRORS-CONTROL.
963 MOVE -3 TO IH-REQUEST-CODE.
964 MOVE ZERO TO IH-UOWS-RETURNED.
965 MOVE "N" TO IH-LOG-THIS-IPC.
966 MOVE 1 TO IH-UOWS-TO-PROCESS.
967 MOVE ITEM-FILTER-FLAG TO UOW-SCN-FILTER-BY-ITEM-TYPE.
968 MOVE ITEM-TYPE-FILTER-VALUE TO UOW-SCN-ITEM-TYPE.
969 MOVE "INBOX" TO UOW-SCN-FOLDER-NAME.
970 MOVE ITEM-FIRST-TOSCAN TO UOW-SCN-ITEM-ID.
971 MOVE 10 TO UOW-SCN-NUM-REQUESTED.
972 MOVE LOW-VALUES TO RSP-SCN-ITEMS-RETURNED (1).
973 MOVE 10 TO RSP-SCN-NUM-RETURNED.
974 SEND IH-IPC-HDR, UOW-SCAN-FOLDER
975 TO "TISERV"
976 REPLY CODE 0, 1, 2 YIELDS IH-IPC-HDR, RSP-SCAN-FOLDER
977 CODE 3 YIELDS IH-IPC-HDR
978 ON ERROR PERFORM 150-SCAN-ON-ERROR.
979
980 IF IH-ALL-UOWS-OK
981 MOVE RSP-SCN-NUM-RETURNED TO MAX-INDEX-VALUE
982 MOVE "N" TO FATAL-ERRORS-CONTROL
983 MOVE "SCAN FOLDER SUCCESSFULL" TO MESSAGE-ALPHA-A
984 ELSE
985 PERFORM ONE OF 150-SCAN-ERRORS,
986 150-SCAN-ERRORS,
987 150-SCAN-BAD-IPC,
988 150-SCAN-SEND-ERROR
989 DEPENDING ON ih-PW-REPLY-CODE.
990
991 150-SCAN-EXIT.
992 EXIT.
993
994 150-SCAN-SEND-ERROR.
995 * Handle case where a SEND error occured and nothing got through:
996 MOVE "Y" TO FATAL-ERRORS-CONTROL.
997 * Move error code for a fatal SEND error to error-number-1:
998 MOVE 9001 TO ERROR-NUMBER-1.
999 MOVE TERMINATION-STATUS TO ERROR-NUMBER-2.
1000 PERFORM 898-SEND-ERROR-MSG.
1001 MOVE "SEND ERROR AT SCAN FOLDER TIME" TO MESSAGE-ALPHA.
1002
1003 150-SCAN-BAD-IPC.
1004 * Handle case where the IPC header did not work:
1005 MOVE "Y" TO FATAL-ERRORS-CONTROL.
1006 IF IH-IPC-RETN-CODE LESS THAN 4000
1007 * Move error code for reply length invalid to error-number-1:
1008 MOVE 9002 TO ERROR-NUMBER-1
1009 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-2
1010 PERFORM 898-SEND-ERROR-MSG
1011 MOVE "SEND ERROR AT SCAN FOLDER TIME" TO MESSAGE-ALPHA
1012 ELSE
1013 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-1
1014 MOVE IH-IPC-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1015 MOVE "Bad IPC header at START-SESSION time" TO MESSAGE-ALPHA.
1016
1017 150-SCAN-ERRORS.
1018 IF RSP-SCN-RETN-CODE > 0
1019 * Next line if appropriate:
1020 MOVE "Y" TO FATAL-ERRORS-CONTROL
1021 MOVE RSP-SCN-RETN-CODE TO ERROR-NUMBER-1