Re: conditioning indicator on an ENDDO

[rob@xxxxxxxxx]

Hans,

Would LEAVE be implicit in that ELSE?

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




Hans Boldt <boldt@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/09/2003 11:26 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Fax to

Subject
Re: conditioning indicator on an ENDDO






Bob cozzi wrote:

> Of course the way to fix that is to do this:
> 
>   While  NOT %EOF(mafileL6)
>     ReadE  Tk421 MaFileL6;
>     // do whatever here... 
>     OnEvent   %EOF(maFileL6)
>     Leave;
>   Enddo;
> 
> The "ON" clause of the WHILE sets up an condition similar to the MONITOR
> opcode. When the condition occurs,t he code inside the OnEvent opcode is
> performed; hence the loop is exited. 
> Okay, so this is just more of my wishful thinking, Hans. :)
> 

In the realm of "wishful thinking", actually, the syntax I'd like to see 
is:

       DOW MASTS <> 'A';
           READE TKMANO MAFILEL6
           LEAVE WHEN %EOF(MAFILEL6);
       ENDDO;

But then again, that starts looking like Perl! ;-)

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;

Cheers! Hans


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