This is what we use (from my friend, John C. Miller @ jmit.com <http://jmit.com/>):
//S1 EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN' //SYSPRINT DD SYSOUT=* //TAPE DD DUMMY //SYSIN DD * DUMP DS(INC(**) BY(CATLG EQ NO)) OUTDD(TAPE) LOGINDYNAM(SYC500) r > On Aug 13, 2019, at 9:00 AM, John McKown <john.archie.mck...@gmail.com> wrote: > > On Tue, Aug 13, 2019 at 9:37 AM esmie moo < > 0000012780d99c7b-dmarc-requ...@listserv.ua.edu> wrote: > >> Gentle Readers, >> Is there a way of weeding out dsns with cataloged entries only. I tried >> DFDSS logical backup with NORUN option but it did not give me the desired >> results. I coded the VOLSER of the disk to no avail. I am doing this >> exercise in preparation of removing old dasd but experiences of the past >> jobs failed because the dsn is not accessible >> Any suggestions would be helpful and welcomed.Here is an example of my jcl: >> //NORUN EXEC PGM=ADRDSSU,REGION=4096K,PARM='TYPRUN=NORUN' >> //*DFDSS1 EXEC PGM=ADRDSSU,REGION=4096K,TIME=1440 >> //DASD1 DD UNIT=SYSALLDA,VOL=SER=PROD91,DISP=SHR >> //TAPE1 DD DSN=SYS2.CLOGR1.CLOGR2.LOGICAL,DISP=(,CATLG,DELETE), // >> UNIT=3490,TRTCH=COMP,LABEL=(1,SL) //SYSPRINT >> DD SYSOUT=* //SYSMAP DD >> SYSOUT=* //SYSIN DD * >> DUMP >> DATASET(INCLUDE(SYS2.ORDMS.FILES.PROD)) - SPHERE >> - >> SELECTMULTI(FIRST) - >> LOGINDDNAME(DASD1) - >> OUTDD(TAPE1) OPT(4) ALLDATA(*) ALLEXCP - >> TOL(ENQF) /* >> >> >> > Do you mean DSNs in a catalog that don't exist on some volume (I am > guessing DASD in particular)? ADRDSSU won't address that. T-REX has a SCRUB > command which will do it. We use that at disaster recovery. I am not aware > of any z/OS "built in" facility to do that. > > -- > A sine curve goes off to infinity, or at least the end of the blackboard. > -- Prof. Steiner > > Maranatha! <>< > John McKown > > ---------------------------------------------------------------------- > 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
