如何修改在CLP中Query产生的报表名称？

HAPPY潜龙

如果在CLP中直接RUNQRY，产生出来的报表名称都是QPQUPRFIL，如果我需要修改它，应该怎么做？？

我测试过OVRPRTF，都是不成功，可能是我什么参数不对，还是方法错误？？

qingzhou

RUNQRY QRY(LIB/QRY) OUTTYPE(*PRINTER)默认是调用QSYS/QPQUPRFIL的打印文件来产生报表，所以报表名称都为QPQUPRFIL。要修改系统的东西，你可尝试自定义CL命令，然后将文件PRTF指定到自己的文件下。

1. 
   
2.                           Change Printer File (CHGPRTF)                        
   
3.                                                                                 
   
4. Type choices, press Enter.                                                     
   
5.                                                                                 
   
6. File . . . . . . . . . . . . . . > QPQUPRFIL     Name, generic*, *ALL         
   
7.    Library  . . . . . . . . . . . >   QSYS        Name, *LIBL, *ALL, *ALLUSR...
   
8. Device:                                                                        
   
9.    Printer  . . . . . . . . . . .   *JOB          Name, *SAME, *JOB, *SYSVAL   
   
10. Printer device type  . . . . . .   *SCS          *SAME, *SCS, *IPDS, *LINE...  
    
11. Page size:                                                                     
    
12.    Length--lines per page . . . .   66            .001-255.000, *SAME           
    
13.    Width--positions per line  . .   220           .001-378.000, *SAME           
    
14.    Measurement method . . . . . .   *ROWCOL       *SAME, *ROWCOL, *UOM         
    
15. Lines per inch . . . . . . . . .   6             *SAME, 6, 3, 4, 7.5, 7,5...   
    
16. Characters per inch  . . . . . .   10            *SAME, 10, 5, 12, 13.3, 13...
    
17. Overflow line number . . . . . .   60            1-255, *SAME                  
    
18. Record format level check  . . .   *NO           *SAME, *YES, *NO              
    
19. Text 'description' . . . . . . . > '                                          
    
20.        '                                                                        
    
21.                                                                                 
    
22.                                                                         More...
    
23. F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display   
    
24. F24=More keys                                                                  
    
25.                                                                                 
    

复制代码

txf.chan

ovrprtf 可以做到, 看看参数 -  Secure from other overrides

HAPPY潜龙

原帖由 txf.chan 于 2008-7-12 11:25 发表
ovrprtf 可以做到, 看看参数 -  Secure from other overrides

我测试了一下，但是没有成功。能不能给个例子看看？？

HAPPY潜龙

原帖由 HAPPY潜龙 于 2008-7-17 08:54 发表


我测试了一下，但是没有成功。能不能给个例子看看？？

期待哪位能够指点一下迷津呀。。。。

hsiang_wang

你怎么测试的?

HAPPY潜龙

原帖由 hsiang_wang 于 2008-7-23 20:52 发表
你怎么测试的?

PGM                                                                     
    /*----------------------------------------------------------*/        
          OVRPRTF    FILE(BOM001R) TOFILE(QPQUPRFIL) PAGESIZE(*N +        
                       200) CPI(5) IGCDTA(*YES) SECURE(*YES) +            
                       OVRSCOPE(*JOB)                                    
          RUNQRY     QRY(BOM001QB) RCDSLT(*YES)                           
    /*----------------------------------------------------------*/        
   END:        ENDPGM                                                     

执行程序出现错误：

                         Additional Message Information                        
                                                                                
Message ID . . . . . . :   CPA0701                                             
Date sent  . . . . . . :   07/24/08      Time sent  . . . . . . :   09:10:08   
                                                                                
Message . . . . :   QRY1622 received by INV040CB at 600. (C D I R)            
                                                                                
Cause . . . . . :   Control language (CL) program INV040CB in library PCEDP03  
   detected an error at statement number 600. Message text for QRY1622 is:      
   Error opening printer file QPQUPRFIL in *LIBL.                              
Recovery  . . . :   This inquiry message can be avoided by changing the        
   program. Monitor for the error (MONMSG command) and perform error recovery   
   within the program. To continue, choose a reply value.                       
Possible choices for replying to message . . . . . . . . . . . . . . . :      
   C -- Cancel the CL program.                                                  
   D -- Dump the CL program variables and cancel the CL program.               
   I -- Ignore the failing command.                                             
   R -- Try the failing command again.                                          
                                                                         Bottom
Press Enter to continue.

roden

FILE和TOFILE反了

HAPPY潜龙

原帖由 roden 于 2008-7-24 10:06 发表
FILE和TOFILE反了

已经修改

PGM                                                              
   /*----------------------------------------------------------*/
         OVRPRTF    FILE(QPQUPRFIL) TOFILE(BOM001R) PAGESIZE(*N +
                      200) CPI(5) IGCDTA(*YES) SECURE(*YES) +   
                      OVRSCOPE(*JOB)                             
         RUNQRY     QRY(BOM001QB) RCDSLT(*YES)                  
   /*----------------------------------------------------------*/
  END:        ENDPGM                                             

但是执行还是提醒MSG:

                         Additional Message Information                        
                                                                                
Message ID . . . . . . :   CPA0701                                             
Date sent  . . . . . . :   07/24/08      Time sent  . . . . . . :   10:24:16   
                                                                                
Message . . . . :   QRY1622 received by INV040CB at 600. (C D I R)            
                                                                                
Cause . . . . . :   Control language (CL) program INV040CB in library PCEDP03  
   detected an error at statement number 600. Message text for QRY1622 is:      
   Error opening printer file QPQUPRFIL in *LIBL.                              
Recovery  . . . :   This inquiry message can be avoided by changing the        
   program. Monitor for the error (MONMSG command) and perform error recovery   
   within the program. To continue, choose a reply value.                       
Possible choices for replying to message . . . . . . . . . . . . . . . :      
   C -- Cancel the CL program.                                                  
   D -- Dump the CL program variables and cancel the CL program.               
   I -- Ignore the failing command.                                             
   R -- Try the failing command again.                                          
                                                                         Bottom
Press Enter to continue.

fairyboy

明天实际测试一下去.