Re: /free snafu -- RPG400-L

Joel,

Hate to disagree, but it will compile just fine.

Now, if you are trying to verify it in Code/400, then you will get a "RNF5247E The scope delimiter of the ENDyy operation is not valid." message. But if you compile, it should be just fine.

Paul Tuohy

jrc@xxxxxxxxxx wrote:

I'll go you one further: try starting a variable with "end" and you'll see the same thing.
/free
  endRoutine = *on ;
/end-free
will not compile...

Joel
Sure seems that way. Hmmmmmmm

Thanks,

Mark
Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com
"Bob cozzi" <cozzi@xxxxxxxxx> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx> Sent by: cc: rpg400-l-bounces@xx Subject: RE: /free snafu drange.com 06/24/2003 04:32 PM Please respond to RPG programming on the AS400 / iSeries
Mark,
I'm guessing that whenever you use a reserved
word, like DELETE, UPDATE,
WRITE, CHAIN, EXFMT, etc., as a field name, you
have to use the EVAL opcode
to make it clear that you're referring to the
field name and not the
opcode.
Bob Cozzi
Cozzi Consulting
www.rpgiv.com
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of MWalter@xxxxxxxxxxxxxxx
Sent: Tuesday, June 24, 2003 3:23 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: /free snafu
I've found a little problem with /free
This statement is not OK:
   delete = 'Y';
However this one is:
   eval delete = 'Y';
You mean to tell me that the compiler can't see
that this is an assignment
instruction?
Thanks,

Mark
Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com
_______________________________________________
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.