File access Invalid Operation

Question

using Oracle 10g,
when I am running the procedure, it is not creating the data file in the target directory ,instead i am getting the
DBD::Oracle::st execute failed: ORA-20001: ORACLE ERROR: ORA-20102: Invalid Operation
and also,I created the TEST_TEMP using create directory script
and the file name is given with all access and still ,it is not creating the file in the target directory
and the same script,if I run from TEST or Prod,it is creating the file with out any problem
could you pls let me know if i am missing any settings
PROCEDURE EXTRACTFILE(in_filename IN VARCHAR2) AS
     vDir    VARCHAR2(50) := 'TEST_TEMP';  
BEGIN
  file_io.open_write(vDir,in_filename);
      FOR x IN
         (SELECT item,
                 SOURCE,
                 DEST,
                 qty
            FROM product ) LOOP
          file_io.write_buf(
             x.item || ';' ||
             x.SOURCE || ';' ||
             x.dest || ';' ||
             x.qty );
       END LOOP;
   file_io.close_file;
   commit;
EXCEPTION
  WHEN OTHERS THEN
    Proc_Stat_Util.Write_Bad_Msg( 'ORACLE ERROR: '||DBMS_UTILITY.FORMAT_ERROR_STACK );
    COMMIT;
    RAISE_APPLICATION_ERROR(-20001,'ORACLE ERROR: '||DBMS_UTILITY.FORMAT_ERROR_STACK );
END;

Answer 1

can you pls find below my file_io pkg
CREATE OR REPLACE PACKAGE BODY "FILE_IO" AS
file_handle UTL_FILE.FILE_TYPE;
PROCEDURE open_file( floc IN VARCHAR2, fname IN VARCHAR2, fmode IN VARCHAR2 ) IS
BEGIN
  IF NOT UTL_FILE.IS_OPEN(file_handle) THEN
   file_handle := UTL_FILE.FOPEN( floc, fname, fmode );
  END IF;
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 OTHERS THEN RAISE;
END;
PROCEDURE open_read( floc IN VARCHAR2, fname IN VARCHAR2 ) IS
BEGIN
  open_file(floc, fname, 'r');
END;
PROCEDURE open_write( floc IN VARCHAR2, fname IN VARCHAR2 ) IS
BEGIN
  open_file(floc, fname, 'w');
END;
PROCEDURE open_append( floc IN VARCHAR2, fname IN VARCHAR2 ) IS
BEGIN
  open_file(floc, fname, 'a');
END;
PROCEDURE close_file IS
BEGIN
  IF UTL_FILE.IS_OPEN(file_handle) THEN
   UTL_FILE.FCLOSE(file_handle);
  END IF;
EXCEPTION
  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 OTHERS THEN RAISE;
END;
PROCEDURE read_buf( buf IN OUT VARCHAR2 ) IS
BEGIN
  UTL_FILE.GET_LINE( file_handle, buf );
EXCEPTION
  WHEN UTL_FILE.INVALID_FILEHANDLE THEN
   RAISE_APPLICATION_ERROR(-20103,'Invalid Filehandle');
  WHEN UTL_FILE.INVALID_OPERATION THEN
   RAISE_APPLICATION_ERROR(-20102,'Invalid Operation');
  WHEN UTL_FILE.READ_ERROR THEN
   RAISE_APPLICATION_ERROR(-20105,'Read Error');
  WHEN OTHERS THEN RAISE;
END;
PROCEDURE write_buf( buf IN VARCHAR2 ) IS
BEGIN
  UTL_FILE.PUT_LINE( file_handle, buf );
EXCEPTION
  WHEN UTL_FILE.INVALID_FILEHANDLE THEN
   RAISE_APPLICATION_ERROR(-20103,'Invalid Filehandle');
  WHEN UTL_FILE.INVALID_OPERATION THEN
   RAISE_APPLICATION_ERROR(-20102,'Invalid Operation');
  WHEN UTL_FILE.WRITE_ERROR THEN
   RAISE_APPLICATION_ERROR(-20104,'Write Error');
  WHEN OTHERS THEN RAISE;
END;
END;
/