OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-65
Writing a File: TAL Programming Example
895 threshold := 2D;
896
897 status := FTM_BEGIN_GROUP_REQ_ ( cepi, threshold );
898 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
899 CALL check_status;
900
901 !------------------------------------------------------------------!
902 ! Create the file. !
903 !------------------------------------------------------------------!
904
905 status := FTM_CREATE_REQ_ ( cepi
906 , initial_attr
907 , override
908 , create_password
909 , requested_access
910 , ! access_passwords !
911 , account );
912 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
913 CALL check_status;
914
915 !------------------------------------------------------------------!
916 ! Open the file. !
917 !------------------------------------------------------------------!
918
919 status := FTM_OPEN_REQ_ ( cepi
920 , process_mode
921 , contents_type );
922 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
923 CALL check_status;
924
925 error := FTM_END_GROUP_REQ_ ( cepi );
926 IF ( error <> ZAPS^ERR^OK ) THEN
927 CALL check_error;
928
929 !------------------------------------------------------------------!
930 ! Each request in the group returns a confirm if no errors have !
931 ! occurred. (Note that the begin-group and end-group services do !
932 ! not have confirm procedures). !
933 !------------------------------------------------------------------!