× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.