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
<0000026801af9474-dmarc-requ...@listserv.ua.edu> 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 <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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
