Re: DoW (WAS DoU...)

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

This is not a question, but just the result of the questions I was
asking.  I am posting the final code in case anyone lurking was 
interested in how it turned out.  The code was converted to a 
function with prototypes.

Again, thanks for all the help.

Regards,

Jim Langston

  *** Prototype for ContExistRefB Function ***            
 D ContExistRefB   PR             1A                      
 D  CER_Alpha                     4A   Const              
 D  CER_Numeric                   7A   Const              
 D  CER_RefB                           Like(OHRefB) Const 

...

 D BillingRef      S                   Like(OHRefB)   

...

  *                  *** See if we can find a match in the CCOHD file ***    
 C                   Eval      BillingRef = Bd_RXInv#                        
 C                   Eval      FoundMatch = ContExistRefB(Bd_RXEqId:         
 C                                                    Bd_RXEqNo + Bd_RXCChk: 
 C                                                    BillingRef)            
                                                                             
...

  
*********************************************************************************
 
  *** ContExistRefB - Does Container Exist by Billers Reference Number Function 
*** 
  
*********************************************************************************
 
                                                                                
    
 P ContExistRefB   B                                                            
    
                                                                                
    
 D ContExistRefB   PI             1A                                            
    
 D  CER_Alpha                     4A   Const                                    
    
 D  CER_Numeric                   7A   Const                                    
    
 D  CER_RefB                           Like(OHRefB) Const                       
    
                                                                                
    
 D FoundMatch      S                   Like(*IN01)                              
    
                                                                                
    
 C     CCOHD_Key     KList                                                      
    
 C                   KFld                    CER_Alpha                          
    
 C                   KFld                    CER_Numeric                        
    
                                                                                
    
 C                   Eval      FoundMatch = *Off                                
    
 C     CCOHD_Key     SetLL     OHdRc                                            
    
 C     CCOHD_Key     Reade     OHdRc                                            
    
 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                                                      
    
                                                                                
    
 C                   Return    FoundMatch                                       
    
                                                                                
    
 P ContExistRefB   E
+---
| 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
+---