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.