DB2 System Runtime Table 检索最后执行的 SQL 语句

Question

大型机中是否有 DB2 系统表 - 批处理运行时日志？在 DB2 for i 系列中，有一个表函数 QSYS2.GET_JOB_INFO() 在运行时返回作业信息，包括状态（活动/完成），最重要的是 V_SQL_STATEMENT_TEXT - 最后一次 SQL 运行的语句。

场景： 我想在 Cobol Batch Job 运行时检索最后执行的 SQL 语句。这样做的主要目的是确定在作业运行时是否发出了 COMMIT 或 ROLLBACK。目的是创建一个小程序，我们称之为“控制器”，在发出 Commit 或 Commit interval 甚至 Rollback 时监控 DB2。更具体地说，这个“控制器”将充当迷你操作系统，并具有触发主程序的能力。

例如，如果主程序发出 ROLLBACK，“控制器程序”可以发出特定的业务逻辑并控制更新。可以在 T1 和 T2 类型的 DB2 连接中进行更新。通过这种方式，更新是在批处理客户端或在 EXCI 中运行的 Java 端完成的（EXCI 使用 RRS 恢复）。

Answer 1

快速查看IBM Documentation for DB2 似乎表明“否”。

但是，虽然与您的情况不完全匹配，但我们过去常常这样做...

创建一个表，将其命名为APP_RESTART_DATA，并使用列来唯一标识您的流程的执行。我们使用了PROC_NAME 和STEP_NAME，因为我们仅限于批处理作业。还有一个KEY 列和任何其他您可能会发现在重新启动情况下有用的元数据。有些人存储的是记录号而不是实际的键值。

在您的控制器程序中，首先使用您的唯一标识符执行SELECT，以确定您是否处于重新启动模式。如果你得到一个为 0 的 SQLCODE，那么你就处于重新启动模式，并且将检索到最后一个成功执行 COMMIT 的 KEY。在这些情况下，您必须在输入数据中找到该键，然后立即开始对数据进行正常处理。如果您的SQLCODE 为 100，则说明您未处于重新启动模式；在这些情况下，您可以在输入数据的开头开始正常处理。

当您处理输入数据并到达COMMIT 点时，UPDATE 您的APP_RESTART_DATA 表也带有新的KEY。然后COMMIT。我们的COMMIT 点也由一个参数决定，该参数指示在COMMITs 之间要处理多少逻辑工作单元。如果有必要在主要班次期间运行通常在班外运行的批处理过程，我们可以减小此参数。

当您完成输入数据的处理后，DELETEAPP_RESTART_DATA 表中您的进程所在的行。

捕捉ROLLBACK 可能很棘手。您可以在APP_RESTART_DATA 中将您的行标记为在代码中完成时执行了ROLLBACK，但如果在异常结束情况下隐式完成，您可能会发现自己通过语言环境CEEHDLR 可调用服务注册了条件处理程序，因此您得到控件并且可以指示发生了ROLLBACK。