CONVERTTOCLOB procedure

Question

I'm new to using this procedure.
There is a ConvertToClob procedure in Oracle that I want to use.
I have a BLOB named BLOB_CONTENT already being inserted into my database table named "xmltest2" I want to be able to either
1) Extract the Blob_content out of the table and convert it into a clob -OR-
2) Have the blob convert over to clob before inserting into the table.
Either is fine as long as it converts. lol
I have this so far.
Begin
-- this portion works just fine to add the BLOB into my database.
insert into xmltest2 (ID,ITEM_ID,TYPE,ENTERED_DATE,ENTERED_BY,VALIDATED,VALIDATED_DATE,VALIDATED_BY,
FILENAME, blob_content, clob_content)
select item_xml_seq.nextval,gda_item_id, v_xml_type, v_entered_date, v_entered_by,
v_validated, v_validated_date, v_validated_by, name, blob_content, clob_content
from gda_files@apex_gda_dev
where gda_item_id = v_item_id and name = v_file_name_xml;
---Here is where I think I am having issues. I have also put update SQL command at the end but it doesnt change anything.
DBMS_LOB.CREATETEMPORARY(lob_loc=>src_blob, cache=>TRUE, dur=>dbms_lob.SESSION);
DBMS_LOB.CREATETEMPORARY(lob_loc=>dest_lob, cache=>TRUE, dur=>dbms_lob.SESSION);
DBMS_LOB.CONVERTTOCLOB(dest_lob,src_blob,amount,dest_offset,src_offset,blob_csid,lang_context,warning);
Ive seen small bits of information on using a loop but thats probably over doing what I need. I just need the Blob to convert to clob and insert it into the table. Does anyone have any suggestions?
Thank you for any help. :))

Answer 1

Hello,
You can just try this function to convert the BLOB data to CLOB.
Before converting this just create this function.
Then you may try as given below
Declare
b blob;
c clob;
begin
select blobdata into b from table_name;
c := blob2clob(b);
-- Use this clob data and insert into the table.
end;
FUNCTION BLOB2CLOB ( p_blob IN BLOB ) RETURN CLOB
-- typecasts BLOB to CLOB (binary conversion)
IS
|| Purpose : To Convert a BLOB File to CLOB File
|| INPUT : BLOB File
|| OUTPUT : CLOB File
|| History: MB V5.0 24.09.2007 RCMS00318572 Initial version
ln_file_check NUMBER;
ln_file_size NUMBER;
v_text_file CLOB;
v_binary_file BLOB;
v_dest_offset INTEGER := 1;
v_src_offset INTEGER := 1;
v_lang_context INTEGER := DBMS_LOB.default_lang_ctx;
v_warning INTEGER;
csid VARCHAR2(100) := 'WE8ISO8859P15'; --'AL32UTF8';
lv_data CLOB;
ln_length NUMBER;
BEGIN
DBMS_LOB.createtemporary (v_text_file, TRUE);
SELECT dbms_lob.getlength(p_blob) INTO ln_file_size FROM DUAL;
--DBMS_LOB.convertToClob(file_clob,file_blob,ln_file_size,ln_file_size,1);
--dbms_output.put_line(ln_file_size);
DBMS_LOB.converttoclob (v_text_file, p_blob, ln_file_size, v_dest_offset, v_src_offset, 0, v_lang_context, v_warning);
SELECT dbms_lob.getlength(v_text_file) INTO ln_length FROM DUAL;
--dbms_lob.substr(v_text_file,ln_file_size,1) into lv_data from dual;
RETURN v_text_file;
END;