Re: More problems w/passing data structures as parameters

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.

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

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

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