BLOB retrieval problem

Question

I create one function to retrieve PDF file in BLOC column and store the result
in UNIX file to be able to see it with ACROBAT.
see my function
CREATE OR REPLACE FUNCTION GET_PDF_STATEMENT ( p_filename IN VARCHAR2,
     p_request_id IN NUMBER )
     RETURN NUMBER
          IS return_code NUMBER;
temp_blob BLOB;
data_buffer RAW (1);
temp_buffer VARCHAR2(1);
amount BINARY_INTEGER := 1;
position INTEGER := 1;
filehandle utl_file.file_type;
error_number NUMBER;
error_message VARCHAR2(100);
v_error VARCHAR2(100);
directory_statement VARCHAR2(100);
length_count INTEGER;
BEGIN
SELECT statement_pdf_file
INTO temp_blob
FROM nat_statement_pdf
WHERE filename = p_filename
and request_id = p_request_id;
length_count := dbms_lob.getlength(temp_blob);
dbms_output.put_line('Internal LOB size is: ' || length_count);
SELECT directory_path
into directory_statement
from dba_directories
where directory_name = 'STATEMENT_PDF_REPORT_DIR';
filehandle := utl_file.fopen(directory_statement,
          p_filename,'W');
WHILE length_count <> 0 LOOP
dbms_lob.read (temp_blob, amount, position, data_buffer);
temp_buffer := utl_raw.cast_to_varchar2(data_buffer);
utl_file.put (filehandle, temp_buffer);
position := position + 1;
length_count := length_count - 1;
data_buffer := null;
END LOOP;
return_code := 0;
dbms_output.put_line('Exit the loop');
utl_file.fclose(filehandle);
     dbms_output.put_line('Close the file');
return(return_code);
EXCEPTION
WHEN OTHERS THEN
BEGIN
v_error := sqlerrm;
     insert into message_marc ( message) values ( v_error );
     error_number := sqlcode;
insert into message_marc ( message) values ( to_char(error_number) );
return_code := error_number;
     error_message := substr(sqlerrm ,1 ,100);
     dbms_output.put_line('Error #: ' || error_number);
     dbms_output.put_line('Error Message: ' || error_message);
     utl_file.fclose_all;
     commit;
     return(return_code);
END;
END;
I have the problem with file bigger than 32 ; i printed the value of sqlerrm and sqlcode
the results ar sqlerrm = User-defined exception
sqlcode = 1
Ony body can help me
Thanks
Marc

Answer 1

Hi
Call the function without exepction handling and post the error message and the number of the line where the error occures.
Ott Karesz
http://www.trendo-kft.hu