Re: DOW vs DOU

[John Carr <74711.77@xxxxxxxxxxxxxx>]

Not wanting to miss a debate,   :-)

 I personally would write the following ONLY at gun point.  

Message text written by "Kahn, David"
>    KEY  SETLLF1234
     KEY  READEF1234                 90
     *IN90     DOWEQ*OFF
 (now processing something based on something that happened  BELOW this
statement)
     <.... whatever process ....>
     KEY  READEF1234                 90
          ENDDO   >

My father when he was a boy writing RPG,  taught me to write it this way. 

     KEY  SETLLF1234
     *IN90     DOUEQ*ON
     KEY  READEF1234                 90
     *IN90     IFEQ *ON
                    LEAVE
                    ENDIF
 (now processing something based on something directly ABOVE this statement)
     <.... whatever process ....>
     
          ENDDO

David;    just curious did you start out writing COBOL that did not have a DOU ?

John P. Carr 
EdgeTech

P. S.  Remember,  this is humor David.  I didn't insult your mother.


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