Re: Is there a Shortcut here?

[Mike <koldark@xxxxxxxxx>]

There's only one way to expand your knowledge... That is to ask. There  
will be able 8 ands in the if statement in total. Just trying to clean  
it up.

--
Mike Wills
http://mikewills.info

Sent from my iPod Touch

On Apr 2, 2009, at 4:47 PM, Asher613Smith@xxxxxxx wrote:

> What's "nasty" about
>
> If status = 1 or status = 3 or status = 5 or status = 7 or status =  
> 9 ;
>
> ?
>
> I suppose a "shortcut" would be to write an array and do a lookup.
>
> if %Lookup(status : StatusArray ) > 0 ;
>
>
> In a message dated 4/3/2009 12:36:27 A.M. Jerusalem Daylight Time,
> koldark@xxxxxxxxx writes:
>
> I am  getting ready to write a nasty if statement and had a thought.  
> "Is
> there a  shortcut for this?"
>
> Is there something similar to the IN statement in  SQL but for an  
> RPG IF
> statement? In SQL I could say WHERE STATUS IN (1, 3,  5, 7, 9). Is  
> there
> something similar for an RPG IF?
>
> --
> Mike  Wills
> Midrange  Programmer/Analyst
> http://mikewills.info
> http://www.linkedin.com/in/mikewills
> --  
> This is the RPG programming on the IBM i / System i (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.
>
>
>
> **************New Low Prices on Dell Laptops – Starting at $399
> (http://pr.atwola.com/promoclk/100126575x1220433304x1201394525/aol?redir=http:%2F%2Fad.doubl
> eclick.net%2Fclk%3B213540718%3B35046385%3Be)
> --
> This is the RPG programming on the IBM i / System i (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.