Re: XML-INTO is not populating entire ds array

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Shannon,

I don't think XML-INTO is designed to load separate elements into 
separate occurrences of a multiple-occurrence data structure.  As far as 
it's concerned, there's only one data structure (the current occurrence) 
and it'll load the XML into that occurrence -- thus you get only one 
element.

Instead of using a multiple-occurrence data stucture (which is an 
obsolete tool, IMHO) please use a data structure array.  This is what 
I've seen used in all of the examples out there!

In your code, you have this:

D Product         DS                  Occurs(99)
D  Upc                          15A
D  Price                         6A
D  Price_Type                    1A

Change it so that it reads like this, instead:

D Product         DS                  dim(99) qualified
D  Upc                          15A
D  Price                         6A
D  Price_Type                    1A

This should solve your problem... now it will see that it's an array, 
and load each product into a separate array element.  When you try to 
read the contents of the subfields, you DO have to qualify them with the 
name of the DS array.  In this example, you have Product as the name, so 
if you want to access the UPC subfield, you'd code:

    x = 3;
    Whatever = Product(x).Upc;

And that'd set the "whatever" field to the contents of the UPC subfield 
of the 3rd product that was loaded (in your example, 005150076080).  I'm 
just telling you this so you understand the syntax of a qualified data 
structure array (since I get the impression that you haven't used them, 
you're using the older multiple-occurrence technique instead.)


Montross, Shannon wrote:
> 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