RE: Loop control logic revisited

1.)  SL900S01 is a shop standard naming convention (I flout it every time I
can get away with it.)  It's the first record format in  SL900D, the display
file that is used in SL900R, the offending program.

2.)  I'm DOX agnostic, myself.  I mostly use the while flavor, but that's
force of habit.

3.)  I readily admit to the trouble maker tag.  It wasn't boredom or the
heat, though, it was one of those rare moments in program maintenance when I
ask "Who wrote this?" and the answer isn't me.  The enclosed sample just
happened to fit a fairly recent discussion thread.  
> -----Original Message-----
> From: James W. Kilgore [mailto:qappdsn@ibm.net]
> Sent: Friday, August 20, 1999 1:45 AM
> To: RPG400-L@midrange.com
> Subject: 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
> +---
> 
+---
| 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
+---