create or replace procedure exp_blob as
src_lob BLOB;
buffer RAW(32767);
amt BINARY_INTEGER := 32767; --32767;
pos INTEGER := 1; --2147483647;
Dir_out Varchar(30) := 'EXPORT_F';
myFile utl_file.file_type ;
BEGIN
myFile := sys.utl_file.FOPEN(Dir_out,'Test_06','W');
SELECT doc.mondoc INTO src_lob FROM mesdoc doc WHERE doc.id=41742;
LOOP
dbms_lob.read (src_lob, amt, pos, buffer);
utl_file.put_raw(myFile,buffer,true);
pos := pos + amt;
dbms_output.put_line('lire 02'||to_char(pos));
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
utl_file.FCLOSE(myFile);
end;
Partager