topic Show Dev DSA/rebuild in Operating System - OpenVMS

Show Dev DSA/rebuild

VMS Support — Tue, 02 May 2006 09:37:37 GMT

Do we have a lexical function (F$GETDVI) for the following yet ? Running VMS 7.3-2.
Maybe a hidden one ?

VLCPR1 $show dev dsa/reb

Device Name Rebuild needed?

DSA0: No
DSA2: No
DSA3: No
DSA4: No
DSA5: No
DSA6: No
DSA7: No
DSA999: No
VLCPR1 $

Re: Show Dev DSA/rebuild

Karl Rohwedder — Tue, 02 May 2006 09:55:54 GMT

We use the following code snipped since eons:
$If F$Getdvi("''DISK'","SWL") Then $ Exit 1
$Open/Read/Error=CheckRebuild$99 'InLun
- 'Disk':[000000]Bitmap.Sys
$Read/Error=CheckRebuild$99 'InLun Scb
$Close/Error=CheckRebuild$99/NoLog 'InLun'
$Bits=F$cvui(28*8+1,2,scb)
$If Bits .Ne. 0
$ then rebuild isneeded...

regards Kalle

Re: Show Dev DSA/rebuild

Robert Brooks_1 — Tue, 02 May 2006 10:31:44 GMT

It is likely that there will never be a $GETDVI item code to determine whether or not a rebuild of the volume is needed.

In order to determine that, we need to do I/O to the device, and $GETDVI cannot do any I/O.

Sorry!

-- Rob

Re: Show Dev DSA/rebuild

IFX_1 — Wed, 03 May 2006 04:48:35 GMT

I have actually write a script for this. And rebuild the disk if the the flag is yes.

It might make sense to you.

$ set verify
$ set noon
$ on error then continue
$ show time
$ set def sys$login:
$ show device d/rebuild_status/out=d.tmp
$ open/read file d.tmp
$ readline:
$ read/end_of_file=EXIT_LOOP file line
$ voldisk == f$elememt(0," ",line)
$ bldflag == f$elememt(18," ",line)
$ if bldflag .eqs. "Yes" then goto rebld_disk
$ goto readline
$!
$!
$ rebld_disk:
$ set volume/rebuild 'voldisk
$ write sys$output "Disk Rebuild - ", voldisk
$ goto readline
$!
$ EXIT_LOOP:
$ close file
$ show time
$!
$ delete/log/noconf sys$login:d.tmp;*
$ exit