Article 153427 of comp.os.vms:
>slow, but gets the job done. (It prints out each level of the backtrace, so
>there is something to watch while waiting. :)

Aargh! Bugs.

Also note, it does not work well on volume sets.
To fix that, would need to enter the list of all devices in the volume set,
and parse for the volume number in the FID.

************ old
$	name_disk = f$parse ( name_disk ,,, "DEVICE" , "NO_CONCEAL" )
$	if name_disk .eqs. ""
****** new
$	if name_disk .eqs. name_disk - ":" then -
		name_disk = name_disk + ":"
$	name_disk = f$parse ( name_disk ,,, "DEVICE" , "NO_CONCEAL" )
$	if name_disk .eqs. ""
************

Without the colon will always look on your SET DEFAULT disk.

************ old
$	say name_disk , text_found
****** new
$	if text_found .eqs. text_found - "]" then -
		text_found = text_found + "]"
$	say name_disk , text_found
************

Just pretties the printout for directory files.

Number of difference sections found: 2
Number of difference records found: 7


