DOW vs DOU

On May 26, 1997, David Kahn replied as follows:

>On May 25 1997 John P. Carr wrote:

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

>Like this, you mean?

  KEY       CHAINFILEXXX              90

  *IN90     DOWEQ*OFF
  XXCODE    ANDNE'B'

  XXCODE    IFEQ 'A'
            ITER
            ENDIF

 <.... whatever process ....>

  KEY       READEFILEXXX                  90
            ENDDO

Correct me if I'm wrong, but if XXCODE='A', aren't you in an
infinite loop?

And just to stir up trouble, I'll throw in the following that I
use in certain circumstances:

   KEY       CHAINFILEXXX              90

  *IN90     DOWEQ*OFF
  XXCODE    ANDNE'B'

  XXCODE    CABEQ'A'     NXTRCD
  
 <.... whatever process ....>

  NXTRCD    TAG
  KEY       READEFILEXXX                  90
            ENDDO

Just could not resist throwing my two cents worth in on this one.  I'm
new to the mailing list; subscribed on the advice of Charlie Massoglia
after attending one of his excellent seminars.  The rewards have been
well worth the time expended.

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