RE: **SPAM** RE: updating a PF from an array

Does your DS look like this??

> D                     DS
> D ARC                           10a
> D ARD                             1a   DIM(10) Overlay(ARC) 

If so then anything you move into ARC should automagically populate the
array.  Likewise if you load the array it should automagically load the
char field.

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
Sent: Monday, January 30, 2006 10:44 AM
To: RPG programming on the AS400 / iSeries
Subject: **SPAM** RE: updating a PF from an array

Thanks Tommy, does it work the other way? I noticed that a plain MOVE
does
not actually do it,
MOVE      J8CMNT        ARC

the array stays blank after this statement.

> Generally when I have to do this I use the D specs...it's easier &
more
> efficient (IMO)...
>
> D                     DS
> D Alpha                           10a
> D ARD                             1a   DIM(10) Overlay(Alpha)
>
> Now the array can be referenced via array element or as a 10 byte char
> field.  Not to mention you no longer have to "move" the array data.
> Both fields point to the same block of memory.
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx]
On
> Behalf Of steema@xxxxxxxxxxxxx
> Sent: Monday, January 30, 2006 10:01 AM
> To: RPG programming on the AS400 / iSeries
> Subject: updating a PF from an array
>
> HI I move a string into an array defined as:
>
> D ARD             S              1    DIM(10)
>
> and try to move this field into a 10 pos. field in a PF but prgrm does
> NOT
> compile:
>
> RNF5343 30      1 Array has too many omitted indexes; specification is
> ignore
> --
> 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.
>
>