Load blob to file. error: file write error

Question

Hi,
I used procedure witch load blob to file. It's working at Oracle 10g, but its does't work on oracle 11g. Why?
create or replace PROCEDURE load_blob_to_bfile (p_file_id IN VARCHAR2, p_directory IN VARCHAR2, p_ident in varchar2 default NULL)
IS
v_blob BLOB;
v_start NUMBER := 1;
v_bytelen NUMBER := 2000;
v_len NUMBER;
v_raw RAW (2000);
v_x NUMBER;
v_output UTL_FILE.file_type;
v_file_name VARCHAR2 (200);
BEGIN
-- get length of blob
SELECT DBMS_LOB.getlength (blob_content), filename
INTO v_len, v_file_name
FROM wwv_flow_files
WHERE filename = p_file_id;
-- define output directory
v_output := UTL_FILE.fopen (p_directory, p_ident||'_'||v_file_name, 'wb', 32760);
-- save blob length
v_x := v_len;
-- select blob into variable
SELECT blob_content
INTO v_blob
FROM wwv_flow_files
WHERE filename = p_file_id;
v_start := 1;
WHILE v_start < v_len AND v_bytelen > 0
LOOP
DBMS_LOB.READ (v_blob, v_bytelen, v_start, v_raw);
UTL_FILE.put_raw (v_output, v_raw);
UTL_FILE.fflush (v_output);
/* Text only could be: UTL_RAW.cast_to_varchar2 (v_raw);*/
-- set the start position for the next cut
v_start := v_start + v_bytelen;
-- set the end position if less than 32000 bytes
v_x := v_x - v_bytelen;
IF v_x < 2000
THEN
v_bytelen := v_x;
END IF;
END LOOP;
UTL_FILE.fclose (v_output);
END;
directories is creaited and granted for read and write. It looks like file is created, but application rise the write file error, and files in directory is emty.
TomasB

Answer 1

So, I'm copying the file in a temp. BLOB with this function:
FUNCTION get_remote_binary_data (p_conn IN OUT NOCOPY UTL_TCP.connection,
p_file IN VARCHAR2)
RETURN BLOB IS
l_conn UTL_TCP.connection;
l_amount PLS_INTEGER;
l_buffer RAW(32767);
l_data BLOB;
BEGIN
DBMS_LOB.createtemporary (lob_loc => l_data,
CACHE => TRUE,
dur => DBMS_LOB.CALL);
l_conn := get_passive(p_conn); //get a passive connection
send_command(p_conn, 'RETR ' || p_file, TRUE); //send Retrieve command to server
BEGIN
LOOP
l_amount := UTL_TCP.read_raw (l_conn, l_buffer, 32767);
DBMS_LOB.writeappend(l_data, l_amount, l_buffer);
END LOOP;
EXCEPTION
WHEN UTL_TCP.END_OF_INPUT THEN
NULL;
WHEN OTHERS THEN
NULL;
END;
UTL_TCP.close_connection(l_conn);
get_reply(p_conn);
RETURN l_data;
END;
Then I'm writing it into a local file:
PROCEDURE put_local_binary_data (p_data IN BLOB,
p_dir IN VARCHAR2,
p_file IN VARCHAR2) IS
l_out_file UTL_FILE.FILE_TYPE;
l_buffer RAW(32767);
l_amount BINARY_INTEGER;
l_pos INTEGER := 1;
l_blob_len INTEGER;
BEGIN
l_blob_len := DBMS_LOB.getlength(p_data);
l_amount := DBMS_LOB.GETCHUNKSIZE(p_data);
IF (l_amount >= 32767) THEN
l_amount := 32767;
END IF;
l_out_file := UTL_FILE.FOPEN(p_dir, p_file, 'w', 32767);
WHILE l_pos < l_blob_len LOOP
DBMS_LOB.READ (p_data, l_amount, l_pos, l_buffer);
UTL_FILE.put_raw(l_out_file, l_buffer, FALSE);     
l_pos := l_pos + l_amount;
END LOOP;
UTL_FILE.FCLOSE(l_out_file);
EXCEPTION
WHEN OTHERS THEN
IF UTL_FILE.IS_OPEN(l_out_file) THEN
UTL_FILE.FCLOSE(l_out_file);
END IF;
RAISE;
END;
I've checked the blob before I'we wrote it ito the file (UTL_FILE.put_raw(l_out_file, l_buffer, FALSE)), and it contains no carriage-return.