RE: Is this the simplest way to define corresponding arrays in D-specs

["Briggs, Trevor (TBriggs2)" <TBriggs2@xxxxxxxxxxx>]

The OP did say he wanted to do everything in D-specs (although he didn't
specify why).

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Schutte
Sent: Thursday, August 08, 2013 8:21 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Is this the simplest way to define corresponding arrays in
D-specs


     D Array      DS          7   CTDATA PERRCD(1) DIM(4)
     D SubSet1               1    OverLay(Array)
     D  SubSet2              6    Overlay(Array:*NEXT)


**
hheader
HHEADER
ffooter
FFOOTER



Or...

D Subset1     Ds        1     CTDATA PERRCD(4) DIM4)
D Subset2     Ds        6     CTDATA PERRCD(1) DIM4)


**
hHfF
**
header
HEADER
footer
FOOTER

Sometimes, things are just over thought...


On Wed, Aug 7, 2013 at 6:07 PM, Rory Hewitt <rory.hewitt@xxxxxxxxx>
wrote:

> As a slight alternative, how about this:
>
>       D               ds
>       D ARRAYS                  28
inz('hheaderHHEADERffooterFFOOTER')
>       D ARRAY                         dim(4) Overlay(ARRAYS)
>       D   ARRAYA                 1    overlay(ARRAY)
>       D   ARRAYB                 6    overlay(ARRAY:*next)
>
> Basically the same thing, but it intersperses the 1-char lookup values
with
> the 6-char return values.
>
> This also allows slightly easier-to-view formatting of the ARRAYS
string,
> to show each ARRAY element on its own line:
>
>       D ARRAYS                  28    inz('hheader+
>       D                                    HHEADER+
>       D                                    ffooter
>       D                                    FFOOTER')
>
> Rory
>
>
> On Wed, Aug 7, 2013 at 1:14 PM, Booth Martin <booth@xxxxxxxxxxxx>
wrote:
> > Is this responsive to your request?
> >
> >       D               ds
> >       D ARRAYS                  28
inz('hHfFheaderHEADERfooterFOOTER')
> >       D ARRAYA                    1    dim(4) overlay(ARRAYS)
> >       D ARRAYB                    6    dim(4) overlay(ARRAYS: *next)
> >
> > The simplest way seemed to me to be using an ALT array, but that can
not
> > be done entirely inside the D-specs; leastways, I couldn't do it.
> >
> >
> > --
> > This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
>
>
> --
> Rory Hewitt
>
> http://www.linkedin.com/in/roryhewitt
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.