|
That's the best example I've ever heard to be quite honest. That's one tip I'll remember for future use, thanks Rex. 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 "Rex Capio" <rex_capio@xxxxxxxxxxxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 12/30/2004 02:41 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
