MIDRANGE dot COM Mailing List Archive



Home » RPG400-L » December 2004

RE: Select/When vs. If/ElseIf



fixed

That's not bad.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Rex Capio" <rex_capio@xxxxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/30/2004 01:11 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Select/When vs. If/ElseIf






I use IF/ELSEIF inside SELECT/WHEN (SELECT/WHEN inside IF/ELSEIF) to avoid
confusion that the inner clause is part of the main clause.

Example: 
                                                 SELECT;
                                                 WHEN            SHADE = 
'BLUE;
                                                   IF COLOR = 'MIDNIGHT';
                                                      (MIDNIGHT BLUE 
CALCULATION)
                                                   ELSEIF COLOR = 'NAVY';
                                                      (NAVY BLUE 
CALCULATION)
                                                   ELSE;
                                                     (OTHER BLUE SHADE 
CALCULATION)
                                                   ENDIF;
                                                 WHEN SHADE = 'RED';
                                                   IF COLOR = 'RUBY';
                                                       (RUBY RED 
CALCULATION)
                                                   ELSEIF COLOR = 
'GERANIUM';
                                                       (GERANIUM RED 
CALCULATION)
                                                   ELSE;
                                                       (OTHER RED SHADE 
CALCULATION)
                                                   ENDIF;
                                                 WHEN SHADE = 'GREEN';
                                                    IF COLOR = 'MINT';
                                                       (MINT GREEN 
CALCULATION)
                                                    ELSEIF COLR = 'LIME';
                                                       (LIME GREEN 
CALCULATION)
                                                    ELSE 
                                                       (OTHER GREEN SHADE 
CALCULATION)
                                                    ENDIF;
                                                 OTHER;
                                                     (OTHER SHADE 
CALCULATION)
                                                 ENDSL;


 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of RPower@xxxxxxxxxx
Sent: Thursday, December 30, 2004 12:23 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Select/When vs. If/ElseIf

<snip>
Select;
When Good;
  ...
When Reason=UserMoron;
  ...
When Reason=ManagerMoron;
  ...
Other;
  // Programmer oopsed
EndSl;
<snip>

I find most fall into the second and third When statements.

:)  VBG


Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




rob@xxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/30/2004 10:12 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Select/When vs. If/ElseIf






Haven't seen anything performance wise.

I've gotten into the habit of using the IF rarely.  Even on the most basic 


of checking.  I find that using select not only gives me more flexibility 
for future operations, but encourages me to think more flexible.  For 
example instead of just a 

If NotGood;

I start to think why it may not be good.

Select;
When Good;
  ...
When Reason=UserMoron;
  ...
When Reason=ManagerMoron;
  ...
Other;
  // Programmer oopsed
EndSl;


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Kurt Anderson" <kjanderson@xxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/29/2004 05:12 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Select/When vs. If/ElseIf






Is there a difference to these two types of condition checking?
They seem identical in function at a high level, so I'm unsure if one is
better performance-wise or something.  I guess I'm looking for something
to distinguish the two so I know when to use one and when to use the
other.
 
Thanks,
 
Kurt Anderson
Application Developer
Highsmith Inc.
W5527 State Road 106, P.O. Box 800
Fort Atkinson, WI 53538-0800
TEL (920) 563-9571  FAX (920) 563-7395
EMAIL kjanderson@xxxxxxxxxxxxx
 
-- 
This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (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 AS400 / iSeries (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 AS400 / iSeries (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.







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact