RE: Procedure Interface Question

Terri,

I think you need to give the prototype parameter a field name.  By just using 
LikeDS(ItemInfo), I think the compiler is trying to use that keyword against 
the return value.

Michael Tobey
Applications Analyst
Foremost Farms USA.
262-312-5176
mike.tobey@xxxxxxxxxxxxxxxxx
 

-----Original Message-----
From: THarteau@xxxxxxxxxxxxxxxxxx [mailto:THarteau@xxxxxxxxxxxxxxxxxx]
Sent: Thursday, September 25, 2003 10:39 AM
To: RPG programming on the AS400 / iSeries
Subject: Procedure Interface Question



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






_______________________________________________
This is the RPG programming on the AS400 / 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.