Re: Can I define dcl-s to be like a qualified DS subfield

[Alan Campin <alan0307d@xxxxxxxxx>]

A slight revision

dcl-proc TestIt;
  dcl-pi *N end-pi;

  dcl-ds MyDs Qualified;
    FieldOne Char(1);
    FieldTwo Char(2);
  end-ds;

  dcl-s MyStand Like(MyDs.FieldOne);

  MyDs.FieldOne = 'A';
  MyStand = 'B';

  Return;

end-proc;

On Mon, May 22, 2017 at 1:09 PM, Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>
wrote:

> Like this:
>
> dcl-s Fld2  Like(DS1.Fld1);
>
> The compiler balks, saying all 3 entities (Fld2, DS1, Fld1) are undefined,
> so I'm guessing not.
>
> Thanks.
>
>
> --
>
>
> Jeff Crosby
> VP Information Systems
> UniPro FoodService/Dilgard
> P.O. Box 13369
> Ft. Wayne, IN 46868-3369
> 260-422-7531
> www.dilgardfoods.com
>
> The opinions expressed are my own and not necessarily the opinion of my
> company.  Unless I say so.
> --
> 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: 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.
>
> 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