RE: Missing Semi-Colon - Not -- RPG400-L

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

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.