I want to do a check on files reaching the file version limit. Tried the solution mentioned at thread951-1266570 but that one did not work. I created a file that is above the threshold of 20000. It did not find that file.
I found a similair routine somewhere else but that one had the same problem:
That gives the following output:
Could this have something to do the VMS version? We are on OpenVMS V7.3-2
I found a similair routine somewhere else but that one had the same problem:
Code:
$ v = 'f$verify(0) ! find high version numbers
$ show device d/moun/out=disks.lis ! get a list of disks
$ open md disks.lis ! start reading list of disks
$ v = 'f$verify(0) ! find high version numbers
$ show device d/moun/out=disks.lis ! get a list of disks
$ open md disks.lis ! start reading list of disks
$ read md sl/end=have_disks ! blank line
$ read md sl/end=have_disks ! device ...
$ read md sl/end=have_disks ! name ...
$ on control_y then goto have_disks
$r: read md sl/end=have_disks
$ if f$edit( f$extr( 0,5, sl), "collapse") .eqs. "" then goto r ! skip wrtlck
$ on error then goto r
$ on severe then goto r
$ s = f$extr( 0,12, sl)+"[000000...]*.*"
$ ivs = f$edit( s,"collapse")
$ write sys$output "working on ",f$parse( ivs, ,,"DEVICE")," ",f$time()
$s: fs = f$search(ivs)
$ if fs .eqs. "" then goto r
$ v = f$parse( ivs, ,,"version") - ";"
$ if v .gt. 32000 then write sys$output ivs
$ goto s
$have_disks:
$ close md
$ dele disks.lis;/nolog
$ exit 1+ 0*f$verify(v)That gives the following output:
Could this have something to do the VMS version? We are on OpenVMS V7.3-2