OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-202
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1597 !------------------------------------------------------------------!
1598
1599 status := FTM_TERMINATE_REQ_ ( dst_cepi );
1600 CALL check_status ( dst_cepi );
1601
1602 event := ZFTM^VAL^EVT^TERMINATE^CNF;
1603 CALL get_event ( event, dst_cepi );
1604
1605 error := FTM_TERMINATE_CNF_ ( dst_cepi
1606 , ! charging ! );
1607
1608 CALL check_error;
1609
1610 !------------------------------------------------------------------!
1611 ! Discard the API context information for the source association. !
1612 !-------------------------------------------------------------------!
1613
1614 status := APS_DISCARD_ ( src_cepi );
1615 CALL check_status ( src_cepi );
1616
1617 !------------------------------------------------------------------!
1618 ! Discard the API context information for the destination association.!
1619 !------------------------------------------------------------------!
1620
1621 status := APS_DISCARD_ ( dst_cepi );
1622 CALL check_status ( dst_cepi );
1623
1624 !------------------------------------------------------------------!
1625 ! Display a message to the terminal that the program completed !
1626 ! successfully. !
1627 !------------------------------------------------------------------!
1628
1629 tempbuf ':=' "File move complete" -> @text_ptr;
1630 text_len := @text_ptr - @tempbuf;
1631 CALL WRITE ( termnum, outbuf, text_len );
1632
1633 END; --- MOVEFILE ---
1634
1635