Re: xml-into

On 8/16/2013 3:12 PM, RPGLIST wrote:

Jon and Barbara,
I'm still working on this, I just changed the xml just a tad so its more
in line with where I'm going in the end:

<loads>
<load>
<shipper>Acme Metal</shipper>
<consignee>Derringer Steel</consignee>
<pickup>Norfolk</pickup>
<pickup>Omaha</pickup>
</load>
</loads>

So you might have multiple loads too?

D Load_t ds qualified template
D dim(999)
D Shipper 20
D Consignee 20
D Pickups 20 dim(999)
D Num_Pickups 10i 0

D Loads DS qualified
D Load likeds(Loads_t) dim(999)
D Num_Load 10i 0

option = 'doc=file case=any countprefix=num_';
xml-into ...
for lo = 1 to Loads.Num_Load;
work with Loads.Load(lo).Shipper etc ...
for pi = 1 to Loads.Load(lo);
work with Loads.Load(lo).Pickup(pi);
endfor;
endfor;

Or you might use %HANDLER to handle any number of loads, if the only thing under the "loads" element in your XML is zero or more load elements.