RE: Multi-field dynamic array (Booth Martin)

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

You don't even need to declare the size of BuyerInfo (oops, now BuyerArray
in this version..)... The compiler works it all out.  

D BuyerDS         DS                  Qualified               
D CurCount                       5i 0 Inz(0)                  
D BuyerArray                          DIM(500)                
D   Buyer                        3A   Overlay(BuyerArray:1)      
D   Item                        27A   Overlay(BuyerArray:*next)
D   Quantity                    11S 2 Overlay(BuyerArray:*next)
D   LastPurch                    8S 0 Overlay(BuyerArray:*next)
D   Vendor                       6A   Overlay(BuyerArray:*next)


Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-297-2863 or ext. 1863



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Booth Martin
Sent: Wednesday, January 11, 2006 4:54 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Multi-field dynamic array (Booth Martin)


D                 DS
D BuyerInfo                     56A   DIM(1)
D   Buyer                        3A   Overlay(BuyerInfo)
D   Item                        27A   Overlay(*next)
D   Quantity                    11S 2 Overlay(*next)
7D   LastPurch                    8S 0 Overlay(*next)
D   Vendor                       6A   Overlay(*next)

Grizzly M wrote:
> 1) I've never seen or used *NEXT. 
> ...