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
