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


  1.  Home
  2. RPG400-L
  3. June 2007

RE: Missing Semi-Colon - Not

We used Linoma's RPG Wizard to convert programs from RPGIII. I just ran
it over a program that was in RPG 4, but in fixed form; it converted

MOVE ' ' SELECT

to

Eval Select = ' ';

(I also have a variable called In, and it does the same thing). So it
looks like you can use a "reserved" word in free-form, as long as you
preface it with Eval.



Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kevin Bucknum
Sent: Friday, June 8, 2007 8:41 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Missing Semi-Colon - Not

We are seeing this a lot as we convert some of our programs over to
/free. If the variable is the same and RPG op code then the xxxx =
doesn't work. You have to use Eval xxxx =. The two that keep biting us
are IN and OUT.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Friday, June 08, 2007 8:47 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Missing Semi-Colon - Not

As you might have surmised, "Select" is/was the variable for ExtFile( )
on a UsrOpn table. I thought it was a little odd that I didn't get an
error on that line, too, once Peter pointed out the cause. Plus, of
course, the D-spec definition.


But sometimes reserved words aren't reserved words. I rarely use the
Eval in /free unless I need to Eval(h). But based upon all of the
comments here, it does seem reasonable (though confusing) that a
normally reserved word could, also, be used as a variable. For example,

in the context in which I had originally coded it, it would be
reasonable to the editor to assume that this was the beginning of a
Select-EndSL group and that the semi-colon should come after "Select"
and that the other stuff was clutter.


I do hate it, as you said earlier Michael, when the error message isn't
really the error. I kept looking at the ';' and scratching my head.
But I can see that the message was correct, just hard to decipher
because it focused my attention on a specific point. Sometimes one
can't see the forest for the trees. Once Peter pointed out the cause, I

did a Homer ('Doh!') and stood in the corner for five minutes.



* Jerry C. Adams
*IBM System i5/iSeries Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
615.995.7024
fax
615.995.1201
email
jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Michael_Schutte@xxxxxxxxxxxx wrote:
BTW, in Free this does work.

eval Select = 'LIBR/NV' + %editc(l$cust : 'X');


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
What's the secret? Find out at your Bob Evans Restaurant on May 17!


rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/08/2007 08:18:15 AM:


Must be, all mine are RPGLE so it must be something to do with the
FREE stuff, I shall have to remember that if they ever get converted

-----Oorspronkelijk bericht-----
Van: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Namens
Michael_Schutte@xxxxxxxxxxxx
Verzonden: vrijdag 8 juni 2007 14:14
Aan: RPG programming on the AS400 / iSeries
Onderwerp: RE: Missing Semi-Colon - Not


Could it be a problem if the program type is SQLRPGLE?


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
What's the secret? Find out at your Bob Evans Restaurant on May 17!


rpg400-l-bounces+michael_schutte=bobevans.com@xxxxxxxxxxxx wrote on
06/08/2007 08:11:28 AM:


No Thats not right I have many programs with a field called Select
in they work ok

Steve

-----Oorspronkelijk bericht-----
Van: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Namens
Peter.Colpaert@xxxxxxxxx
Verzonden: vrijdag 8 juni 2007 13:57
Aan: RPG programming on the AS400 / iSeries
Onderwerp: Re: Missing Semi-Colon - Not


Jerry,

I think (judging from the colour tokenizing) that you can't use
Select

as

a field name.

It's probably a reserved word, thus a big nono.

HTH,

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we. Futile is resistance, assimilated will you be.
-----



Jerry Adams <jerry@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/06/2007 14:52
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG Midrange <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Missing Semi-Colon - Not






I am definitely losing it. Perhaps because it's early in the
morning.
I am getting the following error while entering the following line.
While this snippet is from WDSc, I get the same error in SEU so this
is
not a WDSc issue.


Select = 'LIBR/NV' + %editc(l$cust : 'X');
RNF5507E A semi-colon is not specified at the end of a free-format
specification.


This is odd because, as you can see, there is a semi-colon at the
end

of

the line. Odd, too, is that the examples in the ILE RPG Reference
manual are in fixed format, while nearly every other %bif is in
/free
format.


--
* Jerry C. Adams

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


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


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


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