OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-195
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1324 status := FTM_CANCEL_REQ_ ( dst_cepi
1325 , action_result
1326 , diag );
1327 CALL check_status ( dst_cepi );
1328
1329 event := ZFTM^VAL^EVT^CANCEL^CNF;
1330 CALL get_event ( event, dst_cepi );
1331 error := FTM_CANCEL_CNF_ ( dst_cepi
1332 , action_result
1333 , diag );
1334 CALL check_error;
1335 CALL check_action_diag;
1336
1337 END
1338
1339
1340 ELSE
1341 BEGIN
1342 CALL bad_event ( event, src_cepi );
1343 END;
1344
1345 END
1346 UNTIL ( event <> ZFTM^VAL^EVT^DATA^IND );
1347
1348 ! End of file-transfer loop !
1349
1350
1351 !------------------------------------------------------------------!
1352 ! Issue an FTM_TRANSFER_END_REQ_ call to the source and destination!
1353 ! systems and wait for the respective confirms. This terminates !
1354 ! the data-transfer regime for each association. !
1355 !------------------------------------------------------------------!
1356
1357 !------------------------------------------------------------------!
1358 ! When a cancel occurs, the data-transfer regime is terminated. !
1359 ! Skip the next section if a cancel took place. !
1360 !------------------------------------------------------------------!
1361
1362 IF ( event <> ZFTM^VAL^EVT^CANCEL^CNF ) THEN