RE: Sequence error in MR

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

*********** REPLY SEPARATOR  ***********

On 18-9-03 at 12:55 G Armour wrote:

>Why?
>
>GA
>
>--- Carel Teijgeler <coteijgeler@xxxxxxxxx> wrote:
>> In this case I would still have used the logic cycle.
>> 
>> fBONLPF    IP   E           K DISK
>> fBLPART    UF   E           K DISK
>> c     ORDER         Setll     BLPART
>> c     ORDER         Reade     BLPART                            99
>> c                   DoW       *IN99 = *OFF
>> c                   Delete    BLPART
>> c     ORDER         Reade     BLPART                            99
>> c                   Enddo
>> 
>> Regards,
>> Carel Teijgeler.
>
>
>__________________________________
>Do you Yahoo!?
>Yahoo! SiteBuilder - Free, easy-to-use web site design software
>http://sitebuilder.yahoo.com
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/midrange-l
>or email: MIDRANGE-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.