Re: DOW vs DOU

Francis Lapeyre wrote:
> 
> Susan Durrie wrote:
> >
> > 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
> 
> If XXCODE=A, you won't be in an infinite loop. Unlss, of couse, XXCODE
> is never modified in the body of the loop. Eventually, the file will
> end, *IN90=*ON, and you're out of the loop.
> 

Oops, that's what I get for not reading. Yes, it IS an infinite loop.
Which is avoided by testing for nothing but *IN90 as the DOU condition. 
XXCODE    IFNE'B' should be a separate condition, with its own ITER. And
I'd put the CHAIN inside the loop, and get rid of the second one at the
end.
-- 
Francis Lapeyre                    flapeyre@communique.net
----------------------------------------------------------
"The probability of life originating from accident is 
comparable to the probability of the Unabridged Dictionary
resulting from an explosion in a printing factory." 

Prof. Edwin Conklin

****** If you spam me, you will incur the wrath of your Internet **
****** Service Provider. I KNOW who you REALLY are!!***************

Opinions are my own. Otherwise, they are someone else's.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *