OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-214
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
2065
2066 status := FTM_U_ABORT_REQ_ ( dst_cepi
2067 , !action_result!
2068 , !diagnostics!);
2069 CALL check_status ( dst_cepi );
2070
2071 END
2072 ELSE IF ( cepi = dst_cepi AND src_con_established ) THEN
2073 BEGIN
2074 status := FTM_U_ABORT_REQ_ ( src_cepi
2075 , !action_result!
2076 , !diagnostics!);
2077 CALL check_status ( src_cepi );
2078 END;
2079 END
2080 ELSE
2081 BEGIN
2082
2083 !---------------------------------------------------------------!
2084 ! The unexpected event was not an abort indication. Issue an !
2085 ! abort for both associations. !
2086 !---------------------------------------------------------------!
2087
2088 IF ( src_con_established ) THEN
2089 BEGIN
2090 status := FTM_U_ABORT_REQ_ ( src_cepi
2091 , !action_result!
2092 , !diagnostics!);
2093 CALL check_status ( src_cepi );
2094 END;
2095 IF ( dst_con_established ) THEN
2096 BEGIN
2097 status := FTM_U_ABORT_REQ_ ( dst_cepi
2098 , !action_result!
2099 , !diagnostics!);
2100 CALL check_status ( dst_cepi );
2101 END;
2102 END;
2103