ADRDSSU if you have it.
Dump and delete the uncataloged datasets.
Later you can RESTORE with a new HLQ if desired.
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=A
//DASD1 DD VOL=SER=MYVOL1,UNIT=SYSDA,DISP=OLD
//DASD2 DD VOL=SER=MYVOL2,UNIT=SYSDA,DISP=OLD
//TAPE DD UNIT=3480,VOL=SER=TAPE04,LABEL=(1,SL),
// DISP=(NEW,CATLG),DSN=USER3.BACKUP
//SYSIN DD *
DUMP DATASET(INCLUDE(**) -
BY((DSORG NE VSAM) -
(CATLG EQ NO))) -
LOGINDDNAME(DASD1,DASD2) -
OUTDDNAME(TAPE) -
DELETE PURGE
/*
On Tue, Feb 26, 2019 at 11:28 AM Tony Thigpen <t...@vse2pdf.com> wrote:
> I have inherited a system where nobody bothered to clean-up after
> themselves. If I do a DITTO VTOC of all the volumes, I can sometimes
> find 5 or 6 copies of the same dataset, some of which are SYSx.*.
>
> I would like to first rename all the uncataloged versions so I can
> eventually delete them.
>
> Does anybody know of a free tool that would help with this process?
>
> --
> Tony Thigpen
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
Wayne V. Bickerdike
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
