Re: Loading an array from multiple fields in a record

[Jim Essinger <dilbernator@xxxxxxxxx>]

Thanks Jeff, and all who answered.  That is what we were looking for.

Jim

On Thu, Sep 30, 2010 at 11:42 AM, Jeff Young <cooljeff913@xxxxxxxxx> wrote:

> Try this:
> D InFields        DS
> D  Field01
> D  Field02
> .
> .
> .
> .
> D Field24
> D WkArray  (defined like Field01) dim(24) Overlay(InFields)
>
>
> This will cause the array to overlay the storage for your database fields.
>
>
> Jeff Young
> Sr. Programmer Analyst
> IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions
> V5R2
> IBM  Certified Specialist- e(logo) server i5Series Technical Solutions
> Designer V5R3
> IBM  Certified Specialist- e(logo)server i5Series Technical
> Solutions Implementer V5R3
>
>
>
>
>
>
>
>
>
> ________________________________
> From: Jim Essinger <dilbernator@xxxxxxxxx>
> To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
> Sent: Thu, September 30, 2010 1:27:14 PM
> Subject: Loading an array from multiple fields in a record
>
> Greetings!
>
> I am a former (reformed) COBOL programmer still trying to re-learn RPG
> (learned and used RPG II) and upgrade my knowledge to include the newer
> functionality.  I have searched the archives, but have not found a good way
> to do this.
>
> I have a file with records that contain 24 contiguous fields with like
> information.  They are all dollar amounts. From one record I need to load
> an
> array so that field01 becomes array element 1, field02 becomes array
> element
> 1 and so on.
>
> Is there an easy way in RPG to accomplish this?
>
> I have tried to create a DS with like;
>
>
> D ds
> D InFields
> D  Field01
> D  Field02
> .
> .
> .
> .
> D  Field24
>
> D ds
> D WkArray  (defined like Field01) dim(24)
>
> Then I have tried several ways to get the data structure InFields to load
> each field into the array WkArray.  All with no luck.
>
> Any thoughts?
>
> Thanks!
>
> Jim
> --
> This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.