Re: conditioning indicator on an ENDDO

[rob@xxxxxxxxx]

Mark,

Looks like you're catching up on some email.  Did my example clear it up? 
Not to say it's better, just different, and you may like it or not.  The 
one thing better about it versus the logic after the do loop is the same 
argument that people had on whether or not to use factor 1 on the ADD when 
doing x add 1 x.  If you change the loop conditions you don't have to 
remember to change the following logic conditions.

Still, if this was a $100 task it wouldn't be where I'd want my money 
spent.

Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)




"M. Lazarus" <mlazarus@xxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/09/2003 04:26 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Re: conditioning indicator on an ENDDO






Hans,

  How is that better than just having code following the ENDDO statement?

  -mark

At 12/9/03 11:26 AM, you wrote:
>Oh yeah, then there's that feature of some truly advanced programming 
>languages where you can code an ELSE on a DO WHILE loop. Would you like 
to 
>see this in RPG?
>
>       DOW MASTS <> 'A';
>           READE TKMANO MAFILEL6
>           IF %EOF(MAFILEL6);
>               LEAVE;  // That is, continue at code following ENDDO.
>           ENDIF;
>       ELSE;
>           // Code to perform when we get to MASTS='A'
>           ...
>       ENDDO;

_______________________________________________
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.