927:
928: procedure write_to_clob (p_xml out nocopy clob) is
929: l_xfdf_string clob;
930: begin
931: dbms_lob.createtemporary(p_xml,false,dbms_lob.call);
932: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
933: if xml_tab.count > 0 then
934: for ctr_table in xml_tab.first .. xml_tab.last loop
935: dbms_lob.writeappend( p_xml, length(xml_tab(ctr_table).xmlstring), xml_tab(ctr_table).xmlstring );
928: procedure write_to_clob (p_xml out nocopy clob) is
929: l_xfdf_string clob;
930: begin
931: dbms_lob.createtemporary(p_xml,false,dbms_lob.call);
932: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
933: if xml_tab.count > 0 then
934: for ctr_table in xml_tab.first .. xml_tab.last loop
935: dbms_lob.writeappend( p_xml, length(xml_tab(ctr_table).xmlstring), xml_tab(ctr_table).xmlstring );
936: end loop;
931: dbms_lob.createtemporary(p_xml,false,dbms_lob.call);
932: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
933: if xml_tab.count > 0 then
934: for ctr_table in xml_tab.first .. xml_tab.last loop
935: dbms_lob.writeappend( p_xml, length(xml_tab(ctr_table).xmlstring), xml_tab(ctr_table).xmlstring );
936: end loop;
937: end if;
938: --dbms_lob.createtemporary(p_xml,true);
939: --clob_to_blob(l_xfdf_string,p_xml);
934: for ctr_table in xml_tab.first .. xml_tab.last loop
935: dbms_lob.writeappend( p_xml, length(xml_tab(ctr_table).xmlstring), xml_tab(ctr_table).xmlstring );
936: end loop;
937: end if;
938: --dbms_lob.createtemporary(p_xml,true);
939: --clob_to_blob(l_xfdf_string,p_xml);
940: exception
941: when others then
942: hr_utility.trace('sqleerm ' || sqlerrm);