0001.00 d*QUSCRTUS
0002.00 dQUSSPNM s 20a inz
0003.00 dEXTATR s 10a inz
0004.00 dINITSIZE s 10i 0 inz(4096)
0005.00 dINITVALU s 1a inz
0006.00 dPUBAUT s 10a inz
0007.00 dTXTDECP s 50a inz
0008.00 dREPLACE s 10a inz
0015.00 d*QUSLJOB
0016.00 d FMTNAM s 8A INZ('JOBL0200')
0017.00 D QJOBNM s 26A INZ
0018.00 D STS s 10A INZ('*ACTIVE ')
0019.00 D*QUSRTVUS
0020.00 D STPST S 10i 0 INZ(1)
0021.00 D LENDTA S 10i 0 INZ(4096)
0021.01 DRCVVAR ds 4096 INZ
0021.02 d*offset 信息的起始位置
0021.03 D OFSIZE 125 128B 0
0021.04 d*num of the entries 信息块的个数
0021.05 D O133 133 136B 0
0022.00 d*size of the entry 信息块的长度
0023.00 D O137 137 140B 0
0024.00 D*
0025.00 derrcode ds
0026.00 d qrclen 1 4b 0 inz(%len(errcode))
0027.00 d qrcv 5 8b 0 inz(0)
0028.00 d qmsgid 9 15a inz
0029.00 d qcc 16 16a inz
0030.00 d qex 17 227a inz
0031.00 C*
0032.00 C EVAL QUSSPNM = 'JOBTMP '+
0033.00 C 'QTEMP '
0034.00 C EVAL EXTATR = ' '
0035.00 C EVAL INITVALU = ' '
0036.00 C EVAL PUBAUT = '*ALL'
0037.00 C EVAL TXTDECP = 'MY JOB SPACE '
0038.00 C EVAL REPLACE = '*NO'
0039.00 C*CALL QUSCRTUS
0040.00 C CALL 'QUSCRTUS'
0041.00 C PARM QUSSPNM
0042.00 C PARM EXTATR
0043.00 C PARM INITSIZE
0044.00 C PARM INITVALU
0045.00 C PARM PUBAUT
0046.00 C PARM TXTDECP
0047.00 C PARM REPLACE
0048.00 C PARM ERRCODE
0049.00 C*
0051.00 C EVAL QJOBNM = '*ALL '+
0052.00 C '*CURRENT '+
0053.00 C '*ALL '
0054.00 c reset errcode
0055.00 C*QUSLJOB The job what we get
0056.00 C CALL 'QUSLJOB'
0057.00 C PARM QUSSPNM
0058.00 C PARM FMTNAM
0059.00 C PARM QJOBNM
0060.00 C PARM STS
0061.00 C PARM ERRCODE
0062.00 C*
0065.00 C EVAL RCVVAR = ' '
0066.00 C*QUSRTVUS ====get job list
0067.00 c reset errcode
0068.00 C CALL 'QUSRTVUS'
0069.00 C PARM QUSSPNM
0070.00 C PARM STPST
0071.00 C PARM LENDTA
0072.00 C PARM RCVVAR
0073.00 C PARM ERRCODE
0074.00 C*QUSDLTUS
0075.00 c reset errcode
0076.00 C CALL 'QUSDLTUS'
0077.00 C PARM QUSSPNM
0078.00 C PARM ERRCODE
0078.01 c*
0079.00 C EVAL *INLR = '1'
阅读(1096) | 评论(0) | 转发(0) |
