$! $! CUTTER.COM $! $! Date: 10-Jun-93 $! Accounting Data File - ACCOUNTNG.DAT $! $ SET NOON $ACCT_CLOSE: $ SET RESTART=ACCT_CLOSE $ SET ACCOUNTING/NEW_FILE $! $ACCT_ARCH: $ SET RESTART=ACCT_ARCH $ ACCNAM = F$TRNLNM("ACCOUNTNG") $ IF ACCNAM .EQS. "" THEN ACCNAM="SYS$SPECIFIC:[SYSMGR]ACCOUNTNG.DAT" $ ACCNAM = ACCNAM + ";-1" ! Get prior version $ COPY/LOG 'ACCNAM' TASM$ARCHIVE:ACC_'sched_month'_'sched_year'.DAT $ DELETE 'ACCNAM' $! $! $! Security Audit Journal File - AUDIT$SECURITY.JOURNAL $! $SEC_CLOSE: $ SET RESTART=SEC_CLOSE $ SET AUDIT/SERVER=NEW_LOG $! $SEC_ARCH: $ SET RESTART=SEC_ARCH $ COPY/LOG SYS$COMMON:[SYSMGR]SECURITY.AUDIT$JOURNAL;-1 - TASM$ARCHIVE:SEC_'sched_month'_'sched_year'.DAT $ DELETE SYS$COMMON:[SYSMGR]SECURITY.AUDIT$JOURNAL;-1 $! $! System Error Log File - ERRORLOG.SYS $! $ERR_ARCH: $ SET RESTART=ERR_ARCH $ COPY/LOG SYS$ERRORLOG:ERRLOG.SYS; - TASM$ARCHIVE:ERR_'sched_month'_'sched_year'.DAT $ DELETE SYS$ERRORLOG:ERRLOG.SYS; $! $! Operator Log File - OPERATOR.LOG $! $OPER_CLOSE: $ SET RESTART=OPER_CLOSE $ REPLY/ENABLE $ REPLY/LOG $! $OPER_ARCH: $ SET RESTART=OPER_ARCH $ OPCNAM = F$TRNLNM("OPC$LOGFILE_NAME") $ IF OPCNAM .EQS. "" THEN OPCNAM="SYS$SPECIFIC:[SYSMGR]OPERATOR.LOG" $ OPCNAM = OPCNAM + ";-1" ! Get prior version $ COPY/LOG 'OPCNAM' - TASM$ARCHIVE:OPER_'sched_month'_'sched_year'.DAT $ DELETE 'OPCNAM'