RE: Addressing Multiple Fields as an Array

Here's some sample code.  

 Fitminvh1  if   e           k disk           
 D                 DS                         
 D  ARR                    1     25  0        
 D                                     DIM(5) 
 D  lwk1                   1      5  0        
 D  lwk2                   6     10  0        
 D  lwk3                  11     15  0        
 D  lwk4                  16     20  0        
 D  lwk5                  21     25  0        
 D                                            


This shows an array over 5 buckets in the record format of the file named
above it.

> -----Original Message-----
> From: Phil Gregory [mailto:pgregory@hillmgt.com]
> Sent: Tuesday, December 21, 1999 6:58 AM
> To: rpg400-l@midrange.com
> Subject: Addressing Multiple Fields as an Array
> 
> 
> I'm pretty sure this question has been here before, but there 
> don't seem
> to be any archives of this list, so I apologize for repeating 
> a question
> you've seen before.
> 
> I have a number of fields (ten, actually) in a database that I want to
> address as an array.  (I.E. istead of calling them Type1, 
> Type2, ..., I
> want to call them TypeArray(1), TypeArray(2), ....)  I think I recall
> seeing this done by overlaying a data structure with an array or vice
> versa, but I can't get the syntax right and I can't find the 
> documentation 
> on how to do it, either.  Can anyone out there set me straight?
> +---
> | 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
> +---
> 
+---
| 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
+---