请问是否有检查pf记录数非0的命令

KienR9

RTVMBRD   FILE(LIB_NAME/PF_NAME)  MBR(MEMBER_NAME)  NBRCURRCD(&RECORD_NUMBER)

starling_lee

使用RTVMBRD解决了

非常感谢KienR9

qingzhou

如果PF=0对你程序运行结果有什么影响没?

如果有影响,你可以先对源PF文件做dspfd产生*outfile文件,然后判断 Total records  ?= 0 ,然后再采取处理措施.

比较麻烦点就是,办法相信还是有的.

qingzhou

原帖由 KienR9 于 2008-11-13 16:36 发表
RTVMBRD   FILE(LIB_NAME/PF_NAME)  MBR(MEMBER_NAME)  NBRCURRCD(&RECORD_NUMBER)

恩,来得简便,直接Retrieve出PF文件的记录值.

roden

使用如下命令:
DSPFD FILE(MAOTEST1) TYPE(*MBRLIST) OUTPUT(*OUTFILE) OUTFILE(QTEMP/QQQ)

然后读取QTEMP中的QQQ文件,主要字段意思如下:
MLFILE 文件名
MLNAME Member
MLNRCD 记录数

只要判断MLNRCD是否为零即可.

roden

还是RTVMBRD方便

qingzhou

原帖由 roden 于 2008-11-14 09:50 发表
使用如下命令:
DSPFD FILE(MAOTEST1) TYPE(*MBRLIST) OUTPUT(*OUTFILE) OUTFILE(QTEMP/QQQ)

然后读取QTEMP中的QQQ文件,主要字段意思如下:
MLFILE 文件名
MLNAME Member
MLNRCD 记录数

只要判断MLNRC ...

我开始思路也是这样去判断，后来还是觉得一句Retrieve语句就可以实现来得简便。有些Retrieve命令有时还真会收到意想不到的效果，比如：RTVJOBA，RTVMBRD，RTVMSG，RTVOBJD，RTVSYSVAL等。

1. 
   
2. Command     Library     Text                          
   
3. RTVAUTLE    QSYS        Retrieve Auth List Entry      
   
4. RTVBCKUP    QSYS        Retrieve Backup Options      
   
5. RTVBNDSRC   QSYS        Retrieve Binder Source        
   
6. RTVCFGSRC   QSYS        Retrieve Configuration Source
   
7. RTVCFGSTS   QSYS        Retrieve Configuration Status
   
8. RTVCLDSRC   QSYS        Retrieve C Locale Description
   
9. RTVCLNUP    QSYS        Retrieve Cleanup              
   
10. RTVCLSRC    QSYS        Retrieve CL Source            
    
11. RTVCURDIR   QSYS        Retrieve Current Directory   
    
12. RTVDIRINF   QSYS        Retrieve Directory Information
    
13. RTVDLOAUT   QSYS        Retrieve DLO Authority        
    
14. RTVDLONAM   QSYS        Retrieve DLO Name            
    
15. RTVDOC      QSYS        Retrieve Document           
    
16. RTVDSKINF   QSYS        Retrieve Disk Information   
    
17. RTVDTAARA   QSYS        Retrieve Data Area         
    
18. RTVGRPA     QSYS        Retrieve Group Attributes   
    
19. RTVIMGCLG   QSYS        Retrieve Image Catalog      
    
20. RTVJOBA     QSYS        Retrieve Job Attributes     
    
21. RTVJRNE     QSYS        Retrieve Journal Entry      
    
22. RTVLIBD     QSYS        Retrieve Library Description
    
23. RTVMBRD     QSYS        Retrieve Member Description
    
24. RTVMSG      QSYS        Retrieve Message            
    
25. RTVNETA     QSYS        Retrieve Network Attributes
    
26. RTVOBJD     QSYS        Retrieve Object Description
    
27. RTVPDGPRF   QSYS        Retrieve PDG Profile         
    
28. RTVPWRSCDE  QSYS        Retrieve Power Schedule Entry
    
29. RTVQMFORM   QSYS        Retrieve Query Management Form
    
30. RTVQMQRY    QSYS        Retrieve Query Mgmt Query     
    
31. RTVSRVAGT   QSYS        Retrieve Service Agent        
    
32. RTVSWLSRC   QSYS        Retrieve Stop Word List Source
    
33. RTVSYSINF   QSYS        Retrieve System Information   
    
34. RTVSYSVAL   QSYS        Retrieve System Value         
    
35. RTVS36A     QSYS        Retrieve S/36 Environment Attr
    
36. RTVTBLSRC   QSYS        Retrieve Table Source         
    
37. RTVUSRPRF   QSYS        Retrieve User Profile         
    
38. RTVUSRPRTI  QSYS        Retrieve User Print Info      
    
39. RTVWSCST    QSYS        Retrieve WSCST source      
    
40. RTVJOBSTS   QGPL        Retreive job status command
    

复制代码

albertqk

假设要检查文件A
CRTDUPOBJ OBJ(A)            
                   FROMLIB(lib-name)
                   OBJTYPE(*FILE)     
                   TOLIB(lib-name)  
                   NEWOBJ(B)         
                   DATA(*NO)
         
CPYF FROMFILE(lib-name/A)
        TOFILE(lib-name/B)        
        MBROPT(*ADD)

MONMSG MSGID(CPC2957)

mamei

原帖由 KienR9 于 2008-11-13 16:36 发表
RTVMBRD   FILE(LIB_NAME/PF_NAME)  MBR(MEMBER_NAME)  NBRCURRCD(&RECORD_NUMBER)

在cl这是最简单的！

txsrxy

用DCLF后在用RCVF命令，在monmsg就OK了。