RE: XML-INTO is not populating entire ds array

["Ala, Michael A" <michael.ala@xxxxxx>]

I am not an expert on this but my guess would be that you need to
iterate thru instances of products 

Not sure how you test either for the number of nodes or a blank node to
either control the number of iterations or determine how many times to
iterate thru the products 

HTH 

Mike 
 

-----Original Message-----
From: Montross, Shannon [mailto:shannon.montross@xxxxxxxxxxxxxx] 
Sent: Friday, October 05, 2007 11:56 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: XML-INTO is not populating entire ds array


I am new to the XML-INTO process and I am trying to read an xml document
into a data-structure array and I am only getting the first item. Any
help would be appreciated.

Xml file.
<SecSvyWceDataSet>
  <Product>
    <Upc>005150000286</Upc>
    <Price>126</Price>
    <Price_Type>R</Price_Type>
  </Product>
  <Product>
    <Upc>005150076426</Upc>
    <Price>126</Price>
    <Price_Type>R</Price_Type>
  </Product>
  <Product>
    <Upc>005150076080</Upc>
    <Price>126</Price>
    <Price_Type>R</Price_Type>
  </Product>
  <Product>
    <Upc>005150076050</Upc>
    <Price>126</Price>
    <Price_Type>R</Price_Type>
  </Product>
</SecSvyWceDataSet>

Program.
D Product         DS                  Occurs(99)
D  Upc                          15A
D  Price                         6A
D  Price_Type                    1A
                                      
D XML_Input       S            256A      Varying

/FREE             
  XML_Input = 'test20071005.xml';

  XML-INTO Product %XML(XML_Input: 'case=any ' +
                                   'path=SecSvyWceDataSet/Product ' +
                                   'allowmissing=yes ' +
                                   'doc=file ');
     
  *Inlr = *On;	                                         
/END-FREE                                              

When this program runs Products(1) has values for upc, price, and
price_type but array elements 2 through 15 are empty.
Thanks,

Shannon