.;*** ACCOUNTUP.CMD **** START UP SYSTEM ACCOUNTING AND CONSOLE LOGGING
.;							EDIT:	30-SEP-80
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
.;
.; CREATE DATE ENCODED FILE NAME PROTOTYPE
.;
	.PARSE <DATE> "--" DD MM YY JUNK
	.SETS $FILE DD+MM+YY
.;
	.IFACT COT... SET /NOCOLOG
	.IFACT COT... .WAIT COT...
	SET /COTERM=TT0:
	SET /LOGFILE=LB:[1,4]CO'$FILE'.LOG
;
	.IFACT SYSLOG STOP/ACCOUNTING SCHEDULED_SHUTDOWN
	START/ACCOUNTING FILE:LB:[1,7]AC'$FILE'.DAT CRASH_REASON:YES
;
.; START UP ACCOUNTING RESET TASK
	.IFDF $SYS INS $ACRESET
	.IFDF $SYS RUN ACRESE 23:59:59/RSI=24H
	.IFDF $SYS .EXIT
.;
.; ALL CODE BELOW HERE IS .O.N.L.Y. FOR ACCOUNTING RESET TIME
.;	I.E. NOT AT SYSTEM BOOT
;
	.PARSE <DATE> "-" DAY MON YEAR JUNK
	.SETS MONX "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
	.SETN NMON 0
.M1:	.IF MON EQ MONX['NMON'*3+1:'NMON'*3+3] .GOTO M2
	.INC NMON
	.GOTO M1
.;
.M2:	.SETN CTIME ('YEAR'.-70.)*365.+('NMON'.*31.)+'DAY'.
	.OPENA [1,2]BOOTDATE.CMD;1
	.DATA .;    Accounting reset: '<DATE>' '<TIME>'
	.DATA .SETN $CTIME 'CTIME'.
	.CLOSE