Re: Is there a Shortcut here?

[Asher613Smith@xxxxxxx]

OK, I'm asking - why is there even one "AND" in the statement?
 
 
In a message dated 4/3/2009 1:15:39 A.M. Jerusalem Daylight Time,  
koldark@xxxxxxxxx writes:

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.