RE: Sequence error in MR

Are you inciting a "read first, then dowhile with read at the bottom of
loop" vs. "setll, dountil, read, if" war?

If so, I'm not interested.  It's already been fought.  <g>

GA

--- Carel Teijgeler <coteijgeler@xxxxxxxxx> wrote:
> For the obvious reasons: it is more readable, maintainable, and not
> clutterded with enddo's or endifs.
> 
> But if you want it fully procedural:
> 
> fBONLPF    IF   E           K DISK
> fBLPART    UF   E           K DISK
> c                   Read      BONLPF                                  
> LR
> c                   DoW       *INLR = *OFF
> c     ORDER         Setll     BLPART
> c     ORDER         Reade     BLPART                            99
> c                   DoW       *IN99 = *OFF
> c                   Delete    BLPART
> c     ORDER         Reade     BLPART                            99
> c                   Enddo
> c                   Read      BONLPF                            LR
> c                   Enddo
> 
> Regards,
> Carel Teijgeler


__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com