RE: How to read and or statement

%lookup or %scan.

Select
When %scan(Customer.Type: 'A') > 0
When %scan(Customer.Type: 'BCD') > 0
When %scan(Customer.Type: 'EF') > 0
Endsl

However, it would be nice if IBM added an In(Set) bif to RPG.

Select
When Customer.Type %in('A')
When Customer.Type %in('B': 'C': 'D')
When Customer.Type %in('E': 'F')

Select
When Animal %in('CAT': 'DOG'')
When Animal %in(APE': 'MONKEY': 'ORANGUTAN')
Endsl


Endsl


-------- Original Message --------

From: "Schutte, Michael D" <Michael_Schutte@xxxxxxxxxxxx>
Sent: Friday, November 12, 2010 10:18 AM
To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Subject: RE: How to read and or statement

I would like this.... if Customer.Type in ('B', 'C', 'D') ... else ...

endif

Although technically you use %LookUp to accomplish the same thing if

%lookup(customer.type:validtypes) <> 0

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David FOXWELL

Sent: Friday, November 12, 2010 8:21 AM
To: RPG programming on the IBM i / System i
Subject: RE: How to read and or statement

And MUCH nicer than :

SELECT;
WHEN Customer.Type = 'A';
...
WHEN Customer.Type = 'B' or
Customer.Type = 'C' or
Customer.type = 'D';
...
WHEN SomethingThatHasNothingToDoWithCustomer.Slipper = 'E';
...
OTHER;
...
ENDSL;

Which would no longer compile :-)

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Rory Hewitt

All I want now is to have a parameter to the SELECT
statement, which can be used in conjunction with each of the
WHEN statements to equate to a boolean true or false:

SELECT Customer.Type;
WHEN 'A';
...
WHEN 'B' or 'C' or 'D';
...
WHEN 'E' or 'F';
...
OTHER;
...
ENDSL;

which is much nicer (IMHO) than:

SELECT;
WHEN Customer.Type = 'A';
...
WHEN Customer.Type = 'B' or
Customer.Type = 'C' or
Customer.type = 'D';
...
WHEN Customer.Type = 'E' or
Customer.Type = 'F';
...
OTHER;
...
ENDSL;

--
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.

--
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.