|
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.
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
