this was a no-brainer, just copied my diskfree script over (code below, is really ancient).
Tried to find some information on that device ldm3884. Never seen it on OpenVMS before. What is the purpose? During boot process?
Code: Select all
$ show dev ldm3884/full
Disk X861$LDM3884:, device type Generic SCSI disk, is online, mounted, file-
oriented device, shareable.
Error count 0 Operations completed 7745
Owner process "" Owner UIC [SYSTEM]
Owner process ID 00000000 Dev Prot S:RWPL,O:RWPL,G:R,W
Reference count 86 Default buffer size 512
Total blocks 184112 Sectors per track 0
Total cylinders 0 Tracks per cylinder 0
Logical Volume Size 184112 Expansion Size Limit 184320
Volume label "MD2311791A7A" Relative volume number 0
Cluster size 1 Transaction count 25
Free blocks 971 Maximum files allowed 298
Extend quantity 5 Mount count 1
Mount status System Cache name "_X861$DKA100:XQPCACHE"
Extent cache size 64 Max blocks in extent cache 97
File ID cache size 64 Blocks in extent cache 0
Quota cache size 0 Maximum buffers in FCP cache 4830
Volume owner UIC [1,1] Vol Prot S:RWCD,O:RWCD,G:RWCD,W:RWCD
Volume Status: ODS-5, subject to mount verification, file high-water marking,
write-through XFC caching enabled, write-through XQP caching enabled,
special files enabled.
and the DCL - code, just copy and run (was to lazy to upload as a file) - please excuse
Code: Select all
$ type diskhist.com
$!
$! DCL-Programm zur clusterweiten Statistik
$DEV_END= 127
$ESC[0,8]= 27
$VT100 = 96
$VT52 = 64 ! H-19
$TERM_TYPE = F$GETDVI("SYS$OUTPUT","DEVTYPE")
$PRINTOUT == "WRITE SYS$OUTPUT"
$EGM = "''ESC'(0"
$XGM = "''ESC'(B"
$ERV = "''ESC'[7m"
$XRV = "''ESC'[0m"
$A = -
"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
$IF TERM_TYPE .GE. VT100 THEN $GOTO START
$EGM = "''ESC'F"
$XGM = "''ESC'G"
$ERV = "''ESC'p"
$XRV = "''ESC'q"
$IF TERM_TYPE .EQ. VT52 THEN $GOTO START
$A = -
"**************************************************"
$EGM = ""
$XGM = ""
$ERV = ""
$XRV = ""
$!---------------------------------------------------------
$START:
$LOOP = 1
$printout "Disk capacity clusterwide and locally mounted drives"
$printout " proGIS Software 1996
$PRINTOUT -
"_Node$DISK 1...10...20...30...40...50...60...70...80...90..100 Frei"
$GET_NAME:
$IF LOOP .EQ. 1 THEN P1 = F$DEVICE(,"DISK",,)
$IF P1 .EQS. "" THEN $EXIT
$IF F$GETDVI(P1,"MNT") THEN $GOTO MOUNT_ED
$!PRINTOUT "-''P1' not mounted"
$IF LOOP .NE. 1 THEN $EXIT
$GOTO GET_NAME
$MOUNT_ED:
$IF .NOT. F$GETDVI(P1,"FOR") THEN $GOTO check_shadow
$!PRINTOUT "Device ''P1' mounted foreign"
$check_SHADOW:
$!Pr?fen, ob es sich um Shadow-Set-Member handelt.
$if .not. f$GETDVI(P1,"SHDW_MEMBER") then $GOTO GET_DVI
$IF LOOP .NE. 1 THEN $EXIt
$GOTO GET_NAME
$GET_DVI:
$DC = F$GETDVI(P1,"DEVTYPE")
$IF DC .GE. DEV_END THEN $DC = DEV_END
$MB = F$GETDVI(P1,"MAXBLOCK")
$FB = F$GETDVI(P1,"FREEBLOCKS")
$KB = (MB * 512) / 1000
$MEG = (MB * 512) / 1000000
$GIG = (MB * 512) / 1000000000
$UB = MB - FB
$BFREE = ((FB/1000) * 100) / (mb/1000)
$BUSED = 100 - BFREE
$B = " "
$C = UB / (MB / 50)
$IF C .GT. 70 THEN C = 50
$C2 = 50 - C
$GRA = "!15AS ''EGM'!''C2'AS!''C'AS''XGM' | !3SL%"
$LINE = F$FAO(GRA,P1,A,B,BFREE)
$!LINE = F$FAO(GRA,BFREE,A,B)
$PRINTOUT LINE
$IF LOOP .EQ. 1 THEN $GOTO GET_NAME
$ !close diskstat
$ exit