Problem while parsing xml file

Question

HI
I have a xml file which looks like this
          <--A>
<ID>ABCD</ID>
               <--B>
               <Amount1>1</Amount1>
               <Amount2>2</Amount2>
               <--/B>
               <--B>
          <Amount1>3</Amount1>
               <Amount2>4</Amount2>
               <--/B>
          <--/A>
          <--A>
<ID>EFGH</ID>
               <--B>
               <Amount1>5</Amount1>
               <Amount2>6</Amount2>
               <--/B>
               <--B>
          <Amount1>7</Amount1>
               <Amount2>8</Amount2>
               <--/B>
          <--/A>
(Appended -- before tags so that its displayed properly here)
I have to parse through this xml file and for each ID,i have to display corresponding amounts.As we can see //A represents each row.
I have written code like this.
l_clob := '<<<XML Content as shown above >>>;
dbms_xmlparser.parseClob(l_parser, l_clob);
l_doc := dbms_xmlparser.getDocument(l_parser);
-- Free resources associated with the CLOB and Parser now they are no longer needed.
dbms_xmlparser.freeParser(l_parser);
l_nl1 := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'//A');
FOR cur_rec IN 0 .. dbms_xmldom.getLength(l_nl1) - 1 LOOP
l_n1 := dbms_xmldom.item(l_nl1, cur_rec);
lv_id := dbms_xslprocessor.valueOf(l_n1,'ID/text()');
l_nl2 := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'//B');
FOR cur_rec2 IN 0 .. dbms_xmldom.getLength(l_nl2) - 1 LOOP
l_n2 := dbms_xmldom.item(l_nl2, cur_rec2);
lv_Amount1 := dbms_xslprocessor.valueOf(l_n2,'Amount1/text()');
lv_Amount2 := dbms_xslprocessor.valueOf(l_n2,'Amount2/text()');
dbms_Output.put_line (lv_id ||lv_Amount1|| lv_Amount2 );
end loop;
end loop;
The problem i am facing is , in the second loop i want to disdplay only values corresponding to ID which is coming in first loop.But when i give //B,its going through all the values in xml file under //B but not going through //B part of each record fethed in loop1.
How can we display Each ID and corresponding amounts only(Not all the Amounts in XML File).
Thanks
Pramod
Edited by: 842802 on Mar 21, 2011 9:27 AM

Answer 1

No need for Pl/SQL:
with t as (
select '<A>
<ID>ABCD</ID>
<B>
<Amount1>1</Amount1>
<Amount2>2</Amount2>
</B>
<B>
<Amount1>3</Amount1>
<Amount2>4</Amount2>
</B>
</A>
<A>
<ID>EFGH</ID>
<B>
<Amount1>5</Amount1>
<Amount2>6</Amount2>
</B>
<B>
<Amount1>7</Amount1>
<Amount2>8</Amount2>
</B>
</A>' x from dual
select  id,
        amount1,
        amount2
  from  t,
        xmltable(
                 '$d/D/A'
                 passing xmltype('<D>' || x || '</D>') as "d"
                 columns id varchar2(10) path 'ID',
                         B xmltype path '/'
                ) y,
        xmltable(
                 '$d/A/B'
                 passing y.b as "d"
                 columns amount1 number path '/B/Amount1',
                         amount2 number path '/B/Amount2'
                ) z
ID            AMOUNT1    AMOUNT2
ABCD                1          2
ABCD                3          4
EFGH                5          6
EFGH                7          8
SQL> SY.