|
midrange.com
I recall a PTF to fix the endnnn used as a variable problem back when V5R1
first came out. The compiler would complain about endyy not being
associated with a valid group or something like that. Is this the problem?
Bob
Bob Slaney/Atlanta/IBM@xxxxx (Lotus Notes)
Internet id: rjslaney@xxxxxxxxxx
Tieline 445-7374 Direct (770)835-7374
FAX tie 445-7579 Direct (770)835-7579
AMS Americas Learning Development
iSeries Courseware Developer
IBM Corp.
3200 Windy Hill Road
Atlanta, GA 30339
WG07C13
Paul Tuohy
<tuohyp@xxxxxxxxxx To: RPG programming on
the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
net> cc:
Sent by: Subject: Re: /free snafu
rpg400-l-bounces@x
idrange.com
06/25/2003 10:39
AM
Please respond to
RPG programming on
the AS400 /
iSeries
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.
>
>
_______________________________________________
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-2025 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.
