Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1062088
  • 博文数量: 106
  • 博客积分: 9093
  • 博客等级: 中将
  • 技术积分: 2770
  • 用 户 组: 普通用户
  • 注册时间: 2006-06-01 17:22
文章分类

全部博文(106)

文章存档

2014年(1)

2012年(29)

2011年(32)

2010年(20)

2008年(24)

分类:

2008-07-24 11:37:23

%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                                   
阅读(2968) | 评论(0) | 转发(1) |
0

上一篇:关于DDM

下一篇:RPGLE中的二维数组

给主人留下些什么吧!~~