Operating System - OpenVMS
1748228 Members
4158 Online
108759 Solutions
New Discussion

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

 
SOLVED
Go to solution
Steven Schweda
Honored Contributor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

> The documentation still needs some work, so the following kit is
> subject to change (without notice), but:
>
> http://antinode.info/ftp/files_info/files_info-030/files_info-030_src.zip

   I made a few more changes, fixed a few bugs (old and new), and ran
one more test:

WIMP $ cc /vers
%DCL-W-IVQUAL, unrecognized qualifier - check validity, spelling, and placement
\VERS\
WIMP $ cc /noobje /list = tt: nl:
[...]
INPUTFILE                                                       21-NOV-2016 16:3
6:10 VAX C V3.1-051 Page 1
[...]

WIMP $ write sys$output f$getsyi( "version")
V5.4

WIMP $ mms /mac = (VAXC=1, MMS$ARCH_NAME=VAX) test

Destination: [.VAXV]

if (f$search( "VAXV.DIR;1") .eqs. "") then create /directory [.VAXV]
mcr [.VAXV]FILES_INFO.EXE [.VAXV]FILES_INFO.EXE

FILE: _WIMP$DUA3:[UTILITY.SOURCE.FILES_INFO.FILES_INFO-030.SOURCE.VAXV]FILES_INF
O.EXE;1
Total access count of 1, XQP access 1, writers 0, size 16/18

PID USERNAME READS WRITES ACCESS CHARACTERISTICS
-------- ------------ -------- -------- ----------------------
000000A5 SYSTEM 8 0 Read, Cathedral, Complete, Sequential
, NoWriteShr


http://antinode.info/ftp/files_info/files_info-030/files_info-030_src.zip
http://antinode.info/ftp/files_info/files_info-030/files_info-030_vms.zip

   If I get ambitious, I may make an actual Web page for it.

> Complaints are always welcome.

   Still true.

H.Becker
Honored Contributor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers


@Steven Schweda wrote:

http://antinode.info/ftp/files_info/files_info-030/files_info-030_src.zip
http://antinode.info/ftp/files_info/files_info-030/files_info-030_vms.zip

> Complaints are always welcome.

 Here we go: the links don't work. In the directory the file names only contain underscores.


Steven Schweda
Honored Contributor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

> Here we go: the links don't work. In the directory the file names only
> contain underscores.

   Oops.  Should be better now.  Thanks for the complaint.

How to use DECset PCA w
Occasional Advisor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

Great, Really appreciated and very much looking forward to giving this a go. Keep you posted on how I get on.

How to use DECset PCA w
Occasional Advisor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

Sorry, I keep getting a server problem when I try to download the files_info-30_vms.zup file.

Steven Schweda
Honored Contributor
Solution

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

> Sorry, I keep getting a server problem when I try to download the
> files_info-30_vms.zup file.

   As usual, showing exactly what you did, and exactly what happened
when you did it, would be more helpful than vague descriptions or
interpretations.  "a server problem" tells me nothing useful.  I see no
"files_info-30" or ".zup" in my Web server log file (which is probably a
good thing), and the only relevant 404 errors which I do see stopped
after I adjusted the file names after the last one at
"[22/Nov/2016:06:37:39 -0600]".  I do see multiple successful downloads
since then.  Give me something from which I can extract some useful
info, and I'll look harder.

>    If I get ambitious, I may make an actual Web page for it.

      http://antinode.info/dec/sw/files_info.html

   The links there seem to work (for me), too.

abrsvc
Respected Contributor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

FWIW, I downloaded the files after they were "fixed" and have had no problems unzipping the files and using them.

The problem is not with the host of the files.

Dan

How to use DECset PCA w
Occasional Advisor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

Apologies, the problem was with me. My firewall was blocking it but with no indication. Switched it off and downloaded no problem. Again, apologies for the confusion.

In the past I had modified the source to extend the fmt array from 7 to 10:

char fmt [] = {"!XL !12AS !10UL !10UL !AS!AS!AS!AS!AS!AS!AS!AS!AS"};

and I think changed the header

printf ("\n PID USERNAME READS WRITES ACCESS CHARACTERISTICS");
printf ("\n-------- ------------ ----------- ----------- ----------------------");

this allowed me to cheap track of bigger files.

Thanks for the help on this one, I'm looking forward to trying it out on our new servers.

 

 

Steven Schweda
Honored Contributor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

> char fmt [] = [...]

   Hmmm.  Under a heading like "  --------", " !7UL" does seem pretty
silly.  I've posted a modified files_info.c which keeps the same total
width, but wastes less white space ("   !7UL" -> " !9UL").

      http://antinode.info/ftp/files_info/files_info-030/files_info.c

As I discovered when I tried to change that format string (fmt[]),
there's a touchy calculation of how much of that format string to use:
       faoFmt.dsc$w_length = 28 + ((j-5)*3);

   That "28" is the length out to the end of the first "!AS", which is
liable to change if that format string is changed.  I'm normally all for
run-time efficiency, but I changed that (brittle) compile-time "28" to a
run-time calculation based on where the "!AS[...]" stuff starts, so if
you want more than nine digits, you should now be able to fiddle with
the format without needing to worry about also fiddling with that
formula.

   I resisted the temptation to add actual status checking to the
sys$fao[l]() instances.


> [...] this allowed me to cheap [keep?] track of bigger files.

   I'd say "busier", not "bigger".

How to use DECset PCA w
Occasional Advisor

Re: Freeware FILES_INFO on OpenVMS 8.4 I64 Integrity Servers

Steven ... thanks for the changes. 

Your of course correct, busier is what I'm tracking.