Re: RNF7536-The type of the parameter specified for the call does not match the prototype.

Oops, spelling error.  like was qusobjdds.recvarlen, should be 
qusRobjdds.recvarlen

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





rob@xxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/22/2004 03:41 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG400-L@xxxxxxxxxxxx
cc

Fax to

Subject
RNF7536-The type of the parameter specified for the call does not match 
the prototype.






If I have a prototype set up
      /Define QUSROBJD
      * Retrieve Object Description
     D QUSROBJD        PR                  EXTPGM('QUSROBJD')
     D  RecVar                             OPTIONS(*VARSIZE)
     D                                     like(qusrobjdDs.RecVar)
     D  RecVarLen                          CONST
     D                                     like(qusobjdDs.RecVarLen)
     D  FormatName                         CONST
     D                                     like(qusobjdDs.FormatName)
     D  Object_Lib                         CONST
     D                                     like(qusobjdDs.Object_Lib)
     D  ObjectType                         CONST
     D                                     like(qusobjdDs.ObjectType)
     D  ErrorCode                          LIKE(ERRC0100)

     D qusrobjdDs      ds                  qualified
     D  RecVar                     3000a
     D  RecVarLen                    10i 0
     D  FormatName                    8a
     D  Object_Lib                   20a
     D  ObjectType                   10a
 
      /If not defined(ERRC0100)
      /Include ROUTINES/QAPISRC,ERRC0100
      /EndIf


And I call it using:
       callp qusrobjd(objd0100 : %len(objd0100) : 'OBJD0100' :
                     'ZMFSTUFF  *LIBL' : '*FILE' : ERRC0100);

Why would this die, pointing to the %len?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

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