OPNQRYF中%WLDCRD的用法

%WLDCRD可以用在 QRTSLT和 GRPSLT参数上。

列1，QRYSLT('FLDA *EQ %WLDCRD("A_C")')

     就会选择出如ABC,ACC,ADC,AxC等。

 

例2，QRYSLT('FLDB *EQ %WLDCRD("A*C*") ')

    就会选择出如AC, ABC, AxC, ABCD, AxxxxxxxC等。

 

例3，QRYSLT('FLDB *EQ %WLDCRD("*ABC*DEF*") ')

    就会选择出如ABCDEF, ABCxDEF, ABCxDEFx, ABCxxxxxxDEF, ABCxxxDEFxxx, xABCDEF, xABCxDEFx等

 

例4，QRYSLT('FLDB *EQ %WLDCRD("ABC_*DEF*") ')

    就会选择出如ABCxDEF, ABCxxxxxxDEF, ABCxxxDEFxxx,等

 

 

CLLE:

 PGM                                                         
                                                             
          OVRDBF     FILE(PTR) TOFILE(HPSGNK4/HPSZIKF) +     
                       MBR(*FIRST) SHARE(*YES)               
          OPNQRYF    FILE(PTR) QRYSLT('ABPROD *EQ +          
                       %WLDCRD("*M_1*")')                    
                                                             
          CALL       PGM(ZYF/PTRA)                           
                                                             
          CLOF       OPNID(PTR)                              
          DLTOVR     FILE(PTR)                               
 ENDPGM                                                      

 

RPGLE:

FPTR       IF   E           K DISK                                        
C*    *LOVAL        SETLL     PTR                                         
C                   READ      PTR                                    80   
C                   dow       *IN80 = *OFF                                
C     ABPROD        DSPLY                                                 
C                   READ      ptr                                    80   
C                   ENDdo                                                 
C                   eval      *inlr=*on