Re: DOW vs DOU

John Carr wrote:
> 
> RE:     Re: DOW vs DOU
> to;  (kahn@tco.infonet.com)
> 
> Ok David; (Mr Phelps)
> 
> Here's your assignment if you chose to accept it, Convert the following
> code of that infamous DOU connoisseur guy  John Carr to a DOW.
 
C     KEY      SETLL  FILEXXX
C     KEY      READE  FILEXXX                 90

C     *IN90    DOWEQ  *ON

C     XXXCODE  IFEQ   'B'
C              LEAVE
C              ENDIF
 
C     XXXCODE  IFNE   'A'
   <.... whatever process ....>
C              ENDIF

C     KEY      READE  FILEXXX                 90
C              ENDDO

Ta-Da!!!!!!

now for my next trick....

Of course, I would put "whatever process" in a separate subroutine if it
contained additional nesting or other complex logic, but thats another
story.

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