John,
Yes. I am trying to find any dsns that exist in the catalog but don't exist on
the disk. I know that we have some ancient applications which refer to procs
that have dsns which are cataloged but do not exist on the disk.
On Wednesday, August 14, 2019, 12:35:39 a.m. GMT-4, 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
