Re: prototype parameters

[Scott Klement <klemscot@xxxxxxxxxxxx>]

The fields coming from the display file are PACKED numbers not ZONED.
If you look at the compile listing for your RPG program, and see where
these fields are defined, it'll tell you that they're packed.

In fact, since they're zoned in your display file -- the RPG program is
automatically converting them from zoned to packed, just because it's
so eager to get packed numbers. :)

Anyway, if you force them to ZONED in your d-specs, your code should work.
If you want the system to pull them automatically from the external 
definitions, you might be able to do it like this:

D dsDspFile     E DS                  ExtName(DspFile:Format)



On Tue, 13 Mar 2001, Ray, Adam wrote:

> This is boggling my mind...
> 
> I have a prototype defined as follows:
> 
> DPRR50130         PR                  EXTPGM('PRR50130')
> D p01                           30A                     
> D p02                           90A                     
> D p03                            9A                     
> D p04                            8S 0                   
> D p05                            8S 0
> 
> I am calling the program as follows:
> 
> C                   CALLP     PRR50130(prvds   : cptds   : CPTTHRU :
> C                                      DOSFROM : DOSTHRU)
> 
> I get the following compile error:
> 
> *RNF7535 30    257 015200  The type and attributes of parameter 4 do not
> match those
>                            of the prototype.
> 
> *RNF7535 30    257 015200  The type and attributes of parameter 5 do not
> match those
>                            of the prototype.
> 
> The 2 parameters in error (DOSFROM and DOSTHRU) are from a Display file and
> are defined there as follows:
> 
> A            DOSFROM        8S 0B 20 37
> A            DOSTHRU        8S 0B 20 54
> 
> I don't understand why I'm getting this error message. It looks to me like
> the type and attributes are the same.
> Maybe I'm missing something. Can anyone help me?
> 
> - Adam
> 
> 

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---