RE: DOW vs DOU

Rick Baird wrote:
>

>Since were on the subject, I would like some opinions on a coding
>technique that I've been using for several years now.  I use the LEAVE
>and ITER opcodes extensively as a sortof GOTO replacement (ooh, maybe
>
>...(cut)...
>
>Sort of GOTO?  ITER and LEAVE are *exactly* GOTO's, crutches for folks   
>who don't *get* structured programming.  Stop using them!  Learn how to   
>write structured programs!  Take a class!
>
>Well, sorry, but that's my opinion.  Now that I've got that off my chest,   
>here's an approach that avoids GOTO, ITER and LEAVE:
>
>C       F1EDIT     BEGSR
>
>C                  MOVE  *OFF      $ERROR
>
>C                  IF (some error condition)
>C                  MOVE  *ON       $ERROR
>C                  ENDIF
>
>C       $ERROR     IFEQ  *OFF
>C                  IF (some error condition)
>C                  MOVE  *ON       $ERROR
>C                  ENDIF
>C                  ENDIF
>
>
>C       $ERROR     IFEQ  *OFF
>C                  IF (some error condition)
>C                  MOVE  *ON       $ERROR
>C                  ENDIF
>C                  ENDIF
>
>etc....
>
>C                  ENDSR
>
I have a real problem retesting the field $ERROR once for each test.  To be
honest though, when I try to look at this intellectually and not
emotionally, I am not exactly sure why I don't like it.


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *