OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-185
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
934
935 event := ZFTM^VAL^EVT^SELECT^CNF;
936 CALL get_event ( event, src_cepi );
937 error := FTM_SELECT_CNF_ ( src_cepi
938 , state_result
939 , action_result
940 , src_file
941 , diag );
942 CALL check_error;
943 CALL check_action_diag;
944 CALL check_state;
945
946 event := ZFTM^VAL^EVT^READATTR^CNF;
947 CALL get_event ( event, src_cepi );
948 error := FTM_READ_ATTRIB_CNF_ ( src_cepi
949 , action_result
950 , file_attr
951 , diag );
952 CALL check_error;
953 CALL check_action_diag;
954
955 event := ZFTM^VAL^EVT^OPEN^CNF;
956 CALL get_event ( event, src_cepi );
957 error := FTM_OPEN_CNF_ ( src_cepi
958 , state_result
959 , action_result
960 , contents_type
961 , diag );
962
963 CALL check_error;
964 CALL check_action_diag;
965 CALL check_state;
966
967 event := ZFTM^VAL^EVT^ENDGROUP^CNF;
968 CALL get_event ( event, src_cepi );
969
970 !------------------------------------------------------------------!
971 ! Establish the destination file-selection and file-open regimes. !
972 !------------------------------------------------------------------!