Re: /free snafu

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

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.