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
