Chinaunix

标题: 如何按日期删除“Jobs in system “的数量，程序详解。 [打印本页]

作者: leason 时间: 2011-12-08 14:35
标题: 如何按日期删除“Jobs in system “的数量，程序详解。
本帖最后由 leason 于 2011-12-08 14:37 编辑

% CPU used . . . . . . . :       3.2
% DB capability  . . . . :       1.6
Elapsed time . . . . . . : 04:15:38
Jobs in system . . . . . :    4820
% perm addresses . . . . :    .013
% temp addresses . . . . :    .144

最近在整理系统资源，看到 Jobs in system 有5万多个，有写JOB甚至是2003年存在到现在一直没清理，单个清理的话，实在过于麻烦，所以写了个程序可以按日期来进行一次性删除，不知道之前又没人发过类似的程序，先把程序共享出来，希望对各位有些用处。

执行程序 SBMJOB CMD(CALL PGM(ZZC1055) PARM('*ALL' '111101')) ，实现的功能为删除Jobs in system 中在2011年11月1号之前生成的所有JOB。此操作执行后，上图5万多的JOB数量，减少到4820个。

ZZC1055 SOURCE：

      PGM          PARM(&OPT &YMD)
            DCL          VAR(&OPT) TYPE(*CHAR) LEN(10)
            DCL          VAR(&YMD) TYPE(*CHAR) LEN(6)
  START:
            CHKOBJ    OBJ(QTEMP/ZSPLF) OBJTYPE(*FILE)
            MONMSG MSGID(CPF9801) EXEC(DO)
            CRTPF       FILE(QTEMP/ZSPLF) RCDLEN(150) IGCDTA(*YES) +
                           SIZE(*NOMAX)
            ENDDO
            WRKSPLF SELECT(&OPT) OUTPUT(*PRINT)
            CPYSPLF FILE(QPRTSPLF) TOFILE(QTEMP/ZSPLF) +
                           SPLNBR(*LAST)
            OVRDBF    FILE(ZSPLF) TOFILE(QTEMP/ZSPLF)
            CALL       PGM(ZZR1053) PARM(&YMD)
END:
         RETURN
         ENDPGM

ZZR1053 SOURCE：先生成报表的名字和数量:
   H          Y                                  1
   *---------------------------------------------------------------
   FZSPLF IF  F    150          DISK                         U
   *---------------------------------------------------------------
   IZSPLF AA  10
   I                                     3  12 SPLF
   I                                     14  23 USER
   I                                     84  85 YY
   I                                     87  88 MM
   I                                     90  91 DD
   I                                     109 118 JOB
   I                                     105 107 SPLFNO
   I                                     120 125 JOBNO
   I          DS
   I                                     1 6 INYMD
   I                                     1 2 IYY
   I                                     3 4 IMM
   I                                     5 6 IDD
   *---------------------------------------------------------------
   * 主流程
   *---------------------------------------------------------------
   C          *ENTRY PLIST
   C                   PARM          YMD    6
   C                   OPEN ZSPLF
   C          *IN90    DOWEQ'0'
   C                   READ ZSPLF                   9090:NR
   C          *IN90    IFEQ '0'
   C          SPLFNO ANDNE*BLANKS
   C                   MOVE *BLANKS INYMD
   C                   MOVE YY       IYY
   C                   MOVE MM       IMM
   C                   MOVE DD       IDD
   C                   MOVE SPLFNO SPLFNS  30
   C          SPLF    IFNE *BLANKS
   C          USER    ANDNE*BLANKS
   C          JOB    ANDNE*BLANKS
   C          JOBNO    ANDGE'000000'
   C          JOBNO    ANDLE'999999'
   C          SPLFNS ANDGE000
   C          SPLFNS ANDLE999
   C          INYMD    ANDNE*BLANKS
   C          INYMD    ANDLTYMD
   C                   CALL 'ZZC1054'
   C                   PARM          SPLF
   C                   PARM          JOB
   C                   PARM          USER
   C                   PARM          JOBNO
   C                   PARM          SPLFNO
   C                   ENDIF
   C                   ENDIF
   C                   ENDDO
   *-- LOOP END
   C                   SETON                   LR
   C                   RETRN

      ****************** End of data ***************************************

ZZC1054 SOURCE       CLP执行删除功能       *************** Beginning of data *************************************

0001.00 /* 系統管理： RMVSPLF 公用程式  */

0002.00             PGM       PARM(&SPLF &JOB &USER &JOBNO &SPLFNO)

0003.00             DCL       VAR(&SPLF) TYPE(*CHAR) LEN(10)

0004.00             DCL       VAR(&JOB) TYPE(*CHAR) LEN(10)

0005.00             DCL       VAR(&USER) TYPE(*CHAR) LEN(10)

0006.00             DCL       VAR(&JOBNO) TYPE(*CHAR) LEN(6)

0007.00             DCL       VAR(&SPLFNO) TYPE(*CHAR) LEN(3)

0008.00             DCL       VAR(&SPLFNOS) TYPE(*DEC) LEN(3 0)

0009.00 START:

0010.00             CHGVAR    VAR(&SPLFNOS) VALUE(&SPLFNO)

0011.00             DLTSPLF FILE(&SPLF) JOB(&JOBNO/&USER/&JOB) +

0012.00                         SPLNBR(&SPLFNOS)

0013.00             MONMSG    MSGID(CPF9999)

0014.00 END:

0015.00             RETURN

0016.00             ENDPGM

      ****************** End of data ****************************************

image001(12-08-14-12-09).jpg (35.27 KB, 下载次数: 32)

作者: qingzhou 时间: 2011-12-08 15:50
辛苦了.
直接清除历史SPLF即可.
或者调用工具DLTOLDSPLF,可以指定保留历史splf天数.

作者: haiaiwoaaaa 时间: 2011-12-08 21:31
学习..

作者: haiaiwoaaaa 时间: 2011-12-08 21:56
回复 2# qingzhou

由于忘记以前的ID，只能新建个，但好像不能发帖，只能发到留言里，有人看到帮忙发下，这样更多的人能看到帮我解决下问题。

有关于批次作业状态监控优化

遍历所有的批次的作业，查看执行状态，例如（RUN、DLYW、MAGW等），30S执行一次，这样的话不能保证实时性。

大家帮忙提供我个更好的方案，又能保证实时性，又能更好的降低此监控作业执行时，占用的系统的资源。

作者: niuhua77 时间: 2011-12-08 22:36
感谢楼主的分享

作者: lizi21 时间: 2011-12-09 09:43
保存一下。

作者: seraph0019 时间: 2011-12-09 15:38
回复 4# haiaiwoaaaa

Da Yu ?

作者: haiaiwoaaaa 时间: 2011-12-09 19:25
回复 7# seraph0019

JUN JUN?

作者: seraph0019 时间: 2011-12-12 09:11
回复 8# haiaiwoaaaa

QIN

作者: leason 时间: 2011-12-12 10:11
回复 2# qingzhou

老大，DLTOLDSPLF这个工具，怎么用啊？

直接删除历史SPLF，可以包括全部用户么？

作者: qingzhou 时间: 2011-12-12 20:31

回复 qingzhou

老大，DLTOLDSPLF这个工具，怎么用啊？

直接删除历史SPLF，可以包括全部用户么 ...
leason 发表于 2011-12-12 10:11

指定OUTQ来进行清除的，可以指定保留多少天数的SPLF。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)