Problem in UTL_FILE

Question

I have written a following procedure and it complies successfully.
create or replace procedure utl_file_test_write (
path in varchar2,
filename in varchar2,
firstline in varchar2,
secondline in varchar2)
is
output_file utl_file.file_type;
begin
output_file := utl_file.fopen (path,filename, 'W');
utl_file.put_line (output_file, firstline);
utl_file.put_line (output_file, secondline);
utl_file.fclose(output_file);
end;
I have create the directory using the following command
SQL> CREATE DIRECTORY log_dir AS 'd:\oracle\oraclelog_dir';
Directory created
SQL> GRANT READ ON DIRECTORY log_dir TO DBA;
Grant succeeded
SQL> CREATE DIRECTORY out_dir AS 'd:\oracle\oracleout_dir';
Directory created
SQL> GRANT READ ON DIRECTORY out_dir TO DBA;
Grant succeeded
SQL> COMMIT;
But when I execute this then it gives the following error.
ORA-06510: PL/SQL: unhandled user-defined exception
ORA-06512: at "SYS.UTL_FILE", line 98
ORA-06512: at "SYS.UTL_FILE", line 157
ORA-06512: at "UTL_FILE_TEST_WRITE", line 9
ORA-06512: at line 1
I am using the following version.
Oracle8i Enterprise Edition Release 8.1.5.0.0 - Production
PL/SQL Release 8.1.5.0.0 - Production
CORE Version 8.1.3.0.0 - Production
TNS for Solaris: Version 8.1.5.0.0 - Production
NLSRTL Version 3.4.0.0.0 - Production
Can anybody help me how can I solve the problem.
Thanks in advance

Answer 1

I think you are not handeling the exceptions. First you add the exceptions and it will tell you what kind of exception is raised.
Try:
  EXCEPTION
       WHEN utl_file.invalid_path THEN
         raise_application_error(-20100,'Invalid Path');
       WHEN utl_file.invalid_mode THEN
         raise_application_error(-20101,'Invalid Mode');
       WHEN utl_file.invalid_operation THEN
         raise_application_error(-20102,'Invalid Operation');
       WHEN utl_file.invalid_filehandle THEN
         raise_application_error(-20103,'Invalid Filehandle');
       WHEN utl_file.write_error THEN
         raise_application_error(-20104, 'Write Error');
       WHEN utl_file.read_error THEN
         raise_application_error(-20105,'Read Error');
       WHEN utl_file.internal_error THEN
         raise_application_error(-20106,'Internal Error');
       WHEN others THEN
         utl_file.fclose(v_file_id);
         raise_application_error (-20007, sqlerrm);HTH
Ghulam