Contiguous space in a disk on VMS

[Wim Van den Wyngaert · Accepted solution]

This mayu help find the problem file.
$! Find fragmented files
$! P1 : file set such as sys$sysdevice:[000000...]*.*.*
$! P2 : miinimum number of fragments to be on the report
$b:
$ f=f$sea("''p1'")
$ if f .eqs. "" then exit
$ dump/head/block=(start=0,end=0)/out=wim1.lis 'f'
$ def/us sys$error nl:
$ def/us sys$output wim2.lis
$ sea wim1.lis "Count:"/exact
$ open/read x wim2.lis
$ cnt=0
$r2:
$ read/end=e2 x x_rcd
$ cnt=cnt+f$el(2," ",f$ed(x_rcd,"compress"))
$ goto r2
$e2:
$ close x
$ if cnt .gt. p2 then write sys$output "''f' : ''cnt'"
$ del wim*.lis.*/nolog/noconf
$ goto b

[Wim Van den Wyngaert]

Hmm, not sure if it is correct.
Got 8M pointers for a file of 8M blocks.

???

Wim

[Wim Van den Wyngaert]

Found it. Replace
$ cnt=cnt+f$el(2," ",f$ed(x_rcd,"compress"))
by
$ cnt = cnt+1

Wim

[Jan van den Ende]

Sk,

"Device full" on a disk that has free space available is the sure symptom of "No more space for fileHEADERS"

You very probably have a lot of (very) fragmented files.

Solutions:

a) delete some fragmented file(s)
b) run a defragger. Probably not possible before you have also done a)
c) backup/image & restore

d) long time solution:
after image backup do
INIT of the disk, explicitly specify the current values, EXCEPT: specify double or 4 times the value for /HEADERS
Restore with BACKUP/IMAGE /NOINIT

HTH,

Proost.

Have one on me.

jpe