OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-200
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1519
1520 status := FTM_BEGIN_GROUP_REQ_ ( src_cepi
1521 , threshold );
1522 CALL check_status ( src_cepi );
1523
1524 status := FTM_CLOSE_REQ_ ( src_cepi );
1525 CALL check_status ( src_cepi );
1526
1527 status := FTM_DELETE_REQ_ ( src_cepi );
1528 CALL check_status ( src_cepi );
1529
1530 status := FTM_END_GROUP_REQ_ ( src_cepi );
1531 CALL check_status ( src_cepi );
1532
1533 !------------------------------------------------------------------!
1534 ! Call the following procedures to process the confirms returned in!
1535 ! response to each request. The begin-group and end-group requests !
1536 ! do not have separate confirm functions, but if successful, !
1537 ! they result in confirm events. Call get_event for each. !
1538 !------------------------------------------------------------------!
1539
1540 event := ZFTM^VAL^EVT^BEGINGROUP^CNF;
1541 CALL get_event ( event, src_cepi );
1542
1543 event := ZFTM^VAL^EVT^CLOSE^CNF;
1544 CALL get_event ( event, src_cepi );
1545 error := FTM_CLOSE_CNF_ ( src_cepi
1546 , action_result
1547 , diag );
1548 CALL check_error;
1549 CALL check_action_diag;
1550
1551 event := ZFTM^VAL^EVT^DELETE^CNF;
1552 CALL get_event ( event, src_cepi );
1553
1554 !------------------------------------------------------------------!
1555 ! The charging parameter is used to convey information about costs !
1556 ! attributed to the account. This parameter should be used only !
1557 ! if the account parameter was used in the FTM_SELECT_REQ_ call. !