OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-220
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
2299 status := FTM_U_ABORT_REQ_ ( dst_cepi
2300 , action_result
2301 , diag);
2302
2303 IF (status <> ZAPS^VAL^STATUS^OK) THEN
2304 BEGIN
2305 tempbuf ':=' "Abort of the destination association failed"
2306 ->@text_ptr;
2307 text_len := @text_ptr - @tempbuf;
2308 CALL WRITE ( termnum, outbuf, text_len );
2309 END;
2310 END;
2311
2312 !------------------------------------------------------------------!
2313 ! Discard the API context information for each CEPI. !
2314 !------------------------------------------------------------------!
2315
2316 IF ( src_cepi <> NOCEPI ) THEN
2317 BEGIN
2318 CALL APS_DISCARD_ ( src_cepi );
2319 END;
2320
2321 IF ( dst_cepi <> NOCEPI ) THEN
2322 BEGIN
2323 CALL APS_DISCARD_ ( dst_cepi );
2324 END;
2325
2326 END; -- abort_discard --
2327
2328
2329
2330