RE: What is syntax for arrays within array?

Thank you all.  This is my final solution:

     D QtyOHArray      DS
     D  QtyOHS                        5S 0 Overlay(QtyOHArray)       Dim(25)
     D  QtyOHN                        5S 0 Overlay(QtyOHArray:*Next) Dim(25)
     D  QtyOHM                        5S 0 Overlay(QtyOHArray:*Next) Dim(25)
     D  QtyOHW                        5S 0 Overlay(QtyOHArray:*Next) Dim(25)
     D  QtyOHWW                       5S 0 Overlay(QtyOHArray:*Next) Dim(25)
     D QtyOH                          5S 0 Overlay(QtyOHArray) Dim(125)
     D @QtyOH          S               *

Yes, I understand I don't need the Overlay except on the QtyOH, but I feel
this is a little self documenting in what I am actually doing.

Kinda funny though, the error I was getting was:
RNV3732E Array keyword is not allowed with keyword OVERLAY; keyword is
ignored.

So my solution is to use the Array keyword (DIM) with OVERLAY.  That error
message is next to worthless, except to tell me there is something the
compiler doesn't like.

Regards,

Jim Langston


-----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.