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

When you are stepping through, it might be easier to follow if it were:


> >
> >   if %len(%trim(APIErrMsg)) > 0;
> >      W#ERFL = *ON;
> >      W#MSDT = 'Error #' + APIErrMsg + ' receiving data from ' +
> >               'data queue.  Detail:  ' + APIErrDta;

> >    else if %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;

instead of having two separate condition blocks.

Adam

rpg400-l-bounces@xxxxxxxxxxxx wrote on 25/05/2006 11:30:38 AM:

> And you've stepped through this in debug and can see it executing both 
the
> if and the else statements?
> 
> On 5/25/06, Willie J. Moore <WMoore@xxxxxxxxxxxxxxx> wrote:
> >
> > Need some help with the following section of code. The second if/else 
are
> > both executing. It acts as if the if/else is one statement. We have 
checked
> > the paring of the if/else and they look correct. Any ideals or help 
would be
> > greatly appreciated.
> >
> >   if %len(%trim(APIErrMsg)) > 0;
> >      W#ERFL = *ON;
> >      W#MSDT = 'Error #' + APIErrMsg + ' receiving data from ' +
> >               'data queue.  Detail:  ' + APIErrDta;
> >    else;
> >    if %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;
> >
> > Thanks,
> > Willie Moore & Josh Diggs
> > California Fine Wire
> >
> >
> > --
> > 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.
> 

#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is 
intended 
only for the people for which it is addressed. If you are not named in the 
address 
fields, ignore the contents and delete all the material. Thank you. Have a nice 
day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################