Read Node Attribute with XML DOM.

Question

Hello, I have a XML File like this:
<?xml version="1.0" encoding="ISO-8859-15"?>
<Datenexport>
<Codeliste Nr="1">
<Entry>
<Code>J</Code>
<Decodierung_DE>JA</Decodierung_DE>
<Decodierung_EN/>
</Entry>
<Entry>
<Code>N</Code>
<Decodierung_DE>NEIN</Decodierung_DE>
<Decodierung_EN/>
</Entry>
</Codeliste>
<Codeliste Nr="3">
<Entry>
<Code>??</Code>
<Decodierung_DE>Code noch festzulegen</Decodierung_DE>
<Decodierung_EN>Code to be defined</Decodierung_EN>
</Entry>
I read the File with DOM and it works fin.
This is a sample of my code:
begin
INDOMDOC := DBMS_XMLDOM.NEWDOMDOCUMENT(xml_doc.GETclobVAL());
l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(indomdoc),'/Datenexport','xmlns:xiz="http://www.bvl.bund.de/Schema/2010/xiz"');
FOR cur IN 0 .. dbms_xmldom.getLength(l_nl) - 1
LOOP
l_n := dbms_xmldom.item(l_nl, cur);
l_nl2 := dbms_xmldom.getchildnodes(l_n);
lv_value := dbms_xmldom.getnodename(dbms_xmldom.getfirstchild(l_n));
          FOR cur2 IN 0 .. dbms_xmldom.getLength(l_nl2) - 1
          LOOP
          l_n2 := xmldom.ITEM(l_nl2, cur2);
          nodename_val := dbms_xmldom.getnodename(l_n2);
          dbms_output.put_line('NodenameAntrag: '||nodename_val);
          lv2_value := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(l_n2));
          dbms_output.put_line('NodeValue: '||lv2_value);
          IF nodename_val = 'Codeliste' THEN number_val := dbms_xmldom.????????????????;
Now, i need to read the number of the "Codeliste" (<Codeliste Nr="1">).
But i haven´t find the right function.
Could anbody help me?

Answer 1

Still not using XMLTable for this? ;)
OK, using DOM, for example :
SQL> set serveroutput on
SQL>
SQL> declare
  2    doc       xmltype;
  3    indomdoc  dbms_xmldom.domdocument;
  4    l_nl      dbms_xmldom.DOMNodeList;
  5    l_n       dbms_xmldom.DOMNode;
  6    lv_value  varchar2(30);
  7  begin
  8    doc := xmltype('<?xml version="1.0" encoding="ISO-8859-15"?>
  9  <Datenexport>
10  <Codeliste Nr="1">
11  <Entry>
12  <Code>J</Code>
13  <Decodierung_DE>JA</Decodierung_DE>
14  <Decodierung_EN/>
15  </Entry>
16  <Entry>
17  <Code>N</Code>
18  <Decodierung_DE>NEIN</Decodierung_DE>
19  <Decodierung_EN/>
20  </Entry>
21  </Codeliste>
22  <Codeliste Nr="3">
23  <Entry>
24  <Code>??</Code>
25  <Decodierung_DE>Code noch festzulegen</Decodierung_DE>
26  <Decodierung_EN>Code to be defined</Decodierung_EN>
27  </Entry>
28  </Codeliste>
29  </Datenexport>');
30 
31 
32    indomdoc := dbms_xmldom.newdomdocument(doc);
33 
34    l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(indomdoc),'/Datenexport/Codeliste');
35 
36    FOR cur IN 0 .. dbms_xmldom.getLength(l_nl) - 1 LOOP
37       l_n := dbms_xmldom.item(l_nl, cur);
38       --lv_value := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(l_n));
39       dbms_xslprocessor.valueOf(l_n, '@Nr', lv_value);
40       dbms_output.put_line('Nr : '||lv_value);
41    END LOOP;
42 
43    dbms_xmldom.freeDocument(indomdoc);
44 
45  end;
46  /
Nr : 1
Nr : 3
PL/SQL procedure successfully completed