TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–27
884 ON ERROR PERFORM 100-SS-ON-ERROR.
885
886 IF IH-ALL-UOWS-OK
887 MOVE SPACES TO SCRN-MESSAGE
888 MOVE "N" TO FATAL-ERRORS-CONTROL
889 MOVE "SESSION IS STARTED" TO MESSAGE-ALPHA-A
890 ELSE
891 PERFORM ONE OF 100-SS-ERRORS,
892 100-SS-ERRORS,
893 100-SS-BAD-IPC,
894 100-SS-SEND-ERROR
895 DEPENDING ON IH-PW-REPLY-CODE.
896
897 IF FATAL-ERRORS-NO
898 * Handle case where everything is OK:
899 MOVE "Y" TO SESSION-STARTED-CONTROL
900 MOVE RSP-SS-RESOLVED-NAME TO CORRESPONDENT-NAME-VALUE
901 MOVE IH-SESSION-ID TO AG-LNK-SESSION-ID.
902
903 100-SS-EXIT.
904 EXIT.
905
906 100-SS-SEND-ERROR.
907 * Handle case where SEND error occured and nothing got through:
908 MOVE "Y" TO FATAL-ERRORS-CONTROL.
909 * Move error code for a fatal SEND error to error-number-1
910 MOVE 9001 TO ERROR-NUMBER-1.
911 MOVE TERMINATION-STATUS TO ERROR-NUMBER-2.
912 PERFORM 898-SEND-ERROR-MSG.
913 MOVE "SEND ERROR AT START SESSION TIME" TO MESSAGE-ALPHA.
914
915 100-SS-BAD-IPC.
916 * Handle case where the IPC header did not work:
917 MOVE "Y" TO FATAL-ERRORS-CONTROL.
918 IF ih-IPC-RETN-CODE LESS THAN 4000
919 * Move error code for reply length invalid to error-number-1
920 MOVE 9002 TO ERROR-NUMBER-1
921 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-2
922 PERFORM 898-SEND-ERROR-MSG
923 MOVE "SEND ERROR AT START SESSION TIME" TO MESSAGE-ALPHA
924 ELSE
925 MOVE IH-IPC-RETN-CODE TO ERROR-NUMBER-1
926 MOVE IH-IPC-RETN-CODE-DETAIL TO ERROR-NUMBER-2
927 MOVE "BAD IPC HEARDER AT START SESSION TIME" TO MESSAGE-ALPHA.
928
929 100-SS-ERRORS.
930 * Handle case where there is an error in one of the UOWs going from
931 * left to right:
932 IF RSP-SS-RETN-CODE > 0
933 * Next line if appropriate:
934 MOVE SPACES TO SCRN-MESSAGE
935 MOVE "Y" TO FATAL-ERRORS-CONTROL
936 MOVE RSP-SS-RETN-CODE TO ERROR-NUMBER-1
937 MOVE RSP-SS-RETN-CODE-DETAIL TO ERROR-NUMBER-2
938 MOVE "SESSION NOT STARTED" TO MESSAGE-ALPHA
939 ELSE NEXT SENTENCE.
940
941 * Handle case where there is a warning in one of the UOWs going from
942 * left to right:
943 IF FATAL-ERRORS-NO AND RSP-SS-RETN-CODE < 0
944 * Next line if appropriate:
945 MOVE SPACES TO SCRN-MESSAGE
946 MOVE RSP-SS-RETN-CODE TO ERROR-NUMBER-1
947 MOVE RSP-SS-RETN-CODE-DETAIL TO ERROR-NUMBER-2
948 MOVE "Y" TO SESSION-STARTED-CONTROL
949 MOVE RSP-SS-RESOLVED-NAME TO CORRESPONDENT-NAME-VALUE
950 MOVE IH-SESSION-ID TO AG-LNK-SESSION-ID
951 MOVE "CONCURRENT SESSION STARTED" TO MESSAGE-ALPHA
952 ELSE NEXT SENTENCE.