Why don't youb simply get the dsname as parm to your exec and perform dynamic allocation if a dsname exist in the parm field?
ITschak בתאריך יום ג׳, 19 בפבר׳ 2019, 17:57, מאת Rob Scott < rsc...@rocketsoftware.com>: > DEVTYPE and look at the UCBTYPE in the first word > > Eg : > > LAE R2,=CL8'MYDD' > DEVTYPE (R2),WA_DEVWORDS IS DDname present ? > IF (LTR,R15,R15,Z)Found DD > SELECT CLC,WA_DEVWORD_1,EQ > WHEN (=X'00000000')Dummy > WHEN (=X'00000101')TSO Terminal > WHEN (=X'00000102')SYSIN/SYSOUT > WHEN (=X'00000103')Unix file > Etc ... > ENDSEL > ENDIF > > WA_DEVWORDSDS0D > WA_DEVWORDS_1DSF > WA_DEVWORDS_2DSF > > -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf > Of Charles Mills > Sent: Tuesday, February 19, 2019 3:20 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Any easier way to determine if DD is dummy than GETDSAB? > > I've got a requirement to determine whether a DD is allocated DUMMY. I > know how to find the TIOT, get the JFCB with SWAREQ, check for 'NULLFILE' > and loop through all of the JFCB chain. Is there any easier way? That's a > lot of complexity for a simple question! > > Why? I'm trying to avoid an S013-64 on a BPAM file if the user does not > supply a DSN to a PROC. I'm defaulting the DSN to NULLFILE. I'd like to be > able to determine that from my program. > > The program is in IBM C but I can readily call out to assembler. The OPEN > for the BPAM DCB is in assembler, not using the C library. > > Thanks! > > Charles > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ================================ > Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA > 02451 ■ Main Office Toll Free Number: +1 855.577.4323 > Contact Customer Support: > https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport > Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - > http://www.rocketsoftware.com/manage-your-email-preferences > Privacy Policy - > http://www.rocketsoftware.com/company/legal/privacy-policy > ================================ > > This communication and any attachments may contain confidential > information of Rocket Software, Inc. All unauthorized use, disclosure or > distribution is prohibited. If you are not the intended recipient, please > notify Rocket Software immediately and destroy all copies of this > communication. Thank you. > > ---------------------------------------------------------------------- > 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
