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

We started our prototypes before we had knowledge of that library.
But in doing so, we discovered some things that we would do differently, 
and kind of like ours.
Granted it does make it a little difficult to 'peer review' code on the 
outside.

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





"Bob Cozzi" <cozzi@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/22/2004 03:51 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

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



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