OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-213
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
2026 ! CEPI identifying the association that carried the !
2027 ! event !
2028 ! !
2029 ! Output: Error messages to terminal !
2030 ! !
2031 !---------------------------------------------------------------------!
2032
2033 PROC bad_event ( event, cepi );
2034
2035 INT .EXT event;
2036 INT cepi;
2037
2038 BEGIN
2039
2040 !------------------------------------------------------------------!
2041 ! If an abort indication is received on one of the two !
2042 ! associations, the other must be aborted. Any other event !
2043 ! requires that both associations be aborted. !
2044 !------------------------------------------------------------------!
2045
2046 IF ( event = ZFTM^VAL^EVT^PABORT^IND ) THEN
2047 BEGIN
2048 !---------------------------------------------------------------!
2049 ! Retrieve the action result and diagnostic messages for the !
2050 ! P-abort. !
2051 !---------------------------------------------------------------!
2052
2053 error := FTM_P_ABORT_IND_ ( cepi
2054 , action_result
2055 , diag );
2056 CALL check_error;
2057 CALL check_action_diag;
2058
2059 !---------------------------------------------------------------!
2060 !Determine which association was aborted and then abort the other!
2061 !---------------------------------------------------------------!
2062
2063 IF ( cepi = src_cepi AND dst_con_established ) THEN
2064 BEGIN