Procedure Interface Question

[THarteau@xxxxxxxxxxxxxxxxxx]

Hi,
      I am just starting to write external procedures and service programs.
I am trying to use a data structure as a parameter, but keep getting
errors. I am using an example from Club Tech as a guide. Can someone tell
me what I am doing wrong?

In a /COPY member I have
0009.00   // ---------------------------------------------Prototype:
DescClass
0010.00 D DescClass       PR              N
0011.00 D                                             LikeDS(ItemInfo)
0012.00
0013.00 D ItemInfo        DS                  Based(ItemInfoPtr)
0014.00 D  ItemIn                        15
0015.00 D  DscOut                     30
0016.00 D  ClsOut                         2

Then in my module, I have
PDescClass        B                   EXPORT
D DescClass       PI              N
D  ItemInfoDS                            LikeDS(ItemInfo)
D*
 *RNF3766 30     70 001100  Too many parameters specified in the procedure
interface;
                            extra parameters ignored.
& also this error
 *RNF3761 20     69 001000  Type (N(1)) of return-value not same as
prototype (DS(47)DIM)
Where line 69 is the PI line

<===================================================>

Terri Harteau
****************
"There's no point in being grown up if you can't be childish sometimes."
- Dr. Who
****************