如何通过JCL/SPUFI执行DB2存储过程？排查SQLCODE=-84错误

一、无需COBOL执行存储过程的可行性 #

完全可行，以下几种方式都可以直接调用DB2 SQL存储过程，无需编写COBOL宿主程序：

• SPUFI：直接在SPUFI的输入面板执行CALL语句，支持返回结果集的显示
• JCL + DSNTEP2：通过批量作业调用DB2自带的DSNTEP2工具执行SQL
• DB2 Administration Tool：如你截图中使用的RQRL工具，可直接选中存储过程发起调用，工具会自动生成正确语句
• DB2 Interactive (DB2I)：TSO环境下进入DB2交互界面，直接执行CALL命令

二、SQLCODE -84（SQLSTATE 42612）报错排查与解决 #

根据你的报错信息和存储过程定义，问题大概率出在调用语句的正确性上，以下是分步解决步骤：

1. 修正调用语句的核心问题 #

（1）必须指定存储过程的完整Schema

你的存储过程归属DWR000A Schema，若当前会话默认Schema不是该值，直接调用SELECT_PSID_RIZ会导致DB2无法找到对象。正确的调用语句应为：

CALL DWR000A.SELECT_PSID_RIZ(761, 1);

（2）参数类型匹配

存储过程的P_PLNN是INT类型，你之前传入的01可能被解析为字符型而非整数，改为1即可避免类型不匹配问题。

2. 检查执行权限 #

确认当前执行用户拥有该存储过程的EXECUTE权限：

-- 查询权限
SELECT * FROM SYSCAT.PROCPRIV 
WHERE PROCNAME = 'SELECT_PSID_RIZ' AND PROCSCHEMA = 'DWR000A';

-- 若权限缺失，执行授权
GRANT EXECUTE ON PROCEDURE DWR000A.SELECT_PSID_RIZ TO USER [你的用户名];

3. 修正JCL调用DSNTEP2的写法 #

DSNTEP2直接处理纯SQL语句，不需要添加宿主语言的EXEC SQL/END-EXEC标记，正确的JCL示例：

//DSNTEP2 EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB  DD DISP=SHR,DSN=DBB0.SDSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DBB0)
  RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2) LIB('DBB0.SDSNLOAD')
//SYSIN    DD *
CALL DWR000A.SELECT_PSID_RIZ(761, 1);
/*
//

4. 验证存储过程逻辑正确性 #

先手动执行存储过程内的SELECT语句，确认数据存在：

SELECT PSID, JOBINFO 
FROM DWR000A.PSLOGT 
WHERE CONN = 761 AND PLNN = 1;

若该语句能正常返回数据，说明存储过程逻辑无问题，问题仅出在调用环节。

三、更简便的执行方式推荐 #

使用你截图中的DB2 Routine List工具（RQRL）：

1. 在Routine List界面选中SELECT_PSID_RIZ
2. 输入命令CALL，工具会弹出参数输入窗口
3. 填入761和1后执行，工具会自动生成并运行正确的调用语句，无需手动编写SQL

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