RE: What is syntax for arrays within array?

This is even better.  It's also shockingly obvious in the clear light of
hindsight.  The handprint on my forehead is just starting to go away.

The behavior of *next is probably documented, but it's more fun to learn it
by "discovery." <g>

> -----Original Message-----
> From: Jon Paris [mailto:Jon.Paris@Partner400.com]
> Sent: Friday, February 22, 2002 8:22 AM
> To: rpg400-l@midrange.com
> Subject: What is syntax for arrays within array?
>
>
>  >> This doesn't quite work in the way I expected.
>
> Yes - you're right Joel, I didn't test it just modified the
> original until
> the Code/400 verifier liked it!  In fact when you reverse the
> sequence,
> neither the Overlay keyword or *Next is required on the 25
> element arrays.
> So the simple version is:
>
>      D Arrays          DS
>      D  QtyOHS                        5S 0  Dim(25)
>      D  QtyOHN                        5S 0  Dim(25)
>      D  QtyOHM                        5S 0  Dim(25)
>      D  QtyOHW                        5S 0  Dim(25)
>      D  QtyOHWW                     5S 0  Dim(25)
>      D QtyOH                            5S 0  Dim(125) Overlay(Arrays)
>
> 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.
>