RE: 1 <> 1 is true???

["Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>]

LOL... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ron Power
Sent: Wednesday, January 10, 2007 8:50 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: 1 <> 1 is true???

It does help to compile the program after you make the code change too, 
would explain why the code was still executing.  I compiled, it runs
fine 
now.... sorry for the interuption... you can all have a good laugh on
this 
one though.... thought I lost it, actually, I might have... :)

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
________________________________________________________________________
___
Success is going from failure to failure without a loss of enthusiasm. -

Sir Winston Churchill




"Michael Ryan" <michaelrtr@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2007/01/10 11:15 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: 1 <> 1 is true???






Another thought would be a GOTO...that's pretty obvious. And another
technique would be compiler directives like DEFINE and use conditions.

On 1/10/07, David Gibbs <david@xxxxxxxxxxxx> wrote:
> Ron Power wrote:
> > I wanted a section of code not to run, so thinking I could just
throw 
in
> > an if statement
> > c                   if        1 <> 1
> > and that would keep it from running.  Am I missing something?
>
> Yeah, that should work.
>
> david
> --
> 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.