CREATE OR REPLACE PROCEDURE DEVDEFT.pra (p_action in number default null) is
cursor c1 is select distinct uev.actionBy from  hclt_temp_mail_record uev;
v1 c1%rowtype;
cursor c0  is
SELECT  uev.actionBy,uev.displayinfo  from hclt_temp_mail_record uev where uev.actionby=v1.actionby;
vc0 c0%rowtype;
vmail_content_old clob;
vmail_content_new clob;
mail_clob clob;
begin
	open c1 ;
  loop
   fetch c1 into v1;
   exit when c1%notfound;
   dbms_lob.createtemporary(mail_clob,false,dbms_lob.call);
   open c0;
        loop
	proclog('TESTCLOB','CLOB');
            fetch c0 into vc0;
            exit when c0%notfound;
           vmail_content_new:=null;
             vmail_content_new:=vc0.displayinfo;
            DBMS_LOB.APPEND(mail_clob, vmail_content_new);
     end loop;
	close c0;
    dbms_lob.freetemporary(mail_clob);
    dbms_lob.freetemporary(vmail_content_new);
    end loop;
    close c1;
END;