Re: Auto load an array when reading a record.

[Jeff Young <jyoung0950@xxxxxxxxx>]

How about using a pointer?
Would something like this work?

      d RecordDS      e ds                  extname(XRCL01)
      d  LabelName       S            8    dim(3) Based(Label_Ptr)
      D Label_Ptr          S               *  Inz(%Addr( XRAL01)

Jeff Young
Sr. Programmer Analyst

On Tue, Sep 12, 2017 at 1:49 PM, <JRusling@xxxxxxxxxxx> wrote:

> Thanks Booth, i tried it, got  - *RNF3468 20      1 The second parameter
> for keyword OVERLAY is not valid.
> Right direction i think... yeah
>
> Found this Paris article, i'm trying to adapt and use now ->
> http://ibmsystemsmag.com/ibmi/developer/general/d-spec-discoveries/?page=2
>
> John
>
> <snip>
> Would something like this work?
>
>       d RecordDS      e ds                  extname(XRCL01)
>       d  LabelName                     8    dim(3) overlay(RecordDS:
> XRLA01)
>
> I haven't tested this and have reservations about the starting position
> of the overlay so be warned.  :)
>
> However I believe a valid answer follows this direction.
> </snip>
> <br />
> The information in this email is confidential and may be legally
> privileged.
> It is intended solely for the addressee. Access to this email by anyone
> else is
> unauthorized. If you are not the intended recipient, any disclosure,
> copying,
> distribution or any action taken or omitted to be taken in reliance on it,
> is
> prohibited and may be unlawful.
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD