RE: Sequence error in MR

Or, even in RPG, how about:

   fBONLPF    IF   E           K DISK
   fBLPART    UF   E           K DISK
   c                   Dou       %eof( BONLPF )
   c                   Read      BONLPF
   c                   If        not %eof( BONLPF )
   c     ORDER         Setll     BLPART
   c                   Dou       %eof( BLPART )
   c     ORDER         Reade     BLPART
   c                   If        not %eof( BLPART )
   c                   Delete    BLPART
   c                   Endif
   c                   Enddo
   c                   Endif
   c                   Enddo
   c                   Eval      *inLR = *On

Try to tell me that most RPG programmers will have to go look at a manual
before they know what's going on in this code.

Also, the original MR example will read every single record in the
secondary file - coupled with the RPG cycle overhead, there is no way the
MR program will perform anywhere close to a properly <g> written program. 
If you've got 1,000,000 records in the secondary file, and end up deleting
5,000 of those records, then 995,000 records are unnecessarily read.

Still, love your SQL example, Rob!

GA

--- rob@xxxxxxxxx wrote:
> Would that be the same as:
> DELETE FROM BLPART 
> WHERE ORD IN(SELECT ORD FROM BONLPF)
<snip> 
> 
> 
> Lurton Keel <LKeel@xxxxxxxxxxxxxx>
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 09/17/2003 02:42 PM
> Please respond to Midrange Systems Technical Discussion
>  
>         To:     "'Midrange Systems Technical Discussion'" 
> <midrange-l@xxxxxxxxxxxx>
>         cc: 
>         Fax to: 
>         Subject:        RE: Sequence error in MR
> 
> 
> Mark,
> We still have 6 or so MR programs that have worked flawlessly for the
> past 20 years.
> Almost all of them are deletion programs that remove shipped, paid etc.
> items from master files.
> Following is an example of one of our programs. 
>      FBONLPF    IPE AE           K DISK
>      FBLPART    US  AE           K DISK
>      IBILL1         01
>      I                                          ORDER           M1
>      IBILL2         03
>      I                                          ORDER           M1
>      OBILLPART  DDEL 03 MR
> 
> MR Rules.

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