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

Try wrapping %len with %int

Chris Bougher



                                                                                
                                                        
                      rob@xxxxxxxxx                                             
                                                        
                      Sent by:                  To:       RPG400-L@xxxxxxxxxxxx 
                                                        
                      rpg400-l-bounces@m        cc:                             
                                                        
                      idrange.com               Subject:  RNF7536-The type of 
the parameter specified for the call does not match the   
                                                 prototype.                     
                                                        
                                                                                
                                                        
                      01/22/2004 03:41                                          
                                                        
                      PM                                                        
                                                        
                      Please respond to                                         
                                                        
                      RPG programming on                                        
                                                        
                      the AS400 /                                               
                                                        
                      iSeries                                                   
                                                        
                                                                                
                                                        
                                                                                
                                                        




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.