RE: DoU...

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Jim,

Instead of using READ, use READE with a KLIST that only has the two parts of
the equipment number.  That way, you don't have to check when you run out of
records with a matching equipment number.  Or you could define a logical
with all proper fields to check against and then just do a SETLL to check
whether the record already exists.

Scott Mildenberger

> -----Original Message-----
> From: Jim Langston [mailto:jimlangston@conexfreight.com]
> Sent: Friday, December 08, 2000 5:15 PM
> To: RPG400-L@midrange.com
> Subject: DoU...
> 
> 
> I am writing a new program, and one of the things I am trying to do is
> to see if a record already exists.  The Key for this record has the
> Equipment Number (in 2 parts, EqId and EqNo) and Entry date.
> 
> What I am actually looking for is the record with the same equipoment
> number and the existing RefB (Customer Refernace Number) matching.
> 
> This is the way I'm doing it, and obviously after this code I am going
> to have to do a If FoundMatch = *On, or to put a call to a subroutine
> just before, or after, the Eval FoundMatch = *On.
> 
> It's not, IMO, real clean code.  I seem to think it can be 
> streamlined a
> bit.  I am only reading the records with the same container 
> number as I
> use a SetLL and my DoU will fail when the container doesn't match.
> 
> Any suggestions?  All comments welcome.
> 
>  C                   Eval      FoundMatch = *Off               
>  C     CCOHD_Key     SetLL     OHdRc                           
>  C                   Read      OHdRc                           
>  C                   DoU       FoundMatch = *On                
>  C                             Or %Eof(OHdRc)  
>  C                             Or EQEqId <> RXEqId             
>  C                             Or EqEqNo <> RXEqNo             
>                                                                
>  C                   If        %Trim(OHBL#) = %Trim(RXInv#)    
>  C                   Eval      FoundMatch = *On                
>  C                   Else                                     
>  C                   Read      OHdRc                           
>  C                   EndIf                                     
>                                                                
>  C                   EndDo                                     
> 
> Regards,
> 
> Jim Langston
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---