從DB2 Command獲取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 put。 輸出放在您提供的變量（通常是干變量）中。 （某些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是一個非常強大的功能。