RE: Having both if/else executing at the same time

Ah ok...

I was thinking I was ready for the nuthouse....

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




"Wilt, Charles" <CWilt@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2006/05/25 04:34 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: Having both if/else executing at the same time






Using ELSEIF won't change the outcome.  That's what Joe & I are saying.

Bob's obviously ready for a vacation <grin>


Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of RPower@xxxxxxxxxx
> Sent: Thursday, May 25, 2006 2:56 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Having both if/else executing at the same time
> 
> Then how would using an elseif change any outcome?  I thought 
> IF, ELSE, 
> IF, ELSE, ENDIF is exactly the same as IF, ELSEIF, ELSE, ENDIF.
> Am I wrong?
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
> ______________________________________________________________
> _____________
> Success is going from failure to failure without a loss of 
> enthusiasm. - 
> Sir Winston Churchill
> 
> 
> 
> 
> "Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/05/25 04:23 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: Having both if/else executing at the same time
> 
> 
> 
> 
> 
> 
> Actually, the original code simply selected among three 
> mutually exclusive
> conditions.  Using an ELSEIF doesn't change the outcome at all.
> 
> IF CondA;
>   DoA;
> ELSE;
>   IF CondB;
>     DoB;
>   ELSE;
>     DoC;
>   ENDIF;
> ENDIF;
> 
> Is functionally equivalent to:
> 
> IF CondA;
>   DoA;
> ELSEIF CondB;
>   DoB;
> ELSE;
>   DoC;
> ENDIF;
> 
> The ELSEIF just removes the second "endif" (which you 
> accidentally left in
> your post, Bob, LOL!).  This is also functionally equivalent to:
> 
> SELECT;
>   WHEN CondA;
>     DoA;
>   WHEN CondB;
>     DoB;
>   OTHER;
>     DoC;
> ENDSL;
> 
> Nowadays I tend towards the third form if there are more than 
> two mutually
> exclusive conditions.
> 
> It should be noted that the three conditions being selected among are
> (CondA), ((NOT CondA) and (CondB)), and finally ((NOT CondA) and (NOT
> CondB)).  That is, even if both CondA and CondB are true, 
> only the first
> branch of the code will be executed.
> 
> Joe
> 
> 
> > From: Bob Cozzi
> > 
> > ELSE and IF are two statements. In your code the only time 
> the second IF
> > will be
> > performed is when the first IF fails. Why? Because the 
> first ELSE is 
> only
> > going
> > to be run if the first IF fails. Otherwise it'll jump to the ENDIF
> > statements.
> > I think what you really mean to have is ELSEIF not "ELSE" and "IF".
> > Replace the ELSE and IF with ELSEIF, and then take a look 
> as this page:
> > 
> > www.rpgiv.com/blueribbon.html
> > 
> >   if %len(%trim(APIErrMsg)) > 0;
> >      W#ERFL = *ON;
> >      W#MSDT = 'Error #' + APIErrMsg + ' receiving data from ' +
> >               'data queue.  Detail:  ' + APIErrDta;
> >    elseif %trim(itmInfo) = '';
> >       W#ERFL = *ON;
> >       W#MSDT = 'Invalid data received from data queue: ' +
> >             itmInfo ;
> >    else;
> >        uMATNO = jMATNO;
> >        uSIZE = jSIZE;
> >        uTEMPER = jTEMPER;
> >        uINSUL = jINSUL;
> >        uTENSIL = jTENSIL;
> >    endif;
> >    endif;
> 
> 
> -- 
> 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 email communication and accompanying documents is 
> intended only for the individual or entity to which it is 
> addressed and may contain information that is confidential, 
> privileged or exempt from disclosure under applicable law. 
> Any use of this information by individuals or entities other 
> than the intended recipient is strictly prohibited. If you 
> have received this in error, please notify the sender and 
> delete all the copies (electronic or otherwise) immediately.
> -- 
> 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.
> 
>