Re: Loop control logic revisited

Joel,

You little trouble maker, you ;-)

What, it's August, you're hot, bored, 4.5 months till New Years and you have
nothing else to do but stir up a DOx war <g>

My question is: what is heck is format SL900S01?  Not -that's- self documenting!

Actually I can see how someone gets into this stream of code.  They just say to
themselves: the program is going to do this loop "until" the user presses F3.
Makes perfect human sense.  If you are programming a human <g>

Joel Fritz wrote:

> 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
> +---

+---
| 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
+---