UTIL_FILE.FOPEN

Question

Hi
I am trying to open one file using UTIL_FILE.FOPEN and log the error msgs into the file
But the file is not getting created in the path specified
DECLARE
CURSOR CUR_ERR_HEADER IS
SELECT PRODUCT_CODE || '|' || PRODUCT_CODE_TYPE || '|' ||
PRODUCT_CODE_VARIANT || '|' || PRODUCT_CODE_FRMT || '|' || PRODUCT_NAME || '|' ||
PROD_ATTRIBUTE_CHAR|| '|' || INVENTORY_ITEM_ID || '|' ||
GTIN_NUMBER || '|' || PRODUCT_UOM || '|' ||
LOCATION || '|' || ERROR_MESSAGE || '|' || ERROR_CODE OUTPUT
FROM GE_OPSM_PROD_STG
WHERE BATCH_ID = 42
AND STATUS ='E';
V_ERR_FILE UTL_FILE.FILE_TYPE := NULL;
DET_DESC VARCHAR2(100);
HEADER_DESC VARCHAR2(250);
V_TITLE VARCHAR2(100);
V_CHKERR_CNT NUMBER;
BEGIN
DBMS_OUTPUT.PUT_LINE('Inside Error function');
V_ERR_FILE:= UTL_FILE.FOPEN('/export/home/gemsadmin', 'Dataitem1.dat', 'w', 32767);
DBMS_OUTPUT.PUT_LINE('creating the data file');
FOR CUR_ERR_HEADER_REC IN CUR_ERR_HEADER LOOP
DBMS_OUTPUT.PUT_LINE('Inside Loop');
UTL_FILE.PUT_LINE(V_ERR_FILE, CUR_ERR_HEADER_REC.OUTPUT);
END LOOP;
UTL_FILE.FCLOSE(V_ERR_FILE);
EXCEPTION
WHEN OTHERS THEN
UTL_FILE.FCLOSE(V_ERR_FILE);
END ;
Getting output as
Inside Error function
its not Creating the data file in the path specified. can anyone help out inthis

Answer 1

CUR_ERR_HEADER_REC is cursor variable for cursor CUR_ERR_HEADER.
My apologies I misread above line.Replace like below:
--UTL_FILE.PUT_LINE(V_ERR_FILE, CUR_ERR_HEADER_REC.OUTPUT);
UTL_FILE.PUT_LINE(V_ERR_FILE, 'Inserting Data here');
Are you checking the file in right path? I believe that WRITE access has been given to the user on the directory as you are not getting any exception.
Here is a sample code created for you.Please check it.
--log in as DBA if you privilege AND CREATE THE DIRECTORY
SQL> CREATE OR REPLACE DIRECTORY BI_DIR AS '/export/home/gemsadmin';--specify the path
SQL> GRANT READ, WRITE ON DIRECTORY BI_DIR TO SCOTT;
--PROCEDURE CREATED IN SCOTT SCHEMA
CREATE OR REPLACE PROCEDURE GENERATECSV
    AS
    ecomm_directory     VARCHAR2(30) := 'BI_DIR';
    l_filename     VARCHAR2 (100) := 'test.csv';
    V_ERR_FILE          UTL_FILE.FILE_TYPE;
    CURSOR CUR_ERR_HEADER IS
    SELECT 'A' data FROM DUAL
    UNION  ALL
    SELECT 'B' data FROM DUAL;
   BEGIN   
     v_file := UTL_FILE.FOPEN (ecomm_directory, l_filename, 'W', 32767);
     FOR CUR_ERR_HEADER_REC IN CUR_ERR_HEADER LOOP
         UTL_FILE.PUT_LINE (V_ERR_FILE, CUR_ERR_HEADER_REC.data);
     END LOOP;
     UTL_FILE.FFLUSH (V_ERR_FILE);
     UTL_FILE.FCLOSE (V_ERR_FILE);
   EXCEPTION
     WHEN utl_file.invalid_mode THEN
     DBMS_OUTPUT.PUT_LINE('Error1:'||SUBSTR(SQLERRM,1,255));
     WHEN utl_file.invalid_path THEN
     DBMS_OUTPUT.PUT_LINE('Error1:'||SUBSTR(SQLERRM,1,255));
     WHEN utl_file.invalid_filehandle THEN
     DBMS_OUTPUT.PUT_LINE('Error2:'||SUBSTR(SQLERRM,1,255));
     WHEN utl_file.invalid_operation THEN
     DBMS_OUTPUT.PUT_LINE('Error3:'||SUBSTR(SQLERRM,1,255));
     WHEN utl_file.read_error THEN
     DBMS_OUTPUT.PUT_LINE('Error4:'||SUBSTR(SQLERRM,1,255));
     WHEN utl_file.write_error THEN
     DBMS_OUTPUT.PUT_LINE('Error5:'||SUBSTR(SQLERRM,1,255));
     WHEN utl_file.internal_error THEN
     DBMS_OUTPUT.PUT_LINE('Error6:'||SUBSTR(SQLERRM,1,255));
   END GENERATECSV ;
/--Now you are executing the procedure from SCOTT SCHEMA
SQL> exec GENERATECSV;Regards
Biju
Edited by: biju2012 on Aug 22, 2012 4:42 AM