OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-68
Writing a File: TAL Programming Example
1012
1013 event := ZFTM^VAL^EVT^BEGINGROUP^CNF;
1014 CALL get_event ( event );
1015
1016 event := ZFTM^VAL^EVT^CLOSE^CNF;
1017 CALL get_event ( event );
1018 error := FTM_CLOSE_CNF_ ( cepi
1019 , action_result
1020 , diag );
1021 IF ( error <> ZAPS^ERR^OK ) THEN
1022 CALL check_error;
1023 IF ( action_result = ZFTM^VAL^ACTION^FAILURE ) THEN
1024 CALL check_action;
1025
1026 event := ZFTM^VAL^EVT^DESELECT^CNF;
1027 CALL get_event ( event );
1028 error := FTM_DESELECT_CNF_ ( cepi
1029 , action_result
1030 , charging
1031 , diag );
1032 IF ( error <> ZAPS^ERR^OK ) THEN
1033 CALL check_error;
1034 IF ( action_result = ZFTM^VAL^ACTION^FAILURE ) THEN
1035 CALL check_action;
1036
1037 event := ZFTM^VAL^EVT^ENDGROUP^CNF;
1038 CALL get_event ( event );
1039
1040 END; --- file_selection_open_regime ---
1041
1042
1043 ?PAGE "DATA_TRANSFER_REGIME"
1044 !--------------------------------------------------------------------!
1045 ! !
1046 ! Name: data_transfer_regime !
1047 ! !
1048 ! Description: This procedure establishes the data-transfer regime !
1049 ! and moves the data across. !
1050 ! !