×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
ELSEIF is a wonderful verb.....
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rory Hewitt
Sent: Thursday, November 11, 2010 1:05 PM
To: RPG programming on the IBM i / System i
Subject: Re: How to read and or statement
Yeah, I never got that either. I've never used ELSEIF, in either RPG or its
CL equivalent (although I can see that the CL version does have some
benefits).
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;
Rory
On Thu, Nov 11, 2010 at 11:29 AM, Scott Klement
<rpg400-l@xxxxxxxxxxxxxxxx>wrote:
Do you mean ElseIf?
I've never understood why they added ElseIf to the language. (Gee, I
really wanted my IF statement to be identical to a WHEN statement...
That way I can have WHEN without having to use my 'W' key. Thanks IBM!)
midrange.com
