OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-184
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
895 ! be successful for the group to succeed. !
896 !------------------------------------------------------------------!
897
898 threshold := 3D;
899
900 status := FTM_BEGIN_GROUP_REQ_ ( src_cepi
901 , threshold );
902
903 CALL check_status ( src_cepi );
904
905 status := FTM_SELECT_REQ_ ( src_cepi
906 , src_file
907 , requested_access
908 , access_passwords
909 , account );
910 CALL check_status ( src_cepi );
911
912 status := FTM_READ_ATTRIB_REQ_ ( src_cepi
913 , attr_names );
914
915 CALL check_status ( src_cepi );
916
917 status := FTM_OPEN_REQ_ ( src_cepi
918 , process_mode
919 , contents_type );
920 CALL check_status ( src_cepi );
921
922 status := FTM_END_GROUP_REQ_ ( src_cepi );
923 CALL check_status ( src_cepi );
924
925 !------------------------------------------------------------------!
926 ! Call the following procedures to process the confirms returned !
927 ! by each request. The begin-group and end-group requests do not !
928 ! have separate confirm functions because no values are returned !
929 ! in the corresponding responses; if successful, however, they !
930 ! result in confirm events. Call a get-event for each. !
931 !------------------------------------------------------------------!
932 event := ZFTM^VAL^EVT^BEGINGROUP^CNF;
933 CALL get_event ( event, src_cepi );