DB12 Z/OS存储过程代码异常求助：循环无法终止问题

一、核心原因：自定义SQLCODE变量未被正确赋值 #

你在存储过程中自行声明了SQLCODE INTEGER，但在DB2 z/OS环境下，EXECUTE IMMEDIATE执行后，DB2不会自动将实际执行的SQL返回码赋值给这个自定义变量。这就导致哪怕某次删除操作没有匹配到任何行（本应返回SQLCODE=100），你的变量始终保持初始值0，永远触发不了LEAVE DEL_LOOP的退出条件，循环因此无限运行。

二、其他潜在风险（非循环不停的主因） #

• 如果目标表的LN_NO不是唯一键，子查询可能重复选取已被删除的行，导致删除效率低下，但不会直接引发循环无法终止。
• 动态拼接SQL时，若表名包含特殊字符（如schema前缀、空格），可能引发语法错误，但同样不是循环失控的核心原因。

三、修复方案 #

方案1：移除自定义SQLCODE声明，使用DB2全局变量 #

直接删除DECLARE SQLCODE INTEGER;这一行，DB2会自动维护全局的SQLCODE变量，EXECUTE IMMEDIATE执行后会正确更新其值。

方案2：保留自定义变量，通过GET DIAGNOSTICS获取返回码 #

如果必须使用自定义变量，在EXECUTE IMMEDIATE之后添加以下语句，手动获取实际SQL返回码：

GET DIAGNOSTICS SQLCODE = RETURNED_SQLCODE;

优化后的完整存储过程示例 #

CREATE PROCEDURE DEL_TBL_TEST23(IN TBL_NM VARCHAR(100))
DYNAMIC RESULT SETS 1
LANGUAGE SQL MODIFIES SQL DATA
BEGIN
    DECLARE BDE_COUNTER INTEGER DEFAULT 0;
    DECLARE V1 VARCHAR(50);
    DECLARE V2 VARCHAR(100);
    DECLARE V3 VARCHAR(100);
    DECLARE V4 VARCHAR(100);
    DECLARE V5 VARCHAR(200);
    DECLARE V6 VARCHAR(500);
    DECLARE T VARCHAR(500);

    SET V1='DELETE FROM';
    SET V2= TBL_NM;
    SET V3='WHERE LN_NO IN (SELECT LN_NO FROM';
    SET V4= TBL_NM;
    SET V5='WHERE REC_CHNG_CD=''T''';                                       
    SET V6='ORDER BY LN_NO FETCH FIRST 10000 ROWS ONLY)';
    SET T = V1||V2||V3||V4||V5||V6 ;

DEL_LOOP:
    LOOP
        SET BDE_COUNTER=BDE_COUNTER + 1;
        EXECUTE IMMEDIATE T;
        COMMIT;
        
        -- 利用DB2全局SQLCODE判断是否无行可删
        IF SQLCODE = 100 THEN
            LEAVE DEL_LOOP; 
        END IF;    
    END LOOP DEL_LOOP;

COMMIT;
END

额外优化建议 #

• 动态拼接表名时，可使用QUOTENAME函数处理特殊表名，避免语法错误或SQL注入风险。
• 可在循环中添加日志逻辑（如插入日志表记录循环次数、SQL返回码），方便后续问题排查。

内容的提问来源于stack exchange，提问作者P.C