IBM i Access Client Solutions (ACS) 运行 SQL 脚本 - 打印变量

Question

是否有一种简单的方法可以在 IBM i ACS Run SQL Script 屏幕的输出上显示/打印变量？

为了在编写脚本时进行快速检查，能够显示变量的内容将非常有帮助。例如。在下面的脚本中，我想知道“my_counter”的值。

BEGIN

DECLARE my_counter INT;

SET my_counter = my_counter + (SELECT count(*) FROM QSYS2.OBJECT_LOCK_INFO WHERE SYSTEM_OBJECT_SCHEMA = 'ABC' AND SYSTEM_OBJECT_NAME = 'DEF' AND OBJECT_TYPE = '*FILE');
SET my_counter = my_counter + (SELECT count(*) FROM QSYS2.OBJECT_LOCK_INFO WHERE SYSTEM_OBJECT_SCHEMA = 'ABC' AND SYSTEM_OBJECT_NAME = 'XYZ' AND OBJECT_TYPE = '*FILE');

PRINT my_counter; --> I want to print the content of variable my_counter but PRINT is not a valid keyword (all other valid keywords have a blue color, this one does not).

END;

您可能还注意到我正在做“my_counter = my_counter + ...”，我尝试使用“my_counter += ...”但没有这样的事情。有更好的方法吗？

Answer 1

你好，科恩斯，

我就是这样做的：

create or replace variable @my_Counter integer default 0;

SET @my_counter = @my_counter + (SELECT count(*) FROM QSYS2.OBJECT_LOCK_INFO WHERE SYSTEM_OBJECT_SCHEMA = 'ABC' AND SYSTEM_OBJECT_NAME = 'ABC' AND OBJECT_TYPE = '*FILE');
SET @my_counter = @my_counter + (SELECT count(*) FROM QSYS2.OBJECT_LOCK_INFO WHERE SYSTEM_OBJECT_SCHEMA = 'XYZ' AND SYSTEM_OBJECT_NAME = 'XYZ' AND OBJECT_TYPE = '*FILE');

select @my_Counter from sysibm.sysdummy1;

drop variable @my_Counter;

变量是位于库中的 CL SRVPGM，如果您有问题，请在创建和使用变量之前指定库（abc.@my_Counter 或使用 SET SCHEMA 和 SET PATH 命令。

按照惯例，我在变量之前使用@。

要显示变量，请使用 sysibm.sysdummy1 文件。