Lionel,
I don't know if this helps, but the following does, to a degree, what you want:
-------------------------------------------------------
/* rexx */
if arg(1) \= "R" then do
rc = outtrap("said.")
call tsttrap "R"
if said.0 > 0 then do
say "Captured "SAY" output:"
do said# = 1 to said.0
say right(said#,2)":" "|"said.said#"|"
end
end
rc = outtrap("OFF")
end
else do
say "Line 1"
say "line 2"
say "Line 2"
end
exit
------------------------------------------------------
Captured SAY output:
1: |Line 1|
2: |line 2|
3: |Line 2|
***
Chuck
Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology
Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com
WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this
e-mail or the information herein by anyone other than the intended recipient,
or an employee or agent of a system responsible for delivering the message to
the intended recipient, is prohibited. If you are not the intended recipient,
please inform the sender and delete all copies.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Dyck, Lionel B. (TRA)
Sent: Thursday, November 03, 2016 7:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Command to issue message to Outtrap
Thank you to all who replied - push and queue don't work. Tried those before
posting. It appears that there isn't a putline command/function that I can use
for this.
--------------------------------------------------------------------------
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
