RE: What is syntax for arrays within array?

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

This doesn't quite work in the way I expected.  The compile listing shows
Arrays being 1125 bytes long rather than 625.  However, if you put the 125
element array at the bottom of the data structure it seems to work.  Looks
to me like *next looks for the first offset as yet unoccupied by any part of
an overlaid subfield since qtyohs gets loaded correctly, but the remaining
sub arrays don't.

Even so, I'm very happy to be able to give up counting on my fingers.

> -----Original Message-----
> From: Jon Paris [mailto:Jon.Paris@Partner400.com]
> Sent: Thursday, February 21, 2002 4:00 PM
> To: rpg400-l@midrange.com
> Subject: What is syntax for arrays within array?
>
>
> This is a multi-part message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
>
> It becomes much simpler and cleaner if you use a name for the
> DS and overlay
> against that.  Use of *Next is also clearer and ensures that
> you get what
> you mean as opposed to what you type - that is if you have as
> much trouble
> with counting beyond 10 as I have <grin>
>
>      D Arrays          DS
>      D QtyOH                          5S 0 Dim(125)
>      D  QtyOHS                        5S 0 Overlay(Arrays)
>     Dim(25)
>      D  QtyOHN                        5S 0
> Overlay(Arrays:*Next)  Dim(25)
>      D  QtyOHM                        5S 0
> Overlay(Arrays:*Next)  Dim(25)
>      D  QtyOHW                        5S 0
> Overlay(Arrays:*Next)  Dim(25)
>      D  QtyOHWW                       5S 0
> Overlay(Arrays:*Next)  Dim(25)
>
>
> Jon Paris
> Partner400
> --
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>