[Info-vax] DIR/DATE_FORMAT=DELTA ?

[hb]

Not perfect, but maybe a (good) start:

$ count=0
$ now=f$time()
$ d=f$parse(p1,,,"device")+f$parse(p1,,,"directory")
$ p1=d+f$parse(p1,"*.*;*",,"name")+f$parse(p1,"*.*;*",,"type")+-
        f$parse(p1,"*.*;*",,"version")
$ f=f$search(p1)
$ if f .eqs. "" -
        then $ goto nofiles
$ write sys$output "Directory ",d
$ write sys$output ""
$ loop:
$ count = count+1
$ line = f-d
$ if f$len(line) .gt. 18
$ then
$       write sys$output line
$       line = " "
$ endif
$ line = f$fao("!21AS",line)+f$fao("!16AS",f$delta(f
$file(f,"cdt"),now))
$ write sys$output line
$ f=f$search(p1)
$ if f .nes. "" -
        then $ goto loop
$ exit_loop:
$ write sys$output ""
$ write sys$output f$fao("Total of !ZL file!%S.",count)
$ goto exit
$ nofiles:
$ write sys$output "%DIRECT-W-NOFILES, no files found"
$ exit:
$ exit