Re: Loop control logic revisited

[boothm@xxxxxxx]

He met the company guidelines of doing what ever was needed to avoid the
dreadful cycle. shheeessshhh.

In <F5DBB7A1F81ED311812C0060B05735153AD9EE@MAIL>, on 08/19/99 
   at 04:31 PM, Joel Fritz <JFritz@sharperimage.com> said:

>In the "Humorous Enhancements" thread recently, there was a sub-thread
>with logically challenged code snippets.  Here's one that uses LEAVE that
>isn't (I don't think) a style issue although it's harmless.  Here is the
>entire main line (edited for brevity, but with the logic completely
>intact. Nothing happens in the main line after the end of the loop.  

>     C           *IN03     DOUEQ*ON                                     
>     C                     EXFMTSL900S01                                
>                              
>     C*                                                                 
>     C                     SELEC                                        
>     C*                                                                 
>     C           *IN03     WHEQ *ON                                     
>     C                     MOVE *ON       *INLR                         
>     C                     LEAVE                                        
>     C*                                                                 
>     C           *IN08     WHEQ *ON                                     
>     C*  Do F8 stuff                                    
>             
>     C*                                                                 
>     C                     OTHER                                        
>     C*  Do enter key stuff                                          
>                                         
>     C*                                                                 
>     C                     ENDSL                                        
>     C                     ENDDO                                        
>     C/EJECT                                                            
>     
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---