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://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 [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
