OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-196
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1363 BEGIN
1364
1365 !------------------------------------------------------------------!
1366 ! Terminate the source-file data-transfer regime. !
1367 !------------------------------------------------------------------!
1368
1369 status := FTM_TRANSFER_END_REQ_ ( src_cepi );
1370 CALL check_status ( src_cepi );
1371
1372 event := ZFTM^VAL^EVT^TRANSEND^CNF;
1373 CALL get_event ( event, src_cepi );
1374 error := FTM_TRANSFER_END_CNF_ ( src_cepi
1375 , action_result
1376 , diag );
1377 CALL check_error;
1378 CALL check_action_diag;
1379
1380 !------------------------------------------------------------------!
1381 ! Terminate the destination-file data-transfer regime. !
1382 !------------------------------------------------------------------!
1383
1384 status := FTM_TRANSFER_END_REQ_ ( dst_cepi );
1385 CALL check_status ( dst_cepi );
1386
1387 event := ZFTM^VAL^EVT^TRANSEND^CNF;
1388 CALL get_event ( event, dst_cepi );
1389 error := FTM_TRANSFER_END_CNF_ ( dst_cepi
1390 , action_result
1391 , diag );
1392 CALL check_error;
1393 CALL check_action_diag;
1394
1395 END;
1396
1397
1398 !------------------------------------------------------------------!
1399 !Terminate the destination-file file-open and file-selection regimes!
1400 !------------------------------------------------------------------!
1401