From:	SMTP%"vandenheuvel@eps.enet.dec.com" 23-NOV-1994 12:12:48.14
To:	EVERHART
CC:	
Subj:	Re: Directory moved into itself -- Help!

From: vandenheuvel@eps.enet.dec.com (Hein RMS van den Heuvel)
X-Newsgroups: comp.os.vms
Subject: Re: Directory moved into itself -- Help!
Date: 23 NOV 94 10:09:32
Organization: Digital Equipment Corporation
Lines: 33
Message-ID: <3avmnk$gbr@jac.zko.dec.com>
NNTP-Posting-Host: AMUZED
To: Info-VAX@Mvb.Saic.Com
X-Gateway-Source-Info: USENET


In article <3at5ll$dai@linus.mitre.org>, lewis@aera2.mitre.org (Keith Lewis) writes...
 :
>unlinked the directory from its parent and linked it to itself (I'm assuming
 :
>So can anybody suggest any utilities to help solve this problem?  Perhaps
>one which scans by file-ID and could be modified to list all directories
>which contain themselves...

At US 94 fall Decus the VMS T6.2 freeware CD will be made available 
with a rather generous collection of rather useful software.

Specifically you'll find a tool there called DFU.
Its VERIFY diskname: will quickly identify the broken & lost directories
with "backlink points to itself". Its VERIFY/FIX will correctly fix it.
It also has an UNDELETE (best effort ofcourse) and much more. Comes to 
you with the compliment of a Dutch collegae and able hacker Tom Dorland.

Without any tools, I would probably just use
	$SEARCH/NUM/FORM=NONE disk:[000000]INDEXF.SYS  badboy.dir
Given the disk cluster size and the search output for the 
record number NN you can calculate the file id. 
Or just:
	$DUMP/BLOCK=(STA=nn,COUNT=1)  disk:[000000]INDEXF.SYS 
In the header dump look for the word at byte 8 for the id, 10 for sequence.
Now a SMOP (Small Matter Of Programming) to call SYS$ENTER to bring
the directory back to life.


Hope this helps,		+--------------------------------------+
Hein van den Heuvel, Digital.	| All opinions expressed are mine, and |
  "Makers of VMS and other	| may not reflect those of my employer |
   fine Operating Systems."	+--------------------------------------+