On Wed, 24 Jul 2019 17:23:36 +0000, Richard Kuebbing wrote: >Routine only uses the TIOT entry to see if DD is present. It does that to >avoid OPEN message of missing DD.
I have used GETDSAB for this. It is quite simple:
GETDSAB DDNAME==CL8'ddname',DSABPTR=SAVEDSAB,
LOC=ANY,MF=(E,GETDSAB_PL)
...
SAVEDSAB DS A
GETDSAB PLISTVER=MAX,MF=(L,GETDSAB_PL)
If the DD statement is found, R15 will contain 0.
I see others have suggested DEVTYPE. I believe that will work as well.
--
Tom Marchant
