Hi, Thank you for your input. Using DFDSS like that would be an option. However, there are over eight thousand volumes in this system and that would be a lot of JOBs. I thought about submitting one JOB for each Storage Group but that would mean too many DD for most of the JOBs. Regards Jack
On Sun, 24 Jul 2022 at 22:48, Nigel Morton <[email protected]> wrote: > This is what I'd use, shown for a single volume: > > //UNCAT EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN' > //SYSPRINT DD SYSOUT=* > //SYSIN DD * > COPY - > DATASET( INCLUDE (**)) - > LOGINDYNAM(volser) - > BY (CATLG,EQ,NO) - > DELETE > /* > The parm setting lets you see what it would do if you unleash it. One > tool, standard, no need for own code. > > DCOLLECT won't cut it because it doesn't look at catalogs. > > On Sun, 24 Jul 2022 at 22:24, John McKown <[email protected]> > wrote: > > > Sorry, I should have double checked. It's been years since I've had to do > > it. And it's Sunday. Yes COPY DELETE is correct. > > > > On Sun, Jul 24, 2022 at 4:18 PM David Spiegel <[email protected]> > > wrote: > > > > > Hi John, > > > "...ADRDSSU MOVE..." There is no such verb. > > > Maybe you mean COPY ... DELETE? > > > > > > Regards, > > > David > > > > > > On 2022-07-24 17:03, John McKown wrote: > > > > ADRDSSU MOVE can scan volumes for uncatalogued datasets and MOVE the > > to a > > > > sequential dataset, or just DD DUMMY. It doesn't care what the DSN > is, > > > even > > > > if it has abnormal byte values in the name. > > > > > > > > On Sat, Jul 23, 2022, 14:29 David Staudacher <[email protected] > > > > > wrote: > > > > > > > >> Jack Zukt wrote: "I would prefer a more standard approach if I could > > > find > > > >> one". > > > >> > > > >> What you need is something that can dig out all the DSCBs from every > > > VTOC > > > >> of every online DASD device and sum these into a Data Set list. > > > >> I happen to have an Assembler program which does just that, if you'd > > > like > > > >> to try it out. > > > >> Assuming you have the required MACLIBs (SYS1.MACLIB and SYS1.MODGEN > or > > > >> SYS1.AMODGEN) it's very easy to Assemble and run it yourself. > > > >> Use a Catalog Search to find uncataloged data sets is of course > > useless > > > >> for obvious reasons. > > > >> My program outputs a record for each DSCB. These are then summed to > > > create > > > >> a report listing every Data Set on every online DASD device. > > > >> The report gives VOLSER, DSORG, RECFM, LRECL, BLKSIZE, # of Tracks, > % > > > >> Used, # of Extents, Create Date and Date Last Referenced. > > > >> It rivals DCOLLECT in what it can do but requires no special > > > >> Authorization. > > > >> A recent enhancement to calculate space utilization for PDSEs slowed > > it > > > >> down quite a bit, but otherwise it's *very* fast. > > > >> The report is also handy for contractors who want to quickly learn > the > > > >> "filescape" of any new site to which they're assigned. > > > >> Next enhancement I have in mind is to calculate total *available* > DASD > > > >> space, which *could* be very easy (or not). Just haven't gotten > around > > > to > > > >> figuring it out yet. > > > >> Let me know if you'd like a copy of the source I have so far, and > JCL > > to > > > >> run it, and I'll send it to you. > > > >> So far, it's worked everywhere it's been tried. > > > >> If there are any cases where it *doesn't* work, that would be nice > to > > > know > > > >> too. > > > >> David Staudacher > > > >> LinkedIn Mainframe Groups Manager > > > >> => linkedin.com/groups/910927 ๐๐๐ข๐ง๐๐ซ๐๐ฆ๐ (๐๐๐๐๐, > > ๐๐ญ๐) > > > >> ๐๐ฑ๐ฉ๐๐ซ๐ญ๐ฌ > > > >> => linkedin.com/groups/2915689 ๐๐๐ข๐ง๐๐ซ๐๐ฆ๐ ๐๐ซ๐จ๐๐ฎ๐๐ญ๐ฌ > > > ๐๐ง๐ > > > >> ๐๐๐ซ๐ฏ๐ข๐๐๐ฌ > > > >> => linkedin.com/groups/12307358 ๐๐๐ข๐ง๐๐ซ๐๐ฆ๐ ๐๐จ๐๐ฌ / > > > >> ๐๐๐ซ๐๐๐ซ๐ฌ > > > >> => linkedin.com/groups/8979270 ๐๐๐ข๐ง๐๐ซ๐๐ฆ๐ > ๐๐ฌ๐ฌ๐๐ฆ๐๐ฅ๐๐ซ > > > >> ๐๐๐ฏ๐๐ฅ๐จ๐ฉ๐๐ซ๐ฌ > > > >> => linkedin.com/groups/155723 ๐๐ฒ๐ฌ๐ญ๐๐ฆ ๐ณ ๐๐๐ฏ๐จ๐๐๐ญ๐๐ฌ > > > >> => linkedin.com/groups/2085030 ๐ณ/๐๐๐ > > > >> > > > >> > ---------------------------------------------------------------------- > > > >> 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 > > > > > > ---------------------------------------------------------------------- > > > 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 > > > > ---------------------------------------------------------------------- > 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
