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
