Here is a simple Listcat command that does an Outtrap, and then writes it
to a file that is browsed...you could easily just do a bunch of "say"
commands with this, too.
/*========================>> REXX <<==============================*/
/* LCAT: Browse output from 'LISTCAT ENT(dsn) ALL' command */
/*====================================================================*/
Trace ?i;
Parse Upper ARG dsn parm
x = OutTrap('LISTC_Output.',1500) /* up to 1500 lines */
If parm = '' Then parm = 'ALL'
Address TSO "LISTC ENT("DSN")" parm
listc_rc = rc
x = OutTrap('Off')
outds = "'"Userid()".TSO.LISTC'" /* output dataset name */
If Sysdsn(outds) = "OK"
Then alloc_info = "SHR REUSE"
Else alloc_info = "NEW UNIT(3390) SPACE(1 1) TRACKS",
"RECFM(F B) LRECL(121) DSORG(PS)",
"REUSE"
"ALLOC F(TSOLISTC) DATASET("outds")" alloc_info
"EXECIO * DISKW TSOLISTC (STEM LISTC_Output. OPEN FINIS "
Address ISPEXEC "ISPEXEC BROWSE DATASET("outds")"
Return listc_rc
On Wed, Nov 2, 2016 at 3:13 PM, Dyck, Lionel B. (TRA) <[email protected]>
wrote:
> Does anyone know of any TSO command (or REXX function) that will let me
> send text to the screen that can be captured by OUTTRAP?
>
> What I'm trying to do is have a rexx dialog that does something like this
> (very simplified):
>
> Call outtrap 't.'
> Write 'starting xyz'
> 'xyz' <=== tso command
> Call outtrap 'off'
> Do I = 1 to t.0;say t.i;end
>
>
> --------------------------------------------------------------------------
> Lionel B. Dyck (TRA Contractor)
> Mainframe Systems Programmer <AITC Mainframe Support>
> Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
> VA OI&T Service Delivery & Engineering
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Thank you and best regards,
*Billy Ashton*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
