Zos DB2：每删除20万条记录执行一次提交的方案咨询

针对你这种大表批量删除且需要分批次提交的场景，最直接的方式是用REXX脚本配合IKJ工具实现循环删除+提交的逻辑，每次固定删除20万条，直到没有符合条件的记录为止。

核心实现思路 #

利用DB2的FETCH FIRST n ROWS ONLY语法限制单次删除的行数，结合REXX的循环逻辑，每次删除后执行COMMIT，并检查是否还有剩余待删除记录，直到SQL返回"无匹配行"的状态。

具体REXX脚本示例 #

把下面的脚本存为PDS成员（比如USERID.CNTL.DEL_OLD_DATA）：

/* REXX - 分批次删除超过20天的记录，每20万条提交一次 */
ADDRESS DSNREXX

/* 初始化循环标志 */
MORE_RECS = 1

DO WHILE MORE_RECS = 1
    /* 执行单次删除，限制20万条 */
    "DELETE FROM YOUR_TABLE_NAME" ,
    "WHERE CREATE_DATE < CURRENT DATE - 20 DAYS" ,
    "FETCH FIRST 200000 ROWS ONLY"

    /* 检查SQL执行结果 */
    IF SQLCODE = 0 THEN DO
        /* 提交当前批次 */
        "COMMIT"
        SAY "已删除并提交200000条记录"
    END
    ELSE IF SQLCODE = 100 THEN DO
        /* 100表示无更多匹配记录，退出循环 */
        MORE_RECS = 0
        SAY "所有符合条件的记录已删除完毕"
    END
    ELSE DO
        /* 处理异常情况 */
        SAY "删除失败，SQLCODE:" SQLCODE "SQLSTATE:" SQLSTATE
        "ROLLBACK"
        EXIT 8
    END
END

EXIT 0

JCL调用示例（IKJEFT01执行） #

//DELJOB    JOB (ACCT),'DEL OLD DATA',CLASS=A,MSGCLASS=X,
//         NOTIFY=&SYSUID
//*
//STEP01    EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
  EXEC 'USERID.CNTL(DEL_OLD_DATA)'
/*
//DSNTRACE  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//* DB2数据集根据你的环境调整 */
//DSNDB01   DD DSN=DSN01.DBDLIB,DISP=SHR
//DSNDB02   DD DSN=DSN01.SDSNLOAD,DISP=SHR
//DSNDB03   DD DSN=DSN01.SDSNEXIT,DISP=SHR

关键注意事项 #

• 索引优化：确保CREATE_DATE字段有索引，否则每次删除都会全表扫描，性能极差。如果没有索引，先创建索引再执行删除作业。
• 锁与并发：分批次提交能减少锁持有时间，降低对业务的影响。如果业务有高并发，建议在低峰期执行这个作业。
• 统计信息更新：大量删除后，表的统计信息会过时，建议作业最后加一步RUNSTATS，避免后续查询性能下降。
• 异常处理：脚本里已经包含了异常回滚逻辑，作业失败时不会导致部分提交的问题，方便排查后重新执行。
• 可选优化：如果CREATE_DATE的分布比较均匀，可以把删除条件拆得更细（比如按天分段：WHERE CREATE_DATE BETWEEN CURRENT DATE - 40 DAYS AND CURRENT DATE - 21 DAYS），进一步减少单次扫描的数据量，提升效率。

替代方案（纯SQL循环，适合不支持REXX的场景） #

如果无法用REXX，也可以用DB2的存储过程实现循环删除，但IKJ调用存储过程需要额外配置，不如REXX灵活。不过如果必须用纯SQL，也可以写一个存储过程，逻辑和上面的REXX类似，每次删20万，循环直到SQLCODE=100。

内容的提问来源于stack exchange，提问作者CicsAdm