The LIST subcommand of EDIT.
This will trap and display "Hello!" and "Goodbye!".
/* rexx */
call outtrap('t.')
push "end nosave"
push "list * 2"
push "top"
push "unnum"
push "20 Goodbye!"
push "10 Hello!"
"edit temp text new emode"
call outtrap 'off'
do i = 1 to t.0;say t.i;end
As used above, EDIT will not read data set temp.text if it exists, and will not
create or write to it.
You could also use EDIT to list some or all of an existing data set.
Bill
On Wed, 2 Nov 2016 14:13:15 -0500, Dyck, Lionel B. 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
