AW: Is there a Shortcut here?

Hi,

no, there are no shorcuts.
You either can use one of the solutions others already posted or you can
write your own functions.
Long times ago I wrote several wrapper functions around the SQL IN Predicate
(one for character, one for decimal, one for date, time and timestamp
datatypes) where up to 15 values can be passed:
inListChar, inListDec, inListDate, inListTime, inListDate, inListTimestamp

Example:
If inListChar(toCompChar: 'ABC': 'XY': 'WHATEVER');
If Not inListDec(toCompDec: 1: 2: 3: 4: 5: 6: 7: 8: 9: 0)
and inListDec(toCompDec2: 1.6: 3.7);

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"


-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Mike
Gesendet: Thursday, 02. April 2009 23:19
An: RPG programming on the AS400 / iSeries
Betreff: Is there a Shortcut here?

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?