Untitled

CREATE OR REPLACE PROCEDURE write_file IS FileN          utl_file.file_type; TmpF           varchar2(40) := 'testfile.dat'; TmpF_E         boolean; TmpF_L         number; TmpF_BS        number; DummyLine      varchar2(40) := 'TestFile';BEGIN  FileN := utl_file.fopen('TMP', TmpF, 'w');  utl_file.put_line(FileN, DummyLine, FALSE);  utl_file.fflush(FileN);  COMMIT;  utl_file.fclose(FileN);  utl_file.fgetattr('TMP', TmpF, TmpF_E, TmpF_L, TmpF_BS);  IF TmpF_E THEN        dbms_output.put_line('File ok');  ELSE        dbms_output.put_line('File is not ok');  END IF;  utl_file.fremove('TMP', TmpF);EXCEPTION WHEN utl_file.file_open THEN    RAISE_APPLICATION_ERROR (-20059, 'File Already Opened'); WHEN utl_file.invalid_path THEN    RAISE_APPLICATION_ERROR (-20063, 'Invalid path'); WHEN utl_file.invalid_filename THEN    RAISE_APPLICATION_ERROR (-20061, 'Invalid File Name'); WHEN utl_file.access_denied THEN    RAISE_APPLICATION_ERROR (-20062, 'File Access Denied By'); WHEN others THEN    RAISE_APPLICATION_ERROR (-20099, 'Unknown UTL_FILE Error');END write_file;/