If you have BMC's, formally Innovation Data Processing, FDREPORT you can easily do this.
//REPORT2 EXEC PGM=FDREPORT //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR //SYSMAP DD SYSOUT=* //SUMS DD SYSOUT=* //SYSIN DD * DEFAULT DATEFORMAT=YYDDD,HEADINGS=YES,SUMDDNAME=SUMS REPORT FIELD=(DSN,VOL,SIZEINFO,DATES,CATALOG,CATVOL,SMSCLASS,SMSFLAGS) XEXCLUDE XDSN=SYS1.VTOCIX.** XSELECT CATALOG=(NO,ERR),XDSN=** PUNCH FDRLIB=MASK PRINT DISABLE=(SELTERR,RPTDUPDSNCHK) Sent with Proton Mail secure email. ------- Original Message ------- On Friday, July 22nd, 2022 at 12:05 PM, Jack Zukt <jzuk...@gmail.com> wrote: > Hello again, > Mike, when I first answered a while ago, I forgot to thank you for your > suggestion but, at present, there is no overture to invest on vendor tools. > Thank you any way. > > Kolosu, > I have tried DFDSS as you suggested. However, it is not working. > If I run it like this: > > DUMP DATASET(INCLUDE() - > EXCLUDE(SYS1.) - > BY((REFDT,LE,,-90) - > (DSORG NE VSAM) - > (CATLG EQ NO))) - > LOGINDDNAME(DASD1) - > OUTDDNAME(WHOOOPS) > > DASD1 being a DD for a volume, it works. But if I run it like this: > > DUMP DATASET(INCLUDE() - > EXCLUDE(SYS1.) - > BY((REFDT,LE,,-90) - > (DSORG NE VSAM) - > (CATLG EQ NO))) - > OUTDDNAME(WHOOOPS) > > it fails with ADR140E (001)-RI03 (05), INVALID 'BY' CRITERIA > Jack > > On Fri, 22 Jul 2022 at 16:40, Mike Shaw techsupp...@quickref.com wrote: > > > Michael, > > > > Look at member QWDSLIST in the MVS/QuickRef JCL library. Comments at top of > > member will provide guidance and sort criteria help. Volser masking is > > supported. > > > > Mike Shaw > > MVS/QuickRef Support Group > > > > On Fri, Jul 22, 2022, 11:19 AM Michael Watkins < > > 0000032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote: > > > > > The installation where I'm employed has MVS/QuickRef installed, but we do > > > not currently use it to find uncataloged datasets. > > > > > > Can you provide a sample of the batch job using MVS/Quickref to find all > > > uncataloged datasets? Preferably one that would employ a mask for volumes > > > to exclude, since temporary datasets, restricted to one pool where I > > > work, > > > are not cataloged by design. > > > > > > -----Original Message----- > > > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf > > > Of Mike Shaw > > > Sent: Friday, July 22, 2022 10:11 AM > > > To: IBM-MAIN@LISTSERV.UA.EDU > > > Subject: Re: Finding uncatalogued datasets > > > > > > CAUTION: This email originated from outside of the Texas Comptroller's > > > email system. > > > DO NOT click links or open attachments unless you expect them from the > > > sender and know the content is safe. > > > > > > Jack, > > > > > > MVS/QuickRef will give you a list of the uncataloged data sets across all > > > your online DASD volumes, with one batch job, and you don't need to code > > > any DD statements. > > > > > > Mike Shaw > > > MVS/QuickRef Support Group > > > Chicago-Soft, Ltd. > > > > > > On Fri, Jul 22, 2022, 10:00 AM Jack Zukt jzuk...@gmail.com wrote: > > > > > > > Hi all, > > > > As a byproduct of what I am working now, I have found out a few > > > > uncatalogued datasets. Now I would like to find out all the > > > > uncatalogued datasets that are forgotten on the hundred of volumes that > > > > are out there. > > > > Using ADRDDSU and (CATLG EQ NO) is not an option as it would need a > > > > DD > > > > for each VOLSER. I could write a rexx that would read the DCOLLECT > > > > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of > > > > VOLSERs but I really would like to use a more standard approach. I > > > > seem to remember, from another age, that FDRABR could do it. However > > > > Dr. Google has not been able to find me anything to that effect using > > > > only IBM tools. > > > > Do you have any ideas how to go about this? > > > > Your help will be, as always, greatly appreciated. > > > > Regards, > > > > Jack > > > > > > > > ---------------------------------------------------------------------- > > > > 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 > > > ---------------------------------------------------------------------- > 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
