RE: DOW & DOU

This won't work because it will loop once even if the priming read
fails.... in some languages resulting in an infinate loop.

Bradley V. Stone        
bvstone@taylorcorp.com
http://prairie.lakes.com/~bvstone/
"She's into Malacas, Dino."

> -----Original Message-----
> From: Jeffrey M. Silberberg [SMTP:silbrbrg@netcom.com]
> Sent: Friday, May 08, 1998 11:46 AM
> To:   Roger Pence
> Cc:   MIDRANGE-L@midrange.com
> Subject:      Re: DOW & DOU
> 
> 
>   Roger, 
> 
>       where would the read go in this case, just before the DOU, and 
> just before the enddo.
> 
>       read filea
>       DOU    %EOF(filea) 
>       ........
>       .........
>       read filea
>       enddo
> 
> 
> On Fri, 8 May 1998, Roger Pence wrote:
> 
> > Anybody checked out the V4R2 %EOF BIF? It provides a simple,
> indicatorless
> > way to traverse a file:
> > 
> >          * Position FileName here if necessary
> >          DOU   %EOF( FileName )
> >             .
> >             .
> >             .
> >          ENDDO
> > 
> > 
> > rp
> > 
> > 
> > +---
> > | 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
> MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> david@midrange.com
> > +---
> > 
> +---
> | 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
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| 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 MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---