Why? Either BPXWDYN or LISTDSI is simpler.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר
________________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of
Binyamin Dissen <00000662573e2c3a-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, August 22, 2024 12:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Simple Rexx question
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
<00000665bda14df5-dmarc-requ...@listserv.ua.edu> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://secure-web.cisco.com/1fTNnsHZBpFAOwLB8MNIUnAL3utDNYYje9SXCSOKQzqWZQ8ViL6Ao2-ziiIjLyzoMSqhUqLnIa170KLE-7BVHVPdJ4olhlCc9r5fx27IJbzvPA4i45pYUbXd_vWD8FxgRfodrnz1huv3FpbbZA0VKKMp93J4IWkAafn_mypwOgft_5fOaFxa95zgC4EeVT8dFkkcWGX2KYHobAV9G-s3blDvQXhAQ5Ma6CUBbbVB8TzWIj2VDsjvqsAApZHnwJJWdQOwyIszMbQUas_wQtg_JLkCi0WYOR8taNqHzf9NkG3hQwU-uneB6nvAvLBYQfUeS9KIHbLl-Rx_G9yEvfPjxBj3jyRhOkj10R8IETp2qMB89iLuVc9G4imhgpbiKPMK4Mv17KS9f6JDwRMnS1qeLiw/http%3A%2F%2Fwww.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
----------------------------------------------------------------------
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
