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
