While these may not help you if you format your directory source disk, you could modify it to do some copies to other disks instead of or in addition to the renames. These were written in the 80's and I'm sure a "plumber" could make them pretty.
Bob. ============================================ /** BSAVE XEDIT - make packed backup copies of whatever file you are working on **/ trace 'o' 'transfer fname ftype fmode' pull fn ft fm 'cp set emsg off' 'command erase 'fn 'bk4-'||ft fm 'command rename 'fn 'bk3-'||ft fm fn 'bk4-'||ft fm 'command rename 'fn 'bk2-'||ft fm fn 'bk3-'||ft fm 'command rename 'fn 'bk1-'||ft fm fn 'bk2-'||ft fm 'command rename 'fn ft fm fn 'bk1-'||ft fm retcode = rc if retcode = 0 then do 'save' 'exec pack 'fn' bk1-'||ft fm end 'cp set emsg on' exit retcode ============================================ /** PACK EXEC - pack a file **/ trace 'o' parse upper arg fn ft fm fm = left(strip(fm),1) if fm ^= "A" then do 'q disk 'fm' (lifo' pull . . . stat . 'desbuf' end if stat = "R/W" then tofm = fm else tofm = "A" 'copyfile 'fn ft fm' $t$e$m$p$ file 'tofm' ( pack replace olddate' if rc ^= 0 then exit if stat = "R/W" | fm = "A" then 'erase 'fn ft fm 'rename $t$e$m$p$ file 'tofm fn ft tofm exit ============================================ -----Original Message----- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Rob van der Heij Sent: Tuesday, March 11, 2008 2:17 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: listing active user directory On Tue, Mar 11, 2008 at 1:59 AM, Alan Altmark <[EMAIL PROTECTED]> wrote: > While trying to reconstruct a source directory from an object > directory might seem logical, far too much information is "lost in translation". Obviously it would be really easy to write a wrapper around DIRECTXA that also runs DIRMAP (or what it is called these days) and extra sanity checks *before* bringing the directory online. Sometimes it makes sense to also detect the change to mini disks that are currently linked by logged-on users (typically for something you need to do after the new directory is online). While you can keep a lot in GLOBALV, it might be nice if DIRECTXA would place de FSTAT of the source directory in the object in a way that CP can tell it us. If you also keep your set of copies, it would identify which source is currently online. PS I also think it would be very practical if we would have the userid and device address of mini disks in the VTOC of the real volume. For people doing physical backup it would be more reliable than a copy of the directory. But I don't want to think about how complicated this will make DIRECTXA. Rob This electronic transmission and any documents accompanying this electronic transmission contain confidential information belonging to the sender. This information may be legally privileged. The information is intended only for the use of the individual or entity named above. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on or regarding the contents of this electronically transmitted information is strictly prohibited.