iSeries - 从 CL 程序调用 SQL 存储过程

Question

如何从 CL 程序运行存储过程？ RUNSQLSTM 需要一个源成员，但我只想构建一个命令，以便用户可以轻松地传递变量，所以这是行不通的。

Answer 1

您可以调用系统程序QZDFMDB2并向其传递一个参数以及要执行的SQL字符串。 在本例中，SQL 字符串是对存储过程的调用：

  CALL PGM(QZDFMDB2) PARM('CALL PROCEDURE (''XYZ'', ''ABC'')')

要替换您的值，请使用 PARM 变量：

  DCL VAR(&CALL) TYPE(*CHAR) LEN(200) 

  CHGVAR VAR(&CALL) 
  VALUE('CALL PROCEDURE (''' *CAT &PARM1 *TCAT ''', ''' *CAT &PARM2 *TCAT ''')')

  CALL PGM(QZDFMDB2) PARM(&CALL)

Answer 2

可能有 2 个选项：

在 CL 程序中创建临时源成员。 使用提供的参数构造 SQL 语句来执行存储过程并将此源代码写入临时成员。 然后使用生成的成员作为参数添加对 RUNSQLSTM 的调用。

第二个选择是不创建 CL 程序，而是使用 RPG/COBOL。 通过使用嵌入式 SQL，可以使用参数执行存储过程。 它们的值应该从命令传递到程序。

Answer 3

有一次，有人写了一个命令，我用过。 我找不到该参考了，但我还有另外两个选择：

1. This文章使用 REXX
2. 本文使用 RPG

他们两者都包含使命令正常工作所需的源代码。

Answer 4

从 CLLE 调用 StoredProcedure 的一种方法是：
RUNSQL SQL('调用 MYPRCSQL')

Answer 5

QCMDEXC 可能是您正在寻找的命令。