3

I would like to use Rexx capture the output from the following commands:

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

Is there any way to obtain the name of tables output by the above commands that are displayed into a variable or some other construct so the data can be manipulated programmatically?

Regards

Hogstrom
  • 3,581
  • 2
  • 9
  • 25

1 Answers1

6

The OUTTRAP function should trap output from the DSN command. OUTTRAP is designed to TRAP the OUTput of most TSO commands. Output is placed in a variable (normally a stem variable) that you supply. (Certain TSO commands cannot be trapped; this is discussed elsewhere in the TSO/E REXX Reference.)

Taking your code as supplied above, we can cobble together this:

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 */

OUTTRAP is a very powerful function when writing scripts in TSO/E REXX.

zarchasmpgmr
  • 1,422
  • 10
  • 21