× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Okay, 

        First I restarted this thread.   

        Second I built a three record test bed PF called VATTBL..

 * . . .  + . . .  . 1 . .  . . + .  . . . 2  . . . .  +                        
     *...+....1....+....2....+               
 D9858396 96998440 7BF140D5 9640D4C9 40404040 40404040 40                       
    *Recoord #1 No MI                    *   
 D9858396 9984407B F240D4C9 40404040 40404040 D4C94040 40                       
    *Record #2 MI        MI              *   
 D9858396 998440F3 40D4C940 D9898788 A3404040 404040D4 C9                       
    *Record 3 MI Right      MI           *   

          Then I compiled the code...

0001.00 PGM                                                                     
             041007            
0002.00                                                                         
             041007            
0003.00 DCL   &VAR5    *CHAR  (    5   ) VALUE( '   MI')                        
             041007            
0004.00 DCL   &A       *CHAR  (    1   ) VALUE( '''' )                          
             041007            
0005.00                                                                         
             041007            
0006.00              CPYF       FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF +   
             041007            
0007.00                           TXSUF *EQ &VAR5))                             
             041007            
0008.00                                                                         
             041007            
0009.00  ENDPGM                                                                 
             041007            

          This prints Record Number #3...................

The Logclpgm shows the code executing on a V4R5 box as 

   600 - CPYF FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF TXSUF *EQ '  
  MI'))                                                                

0001.00 PGM                                                                     
        
0002.00                                                                         
        
0003.00 DCL   &VAR5    *CHAR  (    5   ) VALUE( 'MI   ')                        
        
0004.00 DCL   &A       *CHAR  (    1   ) VALUE( '''' )                          
        
0005.00                                                                         
        
0006.00              CPYF       FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF +   
        
0007.00                           TXSUF *EQ &VAR5))                             
        
0008.00                                                                         
        
0009.00  ENDPGM                                                                 
        

           This prints Record Number 
#2................................................

The Logclpgm shows the code executing on a V4R5 box as 
   
    600 - CPYF FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF TXSUF *EQ 'MI')) 

So I am lost as to what the issue is and Why if the CLP adds the appropriate 
trim & quotes, your are forcing them into the mix in your code.. 
 
Did I enter this thread to late and miss something .....

JMS..

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.