$!------------------------------------------------------------------------------
$!
$!	STAT$STARTUP.COM
$!
$!------------------------------------------------------------------------------
$!
$! Procedure to activate, as a detached process, of the system statistic data
$! collector STAT$COLLECTOR.COM
$!
$!	Version 07			Release date:  24 May 1996
$!------------------------------------------------------------------------------
$!
$ if f$getjpi("","prcnam") .eqs. "STAT$RESTART" then wait 00:00:10
$!
$ define/system/executive/nolog STAT$ARCHIVE D1:[MON$ARCHIVE]
$ define/system/executive/nolog STAT$CENTRAL_SITE 3078::STAT$CENTRAL_RECEIVE:
$!
$ ctx = ""
$ temp = f$context("process",ctx,"prcnam","STAT$COLLECTOR","eql")
$ pid = f$pid(ctx)
$ if pid .nes. ""
$ then
$	 stop/id='pid'
$ else
$	continue
$ endif
$!
$ if f$search("SYS$SPECIFIC:[SYSMGR]STAT$COLLECTOR.LOG") .nes. "" -
then set protection=(world:r) SYS$SPECIFIC:[SYSMGR]STAT$COLLECTOR.LOG;*
$!
$ if f$search("SYS$SPECIFIC:[SYSMGR]STAT$COLLECTOR.LOG-2") .nes. "" -
then purge/noconfirm/nolog/keep=2 -
SYS$SPECIFIC:[SYSMGR]STAT$COLLECTOR.LOG
$!
$ write sys$output "creating now the STAT$COLLECTOR process."
$ run SYS$SYSTEM:LOGINOUT.EXE -
/detached -
/input=SYS$COMMON:[SYSMGR]STAT$COLLECTOR.COM -
/output=SYS$SPECIFIC:[SYSMGR]STAT$COLLECTOR.LOG -
/error=SYS$SPECIFIC:[SYSMGR]STAT$COLLECTOR.LOG -
/process_name="STAT$COLLECTOR" -
/working_set=8192 -
/maximum_working_set=16384 -
/extent=32768 -
/noswap
$!
$ exit