TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–29
1022 MOVE RSP-SCN-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1023 MOVE "SCAN INBOX FOLDER ERROR" TO MESSAGE-ALPHA
1024 MOVE RSP-SCN-NUM-RETURNED TO MAX-INDEX-VALUE
1025 ELSE NEXT SENTENCE.
1026
1027 IF FATAL-ERRORS-NO AND RSP-SCN-RETN-CODE < 0
1028 * Next line if appropriate:
1029 MOVE RSP-SCN-RETN-CODE TO ERROR-NUMBER-1
1030 MOVE RSP-SCN-RETN-CODE-DETAIL TO ERROR-NUMBER-2
1031 MOVE "WARNING ON SCAN OF FOLDER" TO MESSAGE-ALPHA
1032 MOVE RSP-SCN-NUM-RETURNED TO MAX-INDEX-VALUE
1033 IF RSP-SCN-RETN-CODE EQUAL TO -4001
1034 MOVE "WARNING-End of file # returned=" TO MESSAGE-ALPHA-A
1035 MOVE MAX-INDEX-VALUE TO MESSAGE-ALPHA-B
1036 ELSE NEXT SENTENCE
1037 ELSE NEXT SENTENCE.
1038
1039 150-SCAN-ON-ERROR.
1040 IF TERMINATION-STATUS NOT EQUAL 11
1041 MOVE 4 TO IH-PW-REPLY-CODE
1042 ELSE NEXT SENTENCE.
1043
1044 **********************************************************************
1045 * Get the item descriptor record and the subject record if the
1046 * application is mail.
1047 ***********************************************************************
1048 200-GET-ITEM-DESCRIPTOR.
1049 MOVE -3 TO IH-REQUEST-CODE.
1050 MOVE 2 TO IH-UOWS-TO-PROCESS.
1051 MOVE ZERO TO IH-UOWS-RETURNED.
1052 MOVE "N" TO IH-LOG-THIS-IPC.
1053 MOVE 1 TO UOW-GIR-NUM-REQUESTED.
1054 MOVE 140 TO UOW-GIR-MAX-DATASIZE.
1055 MOVE " " TO UOW-GIR-PAD-CHAR.
1056 MOVE RSP-SCN-ITEMS-RETURNED (ITEM-INDEX) TO UOW-GIR-ITEM-ID.
1057 MOVE RSP-SCN-ITEMS-RETURNED (ITEM-INDEX) TO UOW-GID-ITEM-ID.
1058 MOVE 0 TO UOW-GIR-REC-SEQ-NUM.
1059 MOVE "Y" TO UOW-GIR-ANY-REC-TYPE.
1060 MOVE "N" TO UOW-GIR-SKIP-EXACT.
1061 MOVE "Y" TO UOW-GIR-ANY-SEQ-NUM.
1062 MOVE 115 TO UOW-GIR-REC-TYPE.
1063
1064 SEND IH-IPC-HDR, UOW-GID, UOW-GIR
1065 TO "TISERV"
1066 REPLY CODE 0, 1, 2 YIELDS IH-IPC-HDR, RSP-GID,
1067 RSP-GIR
1068 CODE 3 YIELDS IH-IPC-HDR
1069 ON ERROR PERFORM 200-GET-ITEM-DESC-ON-ERROR.
1070
1071
1072 IF IH-ALL-UOWS-OK
1073 MOVE "N" TO FATAL-ERRORS-CONTROL
1074 MOVE "GET ITEM INFORMATION OK" TO MESSAGE-ALPHA-A
1075 ELSE
1076 PERFORM ONE OF 200-GET-ITEM-DESCR-ERRORS,
1077 200-GET-ITEM-DESCR-ERRORS,
1078 200-GET-ITEM-DESCR-BAD-IPC,
1079 200-GET-ITEM-DESCR-SEND-ERROR
1080 DEPENDING ON IH-PW-REPLY-CODE.
1081
1082 IF FATAL-ERRORS-NO
1083 * Handle case where everything is OK:
1084 MOVE CORRESPONDENT-NAME-VALUE TO AG-LNK-RECIP-NAME
1085
1086 MOVE RSP-GID-AGENT-SELECTOR TO AGENT-SELECTOR
1087 MOVE AGENT-SELECTOR TO AG-LNK-AGENT-SELECTOR
1088
1089 MOVE RSP-GID-CERTIFIED TO CERTIFIED-FLAG
1090 MOVE CERTIFIED-FLAG TO AG-LNK-CERTIFIED