10 Aug
2015
10 Aug
'15
4:37 p.m.
Well, if I wanted then, even easier is to just set a version limit on
the files. :-)
Johnny
On 2015-08-10 16:29, Mark Wickens wrote:
If you have a batch queue running you could run a
script that purges the
log files you don't want periodically, something like:
$!
$ on error then goto END
$!
$ msg = "write SYS$OUTPUT"
$!
$ purgelogfiles_time_delta = "+06:00:00"
$ purgelogfiles_submit_queue =
F$GETQUI("DISPLAY_JOB","QUEUE_NAME",,"THIS_JOB")
$ if purgelogfiles_submit_queue .eqs. "" then
purgelogfiles_submit_queue= "SYS$BATCH"
$!
$! Get the current name and location of this procedure so that it can be
$! checked for the latest version (update if allowed) and resubmitted
to batch.
$!
$ active_procedure = f$environment("PROCEDURE")
$ submit_procedure = f$element(0, ";", active_procedure)
$!
$! Wait 10 seconds for things to settle down and avoid a race
condition. This
$! is most effective on clusters where time between nodes may be a
little off.
$!
$ if p1 .nes "" then goto interactive
$!
$ wait 00:00:10
$!
$! Re-submit this procedure before anything has a chance to go wrong.
$!
$ submit 'submit_procedure' -
/after="''purgelogfiles_time_delta'" -
/log -
/notify -
/noprint -
/queue="''purgelogfiles_submit_queue'"
$!
$ interactive:
$!
$ msg "%PURGELOG_FILES-I-UPDATE, purging log files..."
!
$ @usera$:[coms]purgelogfiles.com
$!
$END:
$ msg "%PURGELOGFILES-I-FINISHED, finished purging log files..."
$ set default sys$login
$ exit
Where usera$:[coms]purgelogfiles.com contains something like
$ purge/log/keep=3 sys$manager:*.log
Note the use of the /keep qualifier - this is the number of versions of
the log files you want to keep.
Regards, Mark
On 10/08/15 14:33, Johnny Billquist wrote:
--
Johnny Billquist || "I'm on a bus
|| on a psychedelic trip
email: bqt at softjar.se || Reading murder books
pdp is alive! || tryin' to stay hip" - B. Idol
On 2015-08-10 15:26, Hans Vlems wrote:
You might want to have a l?ook at the size of
accountng.dat (9
characters for the filename ;). It's in sys$manager or sys$system.
If that is too big try $set acc?/ new and move the old version off
sys$sysdevice:.
It's in SYS$MANAGER. At 25000 blocks (roughly) it is larger than I
would expect, but it's not enourmous.
Next have a look at the ?*.dmp files, if you have
decservers.
No DECservers are booting from VMS here. RSX responds before VMS blinks.
But SYS$SYSTEM:SYSDUMP.DMP was impressively large... I wonder if I can
remove that.
$ dir sys$system:*.dmp/siz
Directory SYS$SYSROOT:[SYSEXE]
ERRORLOG.DMP;1 2049
SYSDUMP.DMP;1 2621449
Total of 2 files, 2623498 blocks.
Johnny
Verzonden vanaf mijn BlackBerry 10-smartphone.
Origineel bericht
Van: Tim Sneddon
Verzonden: maandag 10 augustus 2015 15:19
Aan: hecnet at Update.UU.SE
Beantwoorden: hecnet at Update.UU.SE
Onderwerp: Re: [HECnet] VMS question
On 10/08/2015 9:13 PM, Johnny Billquist wrote:
I've way rusty on VMS, so I figured someone
here can probably give
me an
answer way faster than I can figure it out myself.
I brought SIGGE:: online two days ago. (VAX 7000-720). Started YCPIP
services as well. Now the disk is full. I'm guessing some logging
somewhere, as people are crazy about probing and poking. TELNET stopped
working, but I can log in fine from DECnet or LAT.
Can anyone tell me where logs go, and how to clean it up so I free some
disk.
Something like:
$ PURGE SYS$SYSDEVICE:[000000...]*.*LOG*;
After that you might like to use something like DFU to locate large
files. You can pick DFU up here:
http://www.digiater.nl/downloads.html
Also, are there some known issue with the telnet
server? If I telnet to
the machine, it's just constantly spewing out one character.
Probably 0xff.
I'm not too sure. Which version of TCP/IP are you using?
Regards, Tim.