How about
was1=outtrap("trash.")
was2=trapmsg("on")
"EXECIO 5 DISKR Q1Q2Q3 (FINIS"
x=trapmsg(was2)
x=outtrap(was1)
if rc = 20 /*ddname not found, though trash.1 can be examined */
Let EXECIO do the work
On Wed, 21 Aug 2024 19:28:12 +0000 Billy Ashton
<[email protected]> wrote:
:>Hi all, I have a simple question, but my searches are eluding me (maybe
:>I don't know what to ask for).
:>
:>In my Rexx program, before I try to do an EXECIO against it, I want to
:>do something to make sure the DD statement is there and control the
:>error. I tried ListDSI, but that only works on DASD files and not on
:>instream (DD *) data.
:>
:>How can I test that I have the ABCXYZ DD statement allocated, if it is
:>DD * or DD DATA? Likewise, how can I test for DD JKLMNO that is
:>allocated to SYSOUT=* to be sure it is there (as I am writing via EXECIO
:>to it)?
:>
:>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
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
