Email Clob values using zip.

Question

I have table cms_reports. Tbl srtucture group id number data type file is clob datatype
group_id File (clob) Filename(varchar2)
1 clobdata(1) file1
1 clobdata(2) file2
1 clobdata(3) file3
1 clobdata(4) file4
2 clobdata(5) file5
2 clobdata(6) file6
I have to write a procedure that takes group id as IN parameter
if I pass 1 as group id to the procedure, proc can zip file1,file2,file3 and file4, then send an email.
file1 should hold clobdata(1)
file2 should hold clobdata(2)
file3 should hold clobdata(3)
file4 should hold clobdata(4)
is it possible or any suggestions?

Answer 1

Anton,
I think , I will convert all the clobs to blobs, then I will use your package to zip multiple blobs to one zip file.
I am using this below code to convet the clob to blob and then pass it to your package code. am I doing right thing?
CREATE OR REPLACE FUNCTION f_clob_to_blob(p_clob IN CLOB) RETURN BLOB IS
v_blob BLOB;
v_offset NUMBER DEFAULT 1;
v_amount NUMBER DEFAULT 4096;
v_offsetwrite NUMBER DEFAULT 1;
v_amountwrite NUMBER;
v_buffer VARCHAR2(4096 CHAR);
BEGIN
dbms_lob.createtemporary(v_blob, TRUE);
Begin
LOOP
dbms_lob.READ(p_clob, v_amount, v_offset, v_buffer);
v_amountwrite := utl_raw.length(utl_raw.cast_to_raw(v_buffer));
dbms_lob.WRITE(v_blob, v_amountwrite, v_offsetwrite, utl_raw.cast_to_raw(v_buffer));
v_offsetwrite := v_offsetwrite + v_amountwrite;
v_offset := v_offset + v_amount;
v_amount := 4096;
END LOOP;
EXCEPTION
WHEN no_data_found THEN
NULL;
End;
RETURN v_blob;
END f_clob_to_blob;
/