能否在DB2 z/OS中直接执行SQL PL脚本而非存储过程？

问题背景 #

我正在IBM Cloud Wazi/s390x虚拟机实例上测试IBM DB2 z/OS，通过DBeaver和IBM Data Studio直接执行查询。希望像DB2 LUW等数据库那样，从SQL脚本直接运行简单的SQL PL脚本，示例代码如下：

BEGIN
DECLARE SQLCODE INTEGER;

SELECT COUNT(*) INTO SQLCODE FROM SYSIBM.SYSTABLES WHERE TYPE = 'T' AND TRIM(CREATOR) = 'IBMUSER' AND TRIM(NAME) = 'BOOKS';

IF SQLCODE = 1 THEN
    EXECUTE IMMEDIATE 'DROP TABLE IBMUSER.BOOKS';
END IF;
END

直接执行后返回错误：

[Code: -104, SQL State: 42601]  ILLEGAL SYMBOL "SQLCODE". SOME SYMBOLS THAT MIGHT BE LEGAL ARE: SECTION. SQLCODE=-104, SQLSTATE=42601, DRIVER=4.28.11]

想确认：是否无法从SQL窗口/客户端工具直接提交SQL PL代码到数据库？已通过创建存储过程并调用的方式实现功能，但不想创建大量存储过程。是否可配置数据库以支持直接从SQL脚本执行SQL PL？

核心原因与结论 #

• DB2 z/OS与DB2 LUW的SQL PL执行机制存在本质差异：DB2 LUW支持直接在客户端执行匿名SQL PL块，但DB2 z/OS默认不允许直接执行匿名SQL PL块，所有SQL PL逻辑必须封装到存储过程、函数或触发器这类数据库对象中才能运行。
• 你遇到的-104错误，直接原因是SQLCODE是DB2的内置全局变量，不能作为用户自定义变量声明；即便修改变量名，DB2 z/OS依然不支持直接运行匿名块。

替代方案（无需长期保留存储过程） #

1. 动态创建临时存储过程 #

可以临时创建存储过程执行逻辑，完成后立即删除，避免大量永久存储过程堆积：

-- 创建临时存储过程
CREATE PROCEDURE IBMUSER.TEMP_DROP_BOOKS
LANGUAGE SQL
BEGIN
  DECLARE TABLE_COUNT INTEGER;
  SELECT COUNT(*) INTO TABLE_COUNT FROM SYSIBM.SYSTABLES WHERE TYPE = 'T' AND TRIM(CREATOR) = 'IBMUSER' AND TRIM(NAME) = 'BOOKS';
  IF TABLE_COUNT = 1 THEN
      EXECUTE IMMEDIATE 'DROP TABLE IBMUSER.BOOKS';
  END IF;
END;

-- 调用存储过程
CALL IBMUSER.TEMP_DROP_BOOKS();

-- 删除临时存储过程
DROP PROCEDURE IBMUSER.TEMP_DROP_BOOKS;

2. 利用客户端工具的脚本批处理能力 #

通过客户端工具的本地脚本解析能力实现流程控制，再逐条执行SQL语句。例如在DBeaver中，可以使用脚本变量和条件判断（由客户端解析执行）：

-- 先查询表是否存在
SELECT COUNT(*) INTO :TABLE_COUNT FROM SYSIBM.SYSTABLES WHERE TYPE = 'T' AND TRIM(CREATOR) = 'IBMUSER' AND TRIM(NAME) = 'BOOKS';

-- 客户端条件判断
IF (:TABLE_COUNT = 1) THEN
    DROP TABLE IBMUSER.BOOKS;
END IF;

关于数据库配置 #

DB2 z/OS目前没有任何配置项可以开启直接执行匿名SQL PL块的功能，这是产品架构层面的设计差异，无法通过配置修改。

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