× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Please don't tell me that they require a semi colon at the end of IF
conditional statements?  Not even C requires that.  :(


Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Westdorp, Tom
> Sent: Thursday, September 20, 2001 2:36 PM
> To: rpg400-l@midrange.com
> Subject: (no subject)
>
> I'm working on a service program on R510 that has the following
defined in
> it:
>
> D EndedBadly      s               n
>
> Now that we're using r510 on all the boxes, and Code/400 has the cool
option
> to convert it to /free I figure Why not?"
>
> Well TIME to a 12 digit RESULT field is one reason, but...
>
> anyway after conversion an attempt to compile generates a couple of
the
> following:
>
> 214800   If pa_BALANCE <> TestBalance;
>
> 214900     EndedBadly = *On;
>
> ======>       aaaaaaa
>
> *RNF5247 20 a      214900  The scope delimiter of the ENDyy operation
is not
> valid.
> 215000   Else;
>
> 215100     EndedBadly = *Off;
>
> ======>       aaaaaaa
>
> *RNF5247 20 a      215100  The scope delimiter of the ENDyy operation
is not
> valid.
> 215200   EndIF;
>
> *RNF5247 20      4 The scope delimiter of the ENDyy operation is not
valid.
>
> Is EndedBadly some sort of IBM Reserved Word now?  :-)
>
> Is this a bug or is it now impermissible to have field names that
begin with
> "end"?
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> 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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.