Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1028949
  • 博文数量: 125
  • 博客积分: 10490
  • 博客等级: 上将
  • 技术积分: 2386
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-03 18:26
文章分类

全部博文(125)

文章存档

2011年(1)

2010年(9)

2009年(17)

2008年(98)

分类:

2008-06-24 16:51:41

使用QUSRJOBI时先看看INFORMATION_FORMAT如下:
JOBI0100 Basic performance information
JOBI0150 Additional performance information
JOBI0200 WRKACTJOB information
JOBI0300 Job queue and output queue information
JOBI0400 Job attribute information
JOBI0500 Message logging information
JOBI0600 Active job information
JOBI0700 Library list information
JOBI0750 Extended library list information
JOBI0800 Active job signal information
JOBI0900 Active job SQL information
JOBI1000 Elapsed performance statistics
例子:
0001.00 DRVCSTR           DS          4096    INZ                  
0002.00 D NUMSYS                 65     68B 0                      
0003.00 D NUMPRO                 69     72B 0                      
0004.00 D NUMCUR                 73     76B 0                      
0005.00 D NUMUSR                 77     80B 0                      
0006.00 D LIBLST                 81   4096A                        
0007.00 D LENRCV          S              4B 0 INZ(%LEN(RVCSTR))    
0008.00 D FMTNAM          S              8A   INZ('JOBI0700')      
0009.00 D QJOBNM          S             26A   INZ('*')             
0010.00 D INJBID          S             16A   INZ                  
0011.00 DERRCODE          DS           227                         
0012.00 D QERRLEN                 1      4B 0 INZ(%LEN(ERRCODE))   
0013.00 D QQUCED                  5      8B 0 INZ(0)               
0014.00 D QMSGID                  9     15A   INZ                  
0015.00 D QMSGRS                 16    227A                        
0016.00 C                                                          
0017.00 C                   CALL      'QUSRJOBI'           
0018.00 C                   PARM                    RVCSTR 
0019.00 C                   PARM                    LENRCV 
0020.00 C                   PARM                    FMTNAM 
0021.00 C                   PARM                    QJOBNM 
0022.00 C                   PARM                    INJBID 
0023.00 C                   PARM                    ERRCODE
0024.00 C                                                  
........
0032.00 C                   EVAL      *INLR = '1'
阅读(1279) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~