Re: DOW vs DOU

[cmassoglia@xxxxxxxxxxx (Charlie Massoglia)]

Dave wrote:

>Like this, you mean?
>
>  KEY       CHAINFILEXXX              90
>
>  *IN90     DOWEQ*OFF
>  XXCODE    ANDNE'B'
>
>  XXCODE    IFEQ 'A'
>            ITER
>            ENDIF
>
> <.... whatever process ....>
>
>  KEY       READEFILEXXX                  90
>            ENDDO
>
This program will go into an infinite loop if XXCODE is equal to 'A'.  My
first attempt did the same thing by the way.
  
Please a solution which does work and does meet John Carr's requirements
under a separate post.


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