|
No because now it's a Char constant. Ron Power Programmer Information Services City Of St. John's, NL P.O. Box 908 St. John's, NL A1C 5M2 709-576-8132 rpower@xxxxxxxxxx http://www.stjohns.ca/ ___________________________________________________________________________ Success is going from failure to failure without a loss of enthusiasm. - Sir Winston Churchill "Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 2006/05/05 04:03 PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx> cc Subject RE: Compile failed when try to do return not SUCCESSFUL where SUCCESSFULis declared as const Barbara: I think complier is sick.... It compiled when I change SUCCESSFUL to const('1') Below actually compile D SUCCESSFUL c const('1') D proc1 pr n C eval *inlr = *on *------------------------------------------------------ * test return with not SUCCESSFUL P proc1 B D pi n C return not SUCCESSFUL P proc1 E -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai Sent: Friday, May 05, 2006 12:00 PM To: RPG programming on the AS400 / iSeries Subject: Compile failed when try to do return not SUCCESSFUL where SUCCESSFULis declared as const D SUCCESSFUL c const(*on) D proc1 pr n C eval *inlr = *on *------------------------------------------------------ * test return with not SUCCESSFUL P proc1 B D pi n C return not SUCCESSFUL P proc1 E I'm getting this: Msg id Sv Number Seq Message text RNF7421 30 12 001200 Operands are not compatible with the type of operator. If I changed SUCCESSFUL to be a variable, it compile ok. Any reason why I can't do "return not constBoolean"? -- 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.