Glad to help. C- 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:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TSO Command to issue message to Outtrap It appears the recursive nature of how you did it solves the problem. Thank you -------------------------------------------------------------------------- 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 -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hardee, Chuck Sent: Thursday, November 03, 2016 6:22 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [EXTERNAL] Re: TSO Command to issue message to Outtrap 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 ---------------------------------------------------------------------- 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