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

Ah, do you have the QUSROBJD member from QSYSINC included?
I don't see it.
-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Thursday, January 22, 2004 2:42 PM
To: RPG400-L@xxxxxxxxxxxx
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.