426: -- |---------------------------------------------------------------------------|
427: -- |--------------------------------< getXML >---------------------------------|
428: -- |---------------------------------------------------------------------------|
429: --
430: -- DBMS_XMLGEN/DBMS_XMLQUERY cannot be used because of Assignment Set validation.
431: --
432: function getXML return clob
433: is
434: l_clob clob;
450: is
451: l_value varchar2(2000);
452: begin
453: if p_value is not null then
454: l_value := '<' || p_tag || '>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
455: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
456: --
457: -- Workaround for XDO bug.6129128
458: --
455: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
456: --
457: -- Workaround for XDO bug.6129128
458: --
459: l_value := '<' || p_tag || '_2>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
460: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
461: l_value := '<' || p_tag || '_3>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
462: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
463: l_value := '<' || p_tag || '_4>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
457: -- Workaround for XDO bug.6129128
458: --
459: l_value := '<' || p_tag || '_2>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
460: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
461: l_value := '<' || p_tag || '_3>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
462: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
463: l_value := '<' || p_tag || '_4>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
464: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
465: end if;
459: l_value := '<' || p_tag || '_2>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
460: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
461: l_value := '<' || p_tag || '_3>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
462: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
463: l_value := '<' || p_tag || '_4>' || dbms_xmlgen.convert(p_value) || '' || c_lf;
464: dbms_lob.writeAppend(l_clob, length(l_value), l_value);
465: end if;
466: end append_item;
467: --