I did a DCOLECT to list all volumes then added up the space totals in the records. Of course it is a multiple of K, so you are missing tiny amount of space on every volume.
On Sat, Jul 23, 2022 at 2:29 PM 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 -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
