RE: ILE D-spec question -- RPG400-L

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
> 
> Rich Duzenbury wrote:
> 
> > D OTXT            DS
> > D  OPPTX1
> > D  OPPTX2
> > D  OPPTX3
> > D  OPPTX4
> > D  OPPTX5
> > D  OPPTX6
> > D  OPPTX7
> > D  OPPTX8
> > D  OPPTX9
> > D  OPPT10
> > D  OPPT11
> > D  OPPT12
> > D  OPPT13
> > D  OPPT14
> > D  OPPT15
> > D TXT             S             75    DIM(15)
> >
> > There is an existing file on the system that can hold up to 
> fifteen individual lines of text, represented by the data 
> structure above.  Each line of text happens to be 75 bytes 
> long.  For processing reasons, I need to load the text lines 
> into an array.
> >
> > So far the best I've been able to do is declare the array 
> separately and at run time MOVEA OTXT to TXT for every record 
> prior to processing.  I'm sure there must be an easy way to 
> automagically overlay the data structure on the array, and 
> cut my memory requirement in half, but I didn't find any good 
> clues in the AS/400 ILE RPG reference.
> >
> > Please don't ask me to redesign the file structure, because 
> political and economic reasons prevent it.
> >
> > Regards,
> > Rich
> >
+---
| 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
+---