rpgle - 确定承诺控制是否正在运行

Question

我正在尝试有条件地使用承诺控制。RPG 允许在它打开的文件上使用条件 COMMIT 关键字。由于我的一个程序是从触发器中调用的，因此我希望更高级别的逻辑来控制提交范围。这意味着，在触发器中，我需要确定提交控制是否有效，如果有效，则将可选参数传递给被调用程序。

有谁知道如何判断承诺控制当前是在 RPG 还是 DB2400 中运行？

Answer 1

QTNRCMTI API 将告诉您当前的提交控制状态。