使用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
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
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'