RE: RNF7421 errors

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The main problem is all those plus signs... Get rid of them!!!!
RPG is NOT CL you do no need to continue the statement with a plus sign.

Bob Cozzi

-----Original Message-----
From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of Jeff
Crosby
Sent: Tuesday, February 18, 2003 7:05 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: RNF7421 errors


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