Thu, 28 May 1992 10:42:22 CDT
|
On Thu, 28 May 1992 17:15:42 IST Moshe Barak said:
>Hello all ,
>Is there a way (well , a reasonable one) to collect information on the
>file server utilization for a specified list ? A list owner wants to know
>wether the files he is storing are in use at all. Can this be done ?
We do this by modifying LSV$GETQ, the GET quota exit. All we do is
record some of the pertinent information in a monthly log file on a
special disk. We've also written some local commands which only the
owner can run to retrieve the info (we consider the destination privileged
information - I have yet to write a simple local command to summarize
statistics for anyone).
Below are the added or changed lines in LSV$GETQ (I think I got them all).
You should be able to figure out where they go (ie. the init stuff is at the
entry, etc.). Marty
-----
/* NDSU mgh Log Definitions... */
logdate=date('S')
logtime=time()
logfn = 'LSGET'
logft = 'LOG'substr(logdate,3,4) /* LOGyymm */
logfm = 'G' /* Log Disk */
-----
Ok:
/* NDSU MGH 01/24/90 Add log record... */
call logit logdate logtime left(filelist,8) left(fn,8) left(ft,8) ,
format(#blocks,8,0) destination origin strip(userdata)
Exit 0 userdata
-----
LOGIT: /* Log Record NDSU MGH 01/24/90 */
parse arg logitarg
'EXECIO 1 DISKW' logfn logft logfm '(FINIS VAR LOGITARG'
logrc=rc
if logrc<>0 then do
say 'LSV$GETQ ERROR Writing to' logfn logft logfm ' EXECIO rc='logrc
say 'LSV$GETQ Data="'logitarg'"'
end
return logrc
|
|
|