442: -- |---------------------------------------------------------------------------|
443: -- |--------------------------------< getXML >---------------------------------|
444: -- |---------------------------------------------------------------------------|
445: --
446: -- DBMS_XMLGEN/DBMS_XMLQUERY cannot be used because of Assignment Set validation.
447: --
448: function getXML return clob
449: is
450: l_clob clob;
466: is
467: l_value varchar2(2000);
468: begin
469: if p_value is not null then
470: l_value := '<' || p_tag || '>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
471: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
472: --
473: -- Workaround for XDO bug.6129128
474: --
471: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
472: --
473: -- Workaround for XDO bug.6129128
474: --
475: l_value := '<' || p_tag || '_2>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
476: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
477: l_value := '<' || p_tag || '_3>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
478: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
479: l_value := '<' || p_tag || '_4>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
473: -- Workaround for XDO bug.6129128
474: --
475: l_value := '<' || p_tag || '_2>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
476: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
477: l_value := '<' || p_tag || '_3>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
478: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
479: l_value := '<' || p_tag || '_4>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
480: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
481: end if;
475: l_value := '<' || p_tag || '_2>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
476: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
477: l_value := '<' || p_tag || '_3>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
478: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
479: l_value := '<' || p_tag || '_4>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
480: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
481: end if;
482: end append_item;
483: --