Re: ILE D-spec question

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Hi Joel,

Try defining array with a length of 5 instead of 20. In your first example you
are defining array as having 4 elements, each of which is 20 long. Therefore the
first element overlays the 4 fields cell1 to cell4.

And it's never too late :-)

Paul Tuohy

Joel Fritz wrote:

> I'm confused.  I'm at v4r3 and don't get those results.
>
> I've been using the method taught to me by CVTRPGSRC which isn't very
> elegant or intuitive.
>
> I wrote a test program that defines an array over a data structure in two
> ways.  array is defined as 20 long and overlays the first position of the
> data structure as in the example below.  array2 is the CVTRPGSRC method
> defined as occupying positions 1 through 20.  Here's my sample code
> (virtually bug free, since it has a minimum of executable statements <g>)
> followed by the values shown by debug when I run it:
>
>  *************** Beginning of data *******************************
> D cells           ds
> D cell1                          5    inz('1')
> D cell2                          5    inz('2')
> D cell3                          5    inz('3')
> D cell4                          5    inz('4')
> D array                         20    overlay(cells ) dim(4)
> D cells2          ds
> D cell12                         5    inz('1')
> D cell22                         5    inz('2')
> D cell32                         5    inz('3')
> D cell42                         5    inz('4')
> D array2                  1     20    dim(4)
> C                   eval      *inlr = *on
>
>  EVAL array
>  ARRAY OF CELLS(1) = '1    2    3    4    '
>  ARRAY OF CELLS(2) = '                    '
>  ARRAY OF CELLS(3) = '                    '
>  ARRAY OF CELLS(4) = '                    '
>  EVAL array2
>  ARRAY2 OF CELLS2(1) = '1    '
>  ARRAY2 OF CELLS2(2) = '2    '
>  ARRAY2 OF CELLS2(3) = '3    '
>  ARRAY2 OF CELLS2(4) = '4    '
>
> Is it too late in the day for me?  Looks like array has all four values in
> cell 1 while array2 has one value in each cell.  I'd rather do something
> like the definition of array just because it looks nicer.
>
>
>
> > -----Original Message-----
> > From: Paul Tuohy [mailto:tuohyp@attglobal.net]
> > Sent: Tuesday, March 28, 2000 1:25 PM
> > To: RPG400-L@midrange.com
> > Subject: Re: ILE D-spec question
> >
> >
> > Rich, include the definition of TXT in the data structure as
> > D OTXT            DS
> > .......
> > D  OPPT15
> > D TXT                           75    DIM(15)
> >              OVERLAY(OTXT)
> >
> > HTH
> >
> > Paul Tuohy
> >

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---