哪位有用CL写的Query，麻烦发给我一份学习，感激不尽!!!

Vivian-wu

哪位有用CL写的Query，麻烦发给我一份学习，感激不尽!!!

magket

用wrkqry先新建一个QRY，保存好了。
然后在CL中用RUNQRY。

Vivian-wu

原帖由 "magket" 发表：
用wrkqry先新建一个QRY，保存好了。
然后在CL中用RUNQRY。

但那不能让用户自行选需要的记录，是不是？

javasun

*************** Beginning of data ****
WRKQRY:     QSYS/WRKQRY              
****************** End of data *******
以上的CLP程序就好，很简单，这样user可以CALL了，应该是你的需求吧

xuguopeng

RUNQRY     QRY(DLPAUDIT/CHKCHG) RCDSLT(*YES)

这样用户就可以只能输入条件 而不更改其他选项了

michael9406

QUERY是最基本的用户筛选记录的方法。

Vivian-wu

请问我该如何接收参数？


                               Define the Query                       
                                                                     
Query . . . . . . :   QITEM             Option  . . . . . :   CHANGE  
  Library . . . . :     WUCY0001        CCSID . . . . . . :    1388   
                                                                     
Type options, press Enter.  Press F21 to select all.                  
  1=Select                                                            
                                                                     
Opt    Query Definition Option                                       
     >; Specify file selections                                       
       Define result fields                                          
       Select and sequence fields                                    
     >; Select records                                                


                                Select Records                     
                                                                    
Type comparisons, press Enter.  Specify OR to start each new group.
  Tests:  EQ, NE, LE, GE, LT, GT, RANGE, LIST, LIKE, IS, ISNOT...   
                                                                             
AND/OR  Field             Test   Value (Field, Number, 'Characters', or ...)
        ACFCP             EQ     'TEST'

dreamflight

Opt Query Definition Option
>; Specify file selections         选择你需要查询的file名，可以join file
Define result fields                自定义新field，如field3=field1+field2
Select and sequence fields   选择select出来的field
>; Select records                   selection condition