OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-199
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1480 CALL get_event ( event, dst_cepi );
1481
1482 !------------------------------------------------------------------!
1483 ! The charging parameter is used to convey information about costs !
1484 ! attributed to the account. This parameter should be used only !
1485 ! if the account parameter was used in the FTM_CREATE_REQ_ call. !
1486 ! The information returned in the charging parameter is not used !
1487 ! in this example. !
1488 !------------------------------------------------------------------!
1489
1490 error := FTM_DESELECT_CNF_ ( dst_cepi
1491 , action_result
1492 , dst_charging
1493 , diag );
1494 CALL check_error;
1495 CALL check_action_diag;
1496
1497 event := ZFTM^VAL^EVT^ENDGROUP^CNF;
1498 CALL get_event ( event, dst_cepi );
1499
1500
1501 !------------------------------------------------------------------!
1502 ! Terminate the source-file file-open and file-selection regimes. !
1503 !------------------------------------------------------------------!
1504
1505
1506 !------------------------------------------------------------------!
1507 ! Issue a close and delete request for the source file. The delete !
1508 ! is used since this example is moving the file, not simply !
1509 ! copying it. !
1510 !------------------------------------------------------------------!
1511
1512 !------------------------------------------------------------------!
1513 ! Initialize the threshold for the begin-group request to indicate !
1514 ! that both services (close and delete) must be successful for the !
1515 ! group to succeed. !
1516 !------------------------------------------------------------------!
1517
1518 threshold := 2D;