IBM DB2 for LUW 11.5：复合SQL块调用ADMIN_CMD报SQLCODE=-751错误

报错原因 #

DB2的BEGIN ATOMIC复合SQL块属于原子性复合语句，它的执行环境有严格限制：仅允许执行常规的DML/DDL语句，禁止执行REORG这类数据库维护管理操作。而SYSPROC.ADMIN_CMD('REORG TABLE ...')本质是调用系统存储过程执行表重组的管理操作，这类操作在原子复合块中是不被允许的，因此触发SQLCODE=-751错误。

单独执行CALL SYSPROC.ADMIN_CMD(...)时，属于顶层直接执行的语句，不受原子复合块的限制，所以可以正常运行。

正确实现方式：用SQL存储过程遍历执行REORG #

要批量处理所有REORG_PENDING='Y'的表，需要创建SQL存储过程（而非简单的复合SQL块），存储过程的执行环境支持调用管理类存储过程，且可以通过游标循环遍历目标表：

1. 创建存储过程 #

CREATE OR REPLACE PROCEDURE REORG_PENDING_TABLES()
LANGUAGE SQL
BEGIN
  DECLARE v_schema VARCHAR(128);
  DECLARE v_table VARCHAR(128);
  DECLARE v_reorg_stmt VARCHAR(1000);
  DECLARE done INT DEFAULT 0;

  -- 声明游标：获取所有需要重组的表（schema+表名）
  DECLARE reorg_cursor CURSOR FOR
    SELECT tabschema, tabname
    FROM SYSCAT.TABLES
    WHERE REORG_PENDING = 'Y';

  -- 游标结束处理
  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1;

  -- 遍历游标执行REORG
  OPEN reorg_cursor;
  FETCH reorg_cursor INTO v_schema, v_table;
  WHILE done = 0 DO
    SET v_reorg_stmt = 'REORG TABLE ' || v_schema || '.' || v_table;
    CALL SYSPROC.ADMIN_CMD(v_reorg_stmt);
    FETCH reorg_cursor INTO v_schema, v_table;
  END WHILE;
  CLOSE reorg_cursor;
END@

2. 执行存储过程 #

CALL REORG_PENDING_TABLES()@

注意事项 #

• 执行此存储过程需要具备：SYSPROC.ADMIN_CMD的执行权限，以及对目标表的REORG权限；
• 若需要排除系统表，可在游标查询中添加WHERE tabschema NOT IN ('SYSIBM', 'SYSCAT', 'SYSSTAT', 'SYSIBMADM')条件。

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