如何从SQL存储过程调用外部存储过程并处理提交控制

Question

我试图通过传递两个参数从 Sql 存储过程调用外部存储过程。其中一个参数预计会返回一个字符串值，当该值到达时，我需要停止将数据提交到任何文件中。

解释一下情况 - SP1（SQL存储过程）将调用SP2（外部存储过程），SP2将调用RPGLE程序PGM1，后者将调用另一个RPGLE程序PGM2。

现在我的任务是处理 SP1 中 PGM2 中使用的 File1 和 File 2 的提交控制。如果在任何时候更新 File1 并且 File2 在更新任何记录时出错，则文件 1 中的数据也应该回滚。但这种回滚应该发生在 SP1 中。

到目前为止，我已尝试将此问题分为两部分 -

PARTA - 如何从 SQL 存储过程调用外部存储过程。

PARTB - 本质上如何处理SQL存储过程中的承诺，如果PGM2返回错误数据应该回滚。

下面是到目前为止我尝试过的代码片段。但运气不好。

CREATE OR REPLACE PROCEDURE MYLIB.SP1 (    
                    IN PRINPUT CHAR(1200) ,       
                    INOUT PRERR CHAR(50) )        
SPECIFIC MYLIB.SP1                         
BEGIN                                             
  DECLARE SQLSTATE CHAR(5) DEFAULT ' ';           
  DECLARE SQLCODE INTEGER DEFAULT 0;              
    CALL MYLIB.SP2(PRINPUT, PRERR);      
      IF SQLCODE = 0 THEN                         
        COMMIT;                                   
      ENDIF;                                      
END 

任何建议/指导表示赞赏。

Answer 1

试试这个我的朋友：
关于 SP1 的

BEGIN                                             
  DECLARE SQLSTATE CHAR(5) DEFAULT ' ';           
  DECLARE SQLCODE INTEGER DEFAULT 0;    
    SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;         
    CALL MYLIB.SP2(PRINPUT, PRERR);      
      IF SQLCODE = 0 THEN                         
        COMMIT;
      ELSE 
        ROLLBACK;                          
      ENDIF;                                      
END 

答案：

PARTA：如果 Ext Stored Proc 存在，按照您的调用方式，它是正确的。

PARTB：设置的事务范围涵盖从发出时刻到执行提交或回滚的所有更改的行。请记住这一点，每个 SQL 存储过程都在 *caller actgrp 上运行，因此，您需要检查您的 RPG 程序是否也在 *caller 上运行。

最后，我上次测试时，恐龙仍然在地球上行走，对 SQL 存储过程的提交范围限定了在 RPG 内调用的 RPG 程序所做的更改，但 RPG STRCMTCTL 没有获取在 RPG 内调用的 SQL 存储过程进行的更改。

玩得开心！

statements-set-transaction

control-example-using-transaction-logging-file-start-application

定义-示例-jobs-commitment-definitions

Answer 2

谢谢@Jairo，我已经成功了。

您的解决方案是正确的并且有效，唯一的挑战是 SP2 没有任何导致问题的 SQL 语句，我将 SP2 中的语句转换为 SQL 语句，并且它工作得很好。