OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-198
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1441 status := FTM_CHANGE_ATTRIB_REQ_ ( dst_cepi
1442 , change_attr );
1443 CALL check_status ( dst_cepi );
1444
1445 status := FTM_DESELECT_REQ_ ( dst_cepi );
1446 CALL check_status ( dst_cepi );
1447
1448 status := FTM_END_GROUP_REQ_ ( dst_cepi );
1449 CALL check_status ( dst_cepi );
1450
1451
1452 !------------------------------------------------------------------!
1453 ! Call the following procedures to process the confirms returned !
1454 ! in response to each request. The begin-group and end-group !
1455 ! requests do not have separate confirm procedures, but if !
1456 !successful, they result in confirm events. Call get_event for each.!
1457 !------------------------------------------------------------------!
1458
1459 event := ZFTM^VAL^EVT^BEGINGROUP^CNF;
1460 CALL get_event ( event, dst_cepi );
1461
1462 event := ZFTM^VAL^EVT^CLOSE^CNF;
1463 CALL get_event ( event, dst_cepi );
1464 error := FTM_CLOSE_CNF_ ( dst_cepi
1465 , action_result
1466 , diag );
1467 CALL check_error;
1468 CALL check_action_diag;
1469
1470 event := ZFTM^VAL^EVT^CHANGEATTR^CNF;
1471 CALL get_event ( event, dst_cepi );
1472 error := FTM_CHANGE_ATTRIB_CNF_ ( dst_cepi
1473 , action_result
1474 , change_attr
1475 , diag );
1476 CALL check_error;
1477 CALL check_action_diag;
1478
1479 event := ZFTM^VAL^EVT^DESELECT^CNF;