I like Sean's reply better, but here is a simple exec that can do it:
/* REXX program to trap TSO cmd output */
ADDRESS TSO
Arg cmd
x = OUTTRAP(cmd.)
'ALLOC DD(LIST) UNIT(VIO) SPACE(1) CYLINDERS REUSE
RECFM (F B) LRECL (80) BLKSIZE (0)'
''cmd''
'EXECIO * DISKW LIST (STEM cmd. FINIS)'
x = OUTTRAP('OFF')
ADDRESS ISPEXEC
'LMINIT DATAID(LASTID) DDNAME(LIST)'
'BROWSE DATAID('lastid')'
'LMFREE DATAID('lastid')'
ADDRESS TSO
'FREE DD(LIST)'
LEGAL DISCLAIMER
The information transmitted is intended solely for the individual or entity to
which it is addressed and may contain confidential and/or privileged material.
Any review, retransmission, dissemination or other use of or taking action in
reliance upon this information by persons or entities other than the intended
recipient is prohibited. If you have received this email in error please
contact the sender and delete the material from any computer.
Seeing Beyond Money is a service mark of SunTrust Banks, Inc.
[ST:XCL]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
