Re: Mapping buckets in a record to arrays -- RPG400-L

Can you do something like this?

D               E DS                  EXTNAME(File1) Inz 
D @UNameit1       S               *   Inz(%addr(firstbucketfieldset1)) 
D UNameit1        S                   like(firstbucketfieldset1) 
based(@UNameit1)
D                                     Dim(13) 
D @UNameit2       S               *   Inz(%addr(firstbucketfieldset2)) 
D UNameit2        S                   like(firstbucketfieldset2) 
based(@UNameit1)
D                                     Dim(13) 

etc. 
Thanks
Bill Hopkins






"Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces+bhopkins=libertyhardware.com@xxxxxxxxxxxx
09/10/2003 02:49 PM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Mapping buckets in a record to arrays


For one file I'm not sure about 6

D               E DS                  EXTNAME(File1) Inz 
D @UNameit        S               *   Inz(%addr(firstbucketfield)) 
D UNameit         S                   like(firstbucketfield) 
based(@UNameit)
D                                     Dim(13) 
 * 

Thanks
Bill Hopkins
 




Jeff Markel <JMarkel@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/10/2003 02:38 PM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     "'rpg400-l@xxxxxxxxxxxx'" <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Mapping buckets in a record to arrays


I have 6 files that each contain many sets of 13 buckets each. Is there a
way to define an external data structure for each file and "map" an array 
to
each set of buckets? I guess overlay might work, but I would have to
calculate the offset in the records for each array. Can I create an array,
based on a pointer, and initialize the pointer to the first bucket field
address? I seem to remember someone before having a problem with fields 
not
being contiguous in memory and that caused a problem.

Any help would be appreciated! Thx!

Jeff Markel
Developer, Information Access
IBM Certified Specialist - iSeries RPG IV Developer
Costco Wholesale Corporate Office
Issaquah, Washington
Office  (425) 427-7662
FAX    (425) 313-6800
JMarkel@xxxxxxxxxx


_______________________________________________
This is the RPG programming on the AS400 / 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.



_______________________________________________
This is the RPG programming on the AS400 / 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.