$! SYSECURITY.COM $! $ SET NOON ! Disable default error handler $! $! Redirect Output to a log file $! $ DEFINE SYS$OUTPUT SYS$MANAGER:SYSECURITY.LOG $ DEFINE SYS$ERROR SYS$MANAGER:SYSECURITY.LOG $ SET PREFIX " " ! Enable time-stamps on log file $ SET VERIFY $ OPEN/WRITE CONSOLE OPA0: $ SAY:=CALL DO_OUTPUT ! Send output to logfile and Console $ SAY "Starting SYSECURITY" $! $! The disk containing the Audit Server database and journal file $! is already mounted at this point, therefore this file is empty. $! $! $! Cleanup and exit $! $ SAY "Completed SYSECURITY" $ CLOSE CONSOLE $ SET NOPREFIX $ SET NOVERIFY $ EXIT $! $DO_OUTPUT: SUBROUTINE $ string = f$fao("!/!AS!AS!AS!/","*** ",p1," ***") $ write console string $ EXIT