OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-66
Writing a File: TAL Programming Example
934
935 event := ZFTM^VAL^EVT^BEGINGROUP^CNF;
936 CALL get_event ( event );
937
938 event := ZFTM^VAL^EVT^CREATE^CNF;
939 CALL get_event ( event );
940 error := FTM_CREATE_CNF_ ( cepi
941 , state_result
942 , action_result
943 , initial_attr
944 , diag );
945 IF ( error <> ZAPS^ERR^OK ) THEN
946 CALL check_error;
947 IF ( state_result = ZFTM^VAL^STATE^FAILURE ) THEN
948 CALL check_state;
949 IF ( action_result = ZFTM^VAL^ACTION^FAILURE ) THEN
950 CALL check_action;
951
952 event := ZFTM^VAL^EVT^OPEN^CNF;
953 CALL get_event ( event );
954 error := FTM_OPEN_CNF_ ( cepi
955 , state_result
956 , action_result
957 , contents_type
958 , diag );
959
960 IF ( error <> ZAPS^ERR^OK ) THEN
961 CALL check_error;
962 IF ( state_result = ZFTM^VAL^STATE^FAILURE ) THEN
963 CALL check_state;
964 IF ( action_result = ZFTM^VAL^ACTION^FAILURE ) THEN
965 CALL check_action;
966
967 event := ZFTM^VAL^EVT^ENDGROUP^CNF;
968 CALL get_event ( event );
969
970 CALL data_transfer_regime;
971
972 CALL CLOSE^FILE ( COMMFCB );