Diskfree script + Question

OpenVMS x86 Field Test questions, reports, and feedback.
Post Reply

Topic author
afassl
Active Contributor
Posts: 27
Joined: Fri Jun 14, 2019 3:15 am
Reputation: 0
Status: Offline

Diskfree script + Question

Post by afassl » Fri Apr 28, 2023 1:11 pm

Ok,

this was a no-brainer, just copied my diskfree script over (code below, is really ancient).
df.png
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.
[/size]


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


tim.stegner
VSI Expert
Valued Contributor
Posts: 55
Joined: Wed Jul 21, 2021 9:14 am
Reputation: 0
Status: Offline

Re: Diskfree script + Question

Post by tim.stegner » Fri Apr 28, 2023 1:36 pm

The LDM device is the system memory disk holding the initial excelets for starting OpenVMS. You should not modify this disk . Your best solution would be to omit that disk from your display.
thx, -Tym

Post Reply