RNF7421 errors -- RPG400-L

I'm getting a new error that I've never seen before. At the end of my compile I get the following errors:

*RNF7421 30 2198 175400 Operands are not compatible with the type of operator. *RNF7421 30 2211 176700 Operands are not compatible with the type of operator. *RNF7421 30 2212 176800 Operands are not compatible with the type of operator.

The statements referred to (2198, 2211, & 2212) are parms in a CallP that look like this (I remove some blank spaces to hopefully keep the lines from wrapping. This is from the compile listing.):

2197 C                   CallP              GetDtlCntDta(ITNBR:  +
2198 C                                     (error-->)    PIDATE: +
2199 C                                                   SLTNC:  +
2200 C                                                   SLTCS:  +
2201 C                                                   SLTUN:  +
2202 C                                                   SLTWT:  +
2203 C                                                   EXCNC:  +
2204 C                                                   EXCCS:  +
2205 C                                                   EXCUN:  +
2206 C                                                   EXCWT:  +
2207 C                                                   RCTNC:  +
2208 C                                                   RCTCS:  +
2209 C                                                   RCTUN:  +
2210 C                                                   RCTWT:  +
2211 C                                     (error-->)    ExcDsc: +
2212 C                                     (error-->)    RctDsc)

The Fields PIDATE, ExcDsc, and RctDsc are those with errors. Their D specs follow:

139 D EXCDSC S 225A 143 D PIDATE S D DATFMT(*ISO)INZ(D'9999-12-31') 144 D RCTDSC S 225A

The service program prototype that was copied in looks like this:

580+D GetDtlCntDta    PR
581+D  ITNBR                         6A   Const
582+D  PIDATE                         D   Const
583+D   SCNTN                        3P 0
584+D   SCNTC                        5P 0
585+D   SCNTU                        3P 0
586+D   SCNTW                        7P 2
587+D   ECNTN                        3P 0
588+D   ECNTC                        5P 0
589+D   ECNTU                        3P 0
590+D   ECNTW                        7P 2
591+D   RCNTN                        3P 0
592+D   RCNTC                        5P 0
593+D   RCNTU                        3P 0
594+D   RCNTW                        7P 2
595+D   ExcDesc                    225A
596+D   RctDesc                    225A

I have another program that compiles successfully, but not this one. The error doesn't sound like a parm mismatch, it seems more like an incorrect compile option, but I don't see it. I've tried it without the Const in there as well, with no luck. Any suggestions?

Thanks.

--
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531

The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.