Re: Overlaying fields within a data structure with an array

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

On Mar 14, 2011, at 1:00 PM, rpg400-l-request@xxxxxxxxxxxx wrote:

> According to your statement below, I will not have a problem with this?
>
>
> d ds5846          DS                  LikeRec( IDC5846  : *Output ) inz
>
>  // Redefine the 5 contiguous Allowance types
>  // in the F5846 record as array Hdr01AllowanceType
>
> d Hdr01AllowanceType...
> d                 s                   Like( ds5846.SY$TA1 )
> d                                     Dim( 5 )
> d                                     Based( PtrHdr01AllowanceType )
> d PtrHdr01AllowanceType...
> d                 s               *   inz(%Addr(ds5846.SY$TA1))


Looks good to me. It does require that the fields remain contiguous in the record (the "names" technique doesn't) but it should be fine.


Jon P.