Re:

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Ahh, thanks Barbara, wasn't sure if it would compare them or not
with different lengths, so was just playing it safe.  I know for
a fact that comparing the trimmed values will give me what I expect.

And, yes, I did want to find just the first match, and as I understand
it my code is doing that.  The next command the program will hit after
the Eval FoundMatch = *On is the EndDo command (since the Reade is in
an else branch) and since part of the DoW is Not FoundMatch in effect,
as soon as the Do loop finds a match it will continue the code after the
Do loop.  I do not use Leave statements as IMO it makes the code a little
more difficult to understand.

 C                   DoW       Not %Eof(CCOHD04) And                            
    
 C                             Not FoundMatch                                   
    
                                                                                
    
  *                  *** Container matches, does the Biller's Reference Number? 
*** 
 C                   If        %Trim(OHRefB) = %Trim(CER_RefB)                  
    
 C                   Eval      FoundMatch = *On                                 
    
 C                   Else                                                       
    
 C     CCOHD_Key     Reade     OHdRc                                            
    
 C                   EndIf                                                      
    
                                                                                
    
 C                   EndDo              

Regards,

Jim Langston

bmorris@ca.ibm.com wrote:
> 
> Date: Mon, 11 Dec 2000 10:19:05 -0800
> From: Jim Langston <jimlangston@conexfreight.com>
> > ...
> > If        %Trim(OHRefB) = %Trim(Bd_RXInv#)
> > ...
> 
> Jim, you don't need to trim these fields to compare them.  RPG
> ignores trailing blanks when testing for equality: 'abc' = 'abc '.
> 
> (By the way, did you intend to print out all matches or just the
> first one?  If all, your EXCEPT is in the wrong place; if just
> the first one, you should leave your loop when you find one (or
> move the EXCEPT there and then leave the loop.)
> 
> Barbara Morris
+---
| 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
+---