"BATCHPGM" returns only RC=0. The WTO in question is informative data and not
an error message ("BATCHPGM" in this case is an ancient kind of "query" program
that WTO's its response).
I have given up on the idea of capturing the informative data from the existing
program and instead cloned "BATCHPGM" to write the data to a file where EXECIO
can retrieve it (using the SDSF Rexx API could have done it but it was much
easier to clone the program).
Problem solved (though not the way I would have preferred), moving on with the
rest of the task at hand.
Thanks for all the help from everyone.
Peter
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Dale R. Smith
Sent: Wednesday, May 10, 2023 1:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Can REXX OUTTRAP trap WTO's?
>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
>behalf of Farley, Peter
>[0000031df298a9da-dmarc-requ...@listserv.ua.edu]
>Sent: Tuesday, May 9, 2023 1:30 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Can REXX OUTTRAP trap WTO's?
>
>Cross-posted to IBM-MAIN and TSO-REXX lists.
>
>Is there any way for Rexx script to capture WTO output? This is a simple
>case, a one-line WTO, no multiline possible.
>
>I only recently found a need to do this, and my tests so far say "no it can't".
>
>/* Rexx */
>/* Capture WTO from BATCHPGM */
>xtrp = outtrap("zdsp.")
>address attchmvs "BATCHPGM"
>xtrp = outtrap("OFF")
>say "ZDSP.1="zdsp.1
>
>Execution result online in TSO:
>
>*** WTO OUTPUT FROM BATCHPGM ***
>ZDSP.1=ZDSP.1
>
>Peter
Since you can't trap the WTO Message, does "BATCHPGM" by any chance set a
non-zero Return Code if the WTO is issued? If not, could it be modified to do
so without affecting anything else? That way you could just test the Return
Code from "BATCHPGM" in your REXX code and do what needs to be done.
--
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
