1731: BEGIN
1732:
1733: l_str1 := '' ;
1734:
1735: dbms_lob.createtemporary(l_clob, FALSE, DBMS_LOB.CALL);
1736: dbms_lob.open(l_clob, DBMS_LOB.LOB_READWRITE);
1737: --
1738: dbms_lob.writeappend(l_clob, LENGTH(l_str1), l_str1);
1739: --
1732:
1733: l_str1 := '' ;
1734:
1735: dbms_lob.createtemporary(l_clob, FALSE, DBMS_LOB.CALL);
1736: dbms_lob.open(l_clob, DBMS_LOB.LOB_READWRITE);
1737: --
1738: dbms_lob.writeappend(l_clob, LENGTH(l_str1), l_str1);
1739: --
1740: IF g_xml_element_table.COUNT > 0 THEN
1734:
1735: dbms_lob.createtemporary(l_clob, FALSE, DBMS_LOB.CALL);
1736: dbms_lob.open(l_clob, DBMS_LOB.LOB_READWRITE);
1737: --
1738: dbms_lob.writeappend(l_clob, LENGTH(l_str1), l_str1);
1739: --
1740: IF g_xml_element_table.COUNT > 0 THEN
1741: --
1742: FOR table_counter IN g_xml_element_table.FIRST .. g_xml_element_table.LAST LOOP
1752: '>
1753: ']]>';
1754: END IF;
1755: --
1756: dbms_lob.writeappend(l_clob, LENGTH(l_xml_element), l_xml_element);
1757: --
1758: END LOOP;
1759: --
1760: END IF;
3848: g_xml_element_table(g_xml_element_count).tagvalue := '_END_';
3849: g_xml_element_count := g_xml_element_count + 1;
3850:
3851: /*
3852: dbms_lob.createtemporary(p_clob, FALSE, DBMS_LOB.CALL);
3853: dbms_lob.open(p_clob, DBMS_LOB.LOB_READWRITE);
3854: --
3855: dbms_lob.writeappend(p_clob, 10, '
3856: p_xml:=p_clob;
3849: g_xml_element_count := g_xml_element_count + 1;
3850:
3851: /*
3852: dbms_lob.createtemporary(p_clob, FALSE, DBMS_LOB.CALL);
3853: dbms_lob.open(p_clob, DBMS_LOB.LOB_READWRITE);
3854: --
3855: dbms_lob.writeappend(p_clob, 10, '
3856: p_xml:=p_clob;
3857: */
3851: /*
3852: dbms_lob.createtemporary(p_clob, FALSE, DBMS_LOB.CALL);
3853: dbms_lob.open(p_clob, DBMS_LOB.LOB_READWRITE);
3854: --
3855: dbms_lob.writeappend(p_clob, 10, '
3856: p_xml:=p_clob;
3857: */
3858: write_to_clob(p_xml);
3859: