Re: More problems w/passing data structures as parameters

[Hans Boldt <boldt@xxxxxxxxxx>]

Scott Mildenberger wrote:

> Since you have the data structure in your copy member the two
> lines below are referring to the fields within that data
> structure.
>
> C                   Eval      DscOut = IDESC
> C                   Eval      ClsOut = ICLAS
>
> The data structure is based and it's pointer has not been set
> hence your error.  You may be able to use qualified to get
> around this, not sure.

This is the correct answer. Just to clarify further, try changing 
the program as follows:

---------------------------------------------------------------------
 /If Defined(*CRTBNDRPG)
H DftActGrp(*NO) ActGrp(*Caller)
 /EndIf

F*   Shell program to test inventory procedures.
D*
D Main            PR                  EXTPGM('SHELLINV')
D                                2
D                               15
D*
D Main            PI
D  ParmItm                      15

 /COPY QPROSRC,PROINV

D ReturnMPG       S              5
D ReturnDS        S             47
D ReturnInd       S               N
D ItemInfoDS      S                   LikeDS(ItemInfo)

 /FREE

  ItemInfoDS.ItemIn = ParmItm;
  ItemInfoDS.DscOut = *blanks;
  ItemInfoDS.ClsOut = *blanks;
  ReturnInd = DescClass( ItemInfoDS );
  Dsply ItemInfoDS.ItemIn;
  Dsply ItemInfoDS.DscOut;
  Dsply ItemInfoDS.ClsOut;

  *INLR = *ON;
  Return;

 /END-FREE
---------------------------------------------------------------------

That is: 1) Change the definition of ITEMINFODS from LIKE(ITEMINFO) 
to LIKEDS(ITEMINFO), and 2) Qualify the subfields of ITEMINFODS.

Cheers! Hans