db2 - 从 DB2 命令获取 REXX 中的输出

Question

我想使用 Rexx 捕获以下命令的输出:

QUEUE "-DIS DATABASE(*) SPACENAM(*) RESTRICT(CHKP,COPY)"
QUEUE "END"                                             
ADDRESS TSO "DSN SYSTEM(DB2D)"

是否有任何方法可以获取上述命令输出的表名称，并将其显示到变量或其他构造中，以便可以通过编程方式操作数据？

问候

Answer 1

OUTTRAP函数应该捕获 DSN 命令的输出。 OUTTRAP 旨在TRAP大多数TSO 命令的OUT输入。输出放置在您提供的变量(通常是茎变量)中。 (某些 TSO 命令无法被捕获；这在 TSO/E REXX 引用 的其他地方进行了讨论。)

根据上面提供的代码，我们可以将其拼凑在一起:

ORC = OUTTRAP('O.')             /* preserve prior setting of OUTTRAP */
QUEUE "-DIS DATABASE(*) SPACENAM(*) RESTRICT(CHKP,COPY)"
QUEUE "END"                                             
ADDRESS TSO "DSN SYSTEM(DB2D)"
CALL OUTTRAP ORC                /* restore OUTTRAP setting */
DO #O = 1 TO O.0                /* The 0 entry by convention has the number of records */
  /* You can PARSE, analyze, or do whatever here */
  SAY "O."'#O "='"O.#O"'"         /* example */
END #O                          /* end the loop */

在 TSO/E REXX 中编写脚本时，OUTTRAP 是一个非常强大的功能。