Re: DOW vs DOU

[Bob Larkin <blarkin@xxxxxx>]

Charlie Massoglia wrote:
> 
> 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.
  

  KEY       CHAINFILEXXX              90
  *IN90     DOWEQ*OFF
  XXCODE    ANDNE'B'

  XXCODE    IFNE 'A'

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

            ENDIF

  KEY       READEFILEXXX                  90
            ENDDO

In this iteration, the "A" records are clearly excluded from the group,
but not a show stopper like the "B" records.

Wish I knew what the key was. What does "B" mean?, or "A", or the
meaning of life......
-- 
Bob Larkin
Larkin Computer Consulting
blarkin@wt.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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *