Problem while creating xml with cdata section

Question

Hi,
I am facing problem while creating xml with cdata section in it. I am using Oracle 10.1.0.4.0 I am writing a stored procedure which accepts a set of input parameters and creates a xml document from them. The code snippet is as follows:
select xmlelement("DOCUMENTS",
xmlagg
(xmlelement
("DOCUMENT",
xmlforest
(m.document_name_txt as "DOCUMENT_NAME_TXT",
m.document_type_cd as "DOCUMENT_TYPE_CD",
'<![cdata[' || m.document_clob_data || ']]>' as "DOCUMENT_CLOB_DATA"
) from table(cast(msg_clob_data_arr as DOCUMENT_CLOB_TBL))m;
msg_clob_data_arr is an input parameter to procedure and DOCUMENT_CLOB_TBL is a pl/sql table of an object containing 3 attributes: first 2 being varchar2 and the 3rd one as CLOB. The xml document this query is generating is as follows:
<DOCUMENTS>
<DOCUMENT>
<DOCUMENT_NAME_TXT>TestName</DOCUMENT_NAME_TXT>
<DOCUMENT_TYPE_CD>BLOB</DOCUMENT_TYPE_CD>
<DOCUMENT_CLOB_DATA>
&lt;![cdata[123456789012345678901234567890123456789012]]&gt;
</DOCUMENT_CLOB_DATA>
</DOCUMENT>
</DOCUMENTS>
The problem is instead of <![cdata[....]]> xmlforest query is encoding everything to give &lt; for cdata tag. How can I overcome this? Please help.

Answer 1

SQL> create or replace function XMLCDATA_10103 (elementName varchar2,
  2                                             cdataValue varchar2)
  3  return xmltype deterministic
  4  as
  5  begin
  6     return xmltype('<' || elementName || '><![CDATA[' || cdataValue || ']]>
  7  end;
  8  /
Function created.
SQL>  select xmlelement
  2         (
  3            "Row",
  4            xmlcdata_10103('Junk','&<>!%$#&%*&$'),
  5            xmlcdata_10103('Name',ENAME),
  6            xmlelement("EMPID", EMPNO)
  7         ).extract('/*')
  8* from emp
SQL> /
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[SMITH]]></Name>
  <EMPID>7369</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[ALLEN]]></Name>
  <EMPID>7499</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[WARD]]></Name>
  <EMPID>7521</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[JONES]]></Name>
  <EMPID>7566</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[MARTIN]]></Name>
  <EMPID>7654</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[BLAKE]]></Name>
  <EMPID>7698</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[CLARK]]></Name>
  <EMPID>7782</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[SCOTT]]></Name>
  <EMPID>7788</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[KING]]></Name>
  <EMPID>7839</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[TURNER]]></Name>
  <EMPID>7844</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[ADAMS]]></Name>
  <EMPID>7876</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[JAMES]]></Name>
  <EMPID>7900</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[FORD]]></Name>
  <EMPID>7902</EMPID>
</Row>
<Row>
  <Junk><![CDATA[&<>!%$#&%*&$]]></Junk>
  <Name><![CDATA[MILLER]]></Name>
  <EMPID>7934</EMPID>
</Row>
14 rows selected.
SQL>