disk transaction/reference count kulonbseg?
Maulis Adam <maulis@ludens.elte.hu>
Sziasztok,
Mi a kulonbseg a cimben jelzett ket fogalom kozott?
Pontosabban (DCL)
F$GETDVI(dev,"TRANSCNT") es a F$GETDVI(dev,"REFCNT")
kozott?
Mellekletkent csatolom a diszkek gyors vegignezesere altalam hasznalt
parancsfile-t, ahonnan a kerdes jon:-)
Udv & koszi,
Maulis Adam
------------------------------------------------------------------------
$!helo!
$!
$! file: shdev.com
$! author: Maulis Adam
$! cre.date: 23-jun-1999
$!
$!
$! format: device type label freeblock usage% Trans/refCNT
$!
$!
$!
$ say "Device Type Label Freeblocks Used Trans/RefCNT"
$ main_loop:
$ dev = f$device(,"DISK")
$ if dev .eqs. "" then goto end_main_loop
$ devtype= f$getdvi(dev,"DEVTYPE")
$ ! unknown, or not identified or volumeset
$ if devtype .eq. 0 .or. devtype .eq. 35 then goto main_loop
$ if .not. f$getdvi(dev,"MNT")
$ then
$ say f$fao("!16!8 not mounted ",dev,f$getdvi(dev,"MEDIA_NAME"))
$ goto main_loop
$ endif
$ if f$getdvi(dev,"ALL") ! allocated
$ then
$ say f$fao("!16!8 mounted alloc to !AS", -
dev,f$getdvi(dev,"MEDIA_NAME"),f$getdvi(dev,"PID"))
$ goto main_loop
$ endif
$ if f$getdvi(dev,"ROOTDEVNAM") .nes. f$getdvi(dev,"DEVNAM") then goto main_loop
$ if f$getdvi(dev,"SHDW_MEMBER") then goto main_loop
$ free =0
$ summ =0
$ transcnt= 0
$ refcnt = 0
$ _dev=dev
$ volset_loop:
$ summ = summ+ f$getdvi(_dev,"MAXBLOCK")
$ free = free + f$getdvi(_dev,"FREEBLOCKS")
$ transcnt = transcnt+f$getdvi(_dev,"TRANSCNT")
$ refcnt = refcnt + f$getdvi(_dev,"REFCNT")
$ nextdev = f$getdvi(_dev,"NEXTDEVNAM")
$ if nextdev .eqs. "" then goto end_volset_loop
$ _dev=nextdev
$ goto volset_loop
$ end_volset_loop:
$! errcnt
$! logvolnam
$! maxblock
$! freeblocks
$ used = summ-free
$ perc1 = used*10/summ
$ perc2 = (used*10 - (summ*perc1))*10/summ
$ outstr1=f$fao("!16!8!16", -
dev,f$getd(dev,"MEDIA_NAME"),f$getd(dev,"VOLNAM"))
$ outstr2=f$fao("!12UL !1UL!1UL% !5UL/!6", -
free, perc1,perc2,transcnt,refcnt)
$ say outstr1,outstr2
$ goto main_loop
$ end_main_loop: