I've never used DEVTYPE but it is starting to look appealing. Everything can be above the line. Looks pretty simple.
Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Rob Scott Sent: Tuesday, February 19, 2019 7:56 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Any easier way to determine if DD is dummy than GETDSAB? 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
