598: IS
599: l_xfdf_string CLOB;
600: BEGIN
601: hr_utility.set_location('Entered Procedure Write to clob ',100);
602: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
603: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
604: -- if vXMLTable.count > 0 then
605: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST
606: LOOP
599: l_xfdf_string CLOB;
600: BEGIN
601: hr_utility.set_location('Entered Procedure Write to clob ',100);
602: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
603: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
604: -- if vXMLTable.count > 0 then
605: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST
606: LOOP
607: dbms_lob.writeAppend(l_xfdf_string,
603: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
604: -- if vXMLTable.count > 0 then
605: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST
606: LOOP
607: dbms_lob.writeAppend(l_xfdf_string,
608: LENGTH(vXMLTable(ctr_table).xmlstring),
609: vXMLTable(ctr_table).xmlstring );
610: END LOOP;
611: p_XML := l_xfdf_string;