RE: updating a PF from an array

[steema@xxxxxxxxxxxxx]

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.
>
>