AW: AW: More on RPG style

Boy, I wonder if it weren't possible to write and IN() function in RPG.

Why not just using the SQL predicate IN?

Exec SQL
Set :isFound = Case When :MyField in ('AB', 'BB', 'XX')
Then '1' else '0' End;
If isFound;
//Do something
EndIf;

Or

Exec SQL
Set :MyResult = Case When :MyField in ('AA', 'BB', 'XX')
Then 'XXXX'
When :MyField in ('CC', 'E', 'F', 'G')
Then 'YYYYY'
When :MyField = 'DD'
Then 'ZZZZZ'
Else ' ' End;


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 Terrence Enger
Gesendet: Friday, 05. March 2010 21:22
An: RPG programming on the IBM i / System i
Betreff: Re: AW: More on RPG style

On Thu, 2010-03-04 at 15:04 -0600, Vern Hamberg wrote:

Boy, I wonder if it weren't possible to write and IN() function in RPG.
Maybe pass in the variable you are testing and have an array of the
values to test, use some way to vary the count, and return an indicator.
Woohoo!!!

I think that the best you can do is a function working for one type, and
only allowing up to some fixed maximum number of values to test.

Meanwhile, and expression like "0 < %lookup( ... )" can sometimes
approximate what you want. Of course, sometimes you would rather have
the test values manifest in-line.

Cheers,
Terry.