OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-201
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1558 ! The information returned in the charging parameter is not used !
1559 ! in this example. !
1560 !------------------------------------------------------------------!
1561
1562 error := FTM_DELETE_CNF_ ( src_cepi
1563 , action_result
1564 , src_charging
1565 , diag );
1566 CALL check_error;
1567 CALL check_action_diag;
1568
1569 event := ZFTM^VAL^EVT^ENDGROUP^CNF;
1570 CALL get_event ( event, src_cepi );
1571
1572 !------------------------------------------------------------------!
1573 ! Terminate the source-file FTAM regime. !
1574 !------------------------------------------------------------------!
1575
1576 status := FTM_TERMINATE_REQ_ ( src_cepi );
1577 CALL check_status ( src_cepi );
1578
1579 event := ZFTM^VAL^EVT^TERMINATE^CNF;
1580 CALL get_event ( event, src_cepi );
1581
1582 !------------------------------------------------------------------!
1583 ! The charging parameter is used to convey information about costs !
1584 ! attributed to the account. This parameter should be used only if !
1585 ! the account parameter was used in the FTM_INITIALIZE_REQ_ call. !
1586 ! The information returned in the charging parameter is not used !
1587 ! in this example. !
1588 !------------------------------------------------------------------!
1589
1590 error := FTM_TERMINATE_CNF_ ( src_cepi
1591 , src_charging );
1592
1593 CALL check_error;
1594
1595 !------------------------------------------------------------------!
1596 ! Terminate the destination-file FTAM regime. !