I think this is still valid. But you would need to check with CA Broadcom to be certain
If you have any CA products like, CA1, PDSMAN, DISK, ALLOCATE, and so forth Then you should be able to download and install GMI which could also be called Vantage Lite or SRM Lite It will do what you want. Or if you have SRM/Vantage, it will do what you want. So is the problem you are trying to solve preventing JCL errors due to datasets coded in JCL but not existing? Or is this due to using NON SMS Volumes where there is only a catalog entry and not a physical dataset? Lizette > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On Behalf Of > esmie moo > Sent: Thursday, August 15, 2019 5:01 AM > To: [email protected] > Subject: Re: WEEDING OUT DSNS WITH CATALOG ENTRIES ONLY > > Ricks, > Thanks for the example. I will try it out. > On Wednesday, August 14, 2019, 12:10:39 a.m. GMT-4, Rick J. Valles > <[email protected]> wrote: > > 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 <[email protected]> > wrote: > > > > On Tue, Aug 13, 2019 at 9:37 AM esmie moo < > > [email protected]> 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 [email protected] with the message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
