$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$!	INCLUDE FILE FOR SYS$MANAGER:SYSTARTUP.COM
$!
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$!
$! start accounting in batch queue
$! test SYS$BATCH to see if AKCOUNT job already present,
$! if not, restart accounting.
$!
$	ASSIGN/SYSTEM SYS$SYSROOT:[SYSMGR.ACCOUNT] SYS$ACCOUNT
$	ASSIGN/USER SCRATCH.DAT	SYS$OUTPUT
$	SHOW/QUEUE		SYS$BATCH
$	SET_AKCOUNT=1
$	OPEN	INPUT		SCRATCH.DAT
$BA_LOOP:
$	READ/END=TEST_AKCOUNT	INPUT	TEST_LINE
$	TEST_NAME:='F$EXTRACT(26,7,TEST_LINE)
$	IF TEST_NAME .EQS. "AKCOUNT" THEN SET_AKCOUNT=0
$	GOTO BA_LOOP
$TEST_AKCOUNT:
$	CLOSE			INPUT
$	DELETE			SCRATCH.DAT.*
$	IF SET_AKCOUNT .EQ. 0 THEN GOTO FINISHED_TEST
$	@SYS$ACCOUNT:AKCOUNT.COM RESTART
$FINISHED_TEST:
$!