Is it? On Thu, 22 Aug 2024 11:54:12 +0000 Seymour J Metz <[email protected]> wrote:
:>Why? Either BPXWDYN or LISTDSI is simpler. :> :>-- :>Shmuel (Seymour J.) Metz :>http://mason.gmu.edu/~smetz3 :>??? ?????????? ??? :>?????? ??????????? ???? ?????????? :> :> :> :>________________________________________ :>From: IBM Mainframe Discussion List <[email protected]> on behalf of Binyamin Dissen <[email protected]> :>Sent: Thursday, August 22, 2024 12:58 AM :>To: [email protected] :>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 :><[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
