XMLDOM + XMLTYPE

Question

Hello.
I need to generate XML document with special structure from Database 11g.
I am using DBMS_XMLDOM to ganerate structure.
<GenericData
xmlns="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/message"
xmlns:common="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/common"
xmlns:compact="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/compact"
xmlns:cross="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/cross"
xmlns:generic="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/generic"
xmlns:query="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/query"
xmlns:structure="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/structure"
xmlns:utility="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/utility"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/message SDMXMessage.xsd">
<Dataset>
<generic:Series>
<generic:Series>
<generic:Series>
<generic:Series>
</Dataset>
</GenericData>
One of the main nodes is Dataset.
I am using select XMLELEMENT("Dataset", .........) INTO Q FROM EMS_001
WHERE Q has XMLType.
How i can add XMLType to XMLDOM document as node?

Answer 1

Believe me, you should get rid of all this DOM stuff, you'll have more luck doing the whole thing with SQL/XML functions only.
Not only you'll have a clearer, easier to debug code but also a lot more scalable when applied on large datasets.I Thought about it. But i have more than 2 data sources and can't get them all in 1 select.
I find a best solution for myself:
DECLARE
DOC DBMS_XMLDOM.DOMDOCUMENT;
TAGDOC DBMS_XMLDOM.DOMDOCUMENT;
ROOT_ELEMENT DBMS_XMLDOM.DOMELEMENT;
ELEM DBMS_XMLDOM.DOMELEMENT;
ROOT_NODE DBMS_XMLDOM.DOMNODE;
NODE DBMS_XMLDOM.DOMNODE;
C CLOB;
TAG XMLType;
BEGIN
DOC := DBMS_XMLDOM.CREATEDOCUMENT('http://www.w3.org/2001/XMLSchema', NULL, NULL);
DBMS_XMLDOM.SETVERSION(DOC, '1.0');
ROOT_ELEMENT := DBMS_XMLDOM.CREATEELEMENT(DOC, 'GenericData', 'xmlns');
DBMS_XMLDOM.SETATTRIBUTE(ROOT_ELEMENT, 'xmlns', 'http://www.SDMX.org/resources/SDMXML/schemas/v1_0/message');
DBMS_XMLDOM.SETATTRIBUTE(ROOT_ELEMENT, 'xmlns:generic', 'http://www.SDMX.org/resources/SDMXML/schemas/v1_0/generic');
ROOT_NODE := DBMS_XMLDOM.MAKENODE(ROOT_ELEMENT);
NODE := DBMS_XMLDOM.MAKENODE(DOC);
NODE := DBMS_XMLDOM.APPENDCHILD(NODE, ROOT_NODE);
---------------------- HEADER TAG -------------------
SELECT XMLELEMENT("Header", XMLATTRIBUTES('singHead' AS "Id"),
XMLELEMENT("ID", -944960705),
XMLELEMENT("Test", 'false'),
XMLELEMENT("Truncated", 'false'),
XMLELEMENT("Prepared", '2011-01-27T04:32:42'),
XMLELEMENT("Extracted", '2011-01-27T04:32:42'),
XMLELEMENT("Sender", XMLATTRIBUTES('FTS' AS "id"),
XMLELEMENT("Name", XMLATTRIBUTES('en' AS "xml:lang"), 'FFFF'),
XMLELEMENT("Name", XMLATTRIBUTES('ru' AS "xml:lang"), 'ФФФФ'),
XMLELEMENT("Contact",
XMLELEMENT("Name", XMLATTRIBUTES('ru' AS "xml:lang"), 'JOHN'),
XMLELEMENT("URI", 'mailto:[email protected]'))),
XMLELEMENT("Receiver", XMLATTRIBUTES('1' AS "id"),
XMLELEMENT("Name", XMLATTRIBUTES('ru' AS "xml:lang"), 'ФФФФ'),
XMLELEMENT("Contact",
XMLELEMENT("Name", XMLATTRIBUTES('ru' AS "xml:lang"), 'JOHN'),
XMLELEMENT("Telephone", '+000.000.0000'))),
XMLELEMENT("DataSetAgency", 1),
XMLELEMENT("DataSetID", 1812022)
) INTO TAG FROM DUAL;
TAGDOC := DBMS_XMLDOM.NEWDOMDOCUMENT(TAG);
ELEM := DBMS_XMLDOM.GETDOCUMENTELEMENT(TAGDOC);
ELEM := DBMS_XMLDOM.MAKEELEMENT(DBMS_XMLDOM.IMPORTNODE(DOC,DBMS_XMLDOM.MAKENODE(ELEM),TRUE));
ELEM := DBMS_XMLDOM.MAKEELEMENT(DBMS_XMLDOM.APPENDCHILD(DBMS_XMLDOM.MAKENODE(ROOT_ELEMENT),DBMS_XMLDOM.MAKENODE(ELEM)));
---------------------- HEADER TAG -------------------
---------------------- DATASET TAG ------------------
TAG := XMLTYPE('<DataSet xmlns:generic="http://www.SDMX.org/resources/SDMXML/schemas/v1_0/generic">
     <generic:Series>
          <generic:SeriesKey>
               <generic:Value concept="okato" value="643"/>
               <generic:Value concept="uslug" value="1"/>
          </generic:SeriesKey>
          <generic:Attributes>
               <generic:Value concept="EI" value="percent"/>
               <generic:Value concept="PERIOD" value="year"/>
          </generic:Attributes>
          <generic:Obs>
               <generic:Time>1995</generic:Time>
               <generic:ObsValue value="108,6"/>
          </generic:Obs>
     </generic:Series>
</DataSet>
TAGDOC := DBMS_XMLDOM.NEWDOMDOCUMENT(TAG);
ELEM := DBMS_XMLDOM.GETDOCUMENTELEMENT(TAGDOC);
DBMS_XMLDOM.REMOVEATTRIBUTE(ELEM, 'xmlns:generic');
ELEM := DBMS_XMLDOM.MAKEELEMENT(DBMS_XMLDOM.IMPORTNODE(DOC,DBMS_XMLDOM.MAKENODE(ELEM),TRUE));
ELEM := DBMS_XMLDOM.MAKEELEMENT(DBMS_XMLDOM.APPENDCHILD(DBMS_XMLDOM.MAKENODE(ROOT_ELEMENT),DBMS_XMLDOM.MAKENODE(ELEM)));
---------------------- DATASET TAG ------------------
DBMS_LOB.CREATETEMPORARY(C, TRUE, DBMS_LOB.SESSION);
DBMS_XMLDOM.WRITETOCLOB(DOC, C);
INSERT INTO PROBA VALUES (C);
COMMIT;
DBMS_XMLDOM.FREENODE(NODE);
DBMS_XMLDOM.FREENODE(ROOT_NODE);
DBMS_XMLDOM.FREEDOCUMENT(TAGDOC);
DBMS_XMLDOM.FREEDOCUMENT(DOC);
END;
As you see i can get nodes data from SELECT and add them as nodes to main XML.
Edited by: Alexys on 10.04.2012 12:04
Edited by: Alexys on 10.04.2012 12:05
Edited by: Alexys on 10.04.2012 12:06