Re: Condition not working ?

["Scott Klement" <infosys@xxxxxxxxxxxx>]

Just an observation, but...

You guys are both right that DOU checks at the bottom, and DOW
checks at the top of the loop.   However, if you look at the original
code posted by JFinney@omnia.co.za, again, specifically this section:

 C                   DOU       RECARR(X) = *BLANKS
 C                   EVAL      X = X + 1
 C                   CLEAR                   TESTLEN
 C                   EVAL      TESTLEN = %LEN(%TRIM(RECARR(X)))

 C                   IF        RECARR(X) = *BLANKS
 C                   LEAVE
 C                   ELSE

You see tht he does an IF with a LEAVE in his loop, therefore
this SHOULD work the way he intended it to.  In fact, he could've
coded his DOU to say "DOU  1 = 2", and it wouldnt have made any
difference :)



"Jerry Anderson" <cybrdude@bright.net> wrote:
> ---------------- Part 1 ----------------
> Ronald is correct.
> Do Until checks at bottom of loop. (allways does at least one
>  iteration).
> Do While checks at top of loop. (may not execute at all).
>
>
> ----- Original Message -----
> From: Ronald Nance <RNANCE@commerceinsurance.com>
> To: <RPG400-L@midrange.com>
> Sent: Tuesday, May 11, 1999 5:54 AM
> Subject: Re: Condition not working ?
>
>
> > do until checks at the bottom of the loop,  so the process will
> > continue one more time....
> >
> > dowhile check at the top of the loop
> >
> > ex:  this dowhile   (not *blanks)  will exit when the conditions i
> > no longer true
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *