Esmie,

I misunderstood your need for a listing of data sets in a catalog, but not on 
disk.


This DFDSS job lists data sets found in a VTOC, but not catalogued.


r

On August 15, 2019 at 6:01 AM, esmie moo 
<0000012780d99c7b-dmarc-requ...@listserv.ua.edu> wrote:


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


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to