OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-215
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
2104 !------------------------------------------------------------------!
2105 ! Verify that a CEPI exists, and if it does, discard it. !
2106 !------------------------------------------------------------------!
2107
2108 IF ( src_cepi <> NOCEPI ) THEN
2109 BEGIN
2110 CALL APS_DISCARD_ ( src_cepi );
2111 END;
2112
2113 IF ( dst_cepi <> NOCEPI ) THEN
2114 BEGIN
2115 CALL APS_DISCARD_ ( dst_cepi );
2116 END;
2117
2118 !------------------------------------------------------------------!
2119 ! Display a message to the terminal and exit the program. !
2120 !------------------------------------------------------------------!
2121
2122 tempbuf ':=' "Unexpected event received" -> @text_ptr;
2123 text_len := @text_ptr - @tempbuf;
2124 CALL WRITE ( termnum, outbuf, text_len );
2125
2126 tempbuf ':=' "Associations discarded" -> @text_ptr;
2127 text_len := @text_ptr - @tempbuf;
2128 CALL WRITE ( termnum, outbuf, text_len );
2129
2130 CALL STOP;
2131
2132 END; -- bad_event --
2133
2134
2135 ?PAGE "CHECK_ACTION_DIAG"
2136 !---------------------------------------------------------------------!
2137 ! !
2138 ! Name: check_action_diag !
2139 ! !
2140 ! Description: The check_action_diag procedure determines whether !
2141 ! the action requested of a remote responder was !
2142 ! successful or not. If not, the procedure displays !