$! SYLOGICALS.COM
$! Define system-wide logical names
$! 
$!
$ SET NOON			! Disable default error handler
$!
$! Redirect Output to a log file
$!
$ DEFINE SYS$OUTPUT SYS$MANAGER:SYLOGICALS.LOG
$ DEFINE SYS$ERROR SYS$MANAGER:SYLOGICALS.LOG
$ SET PREFIX "<!5%T> "		! Enable time-stamps on log file
$ SET VERIFY
$ OPEN/WRITE CONSOLE OPA0:
$ SAY:=CALL DO_OUTPUT		! Send output to logfile and Console
$ SAY "Starting SYLOGICALS"
$!
$! Define symbols
$!
$ SAY:=CALL DO_OUTPUT		! Send output to logfile and Console
$ DSECT:=DEFINE/SYSTEM/EXECUTIVE/TRANSLATION=(CONCEALED,TERMINAL)
$ DSEC:=DEFINE/SYSTEM/EXECUTIVE/TRANSLATION=(CONCEALED)
$ DSE:=DEFINE/SYSTEM/EXECUTIVE
$ DS:=DEFINE/SYSTEM
$ NODE=F$GETSYI("NODENAME")	! Get DECnet node name
$!
$ SAY "Starting SYLOGICALS"
$ SAY "	Invoking STARTUP_MOUNT"
$ @SYS$MANAGER:STARTUP_MOUNT
$ SAY "	Completed STARTUP_MOUNT"
$!
$! Define root disk logicals
$!
$ DSECT	DISK$USER1	BART$DUA0:
$ DSECT DISK$USER2	BART$DUA1:
$!
$! Define system-wide login announcements
$!
$ DSE SYS$ANNOUNCE "Springfield Facility Node ''NODE'"
$ DSE SYS$WELCOME "Welcome to VAX/VMS Version ''f$getsyi("VERSION")'"
$!
$! System login command procedure
$!
$ DSE SYS$SYLOGIN SYS$COMMON:[SYSMGR]SYLOGIN.COM
$!
$! System SHUTDOWN defaults
$!
$ DSE SHUTDOWN$INFORM_NODE "''NODE'"	! Restrict msgs to local node 
$ DSE SHUTDOWN$MINIMUM_MINUTES "0"		! Force 0 minute notification
$!
$! Default system print and batch queues
$!
$ DSE SYS$BATCH BART_GENERAL			! 
$ DSE SYS$PRINT DC_LP37				! Data Center LP37
$!
$! Cluster-common files (redirect to DISK$USER1
$!
$ DSE SYSUAF		DISK$USER1:[SYSFILES]SYSUAF
$ DSE NETPROXY		DISK$USER1:[SYSFILES]NETPROXY
$ DSE RIGHTSLIST		DISK$USER1:[SYSFILES]RIGHTSLIST
$ DSE VMSMAIL_PROFILE	DISK$USER1:[SYSFILES]VMSMAIL_PROFILE
$ DSE QMAN$MASTER		DISK$USER1:[SYSFILES]QMAN$MASTER.DAT
$!
$! OPC Logicals
$!
$ DSE OPC$LOGFILE_NAME		-
				DISK$USER1:[SYSFILES]OPERATOR_'NODE'.LOG
$ DSE OPC$LOGFILES_ENABLE	"T"
$ DSE OPC$LOGFILES_CLASSES	"CENTRAL,PRINTER,TAPES,NETWORK"	
$ DSE OPC$OPA0_ENABLE		"T"
$ DSE OPC$OPA0_CLASSES		CENTRAL,PRINTER,TAPES,DISKS,DEVICES,-
				CARDS,NETWORK,CLUSTER,SECURITY,-
				LICENSE,OPER1,OPER2,OPER3,OPER4,-
				OPER5,OPER6,OPER7,OPER8,OPER9,OPER10,-
				OPER11,OPER12
$!
$! Disable DECdtm services 
$!
$ DSE SYS$DECDTM_INHIBIT YES
$!
$! Acounting Data file
$!
$ DSE ACCOUNTNG		DISK$USER1:[SYSFILES]ACCOUNTNG_'NODE'.DAT
$!
$! Mail Distribution Lists
$!
$ DSE 	MAIL_LISTS		DISK$USER1:[SYSFILES.MAIL]
$ DSEC 	DIS_SYSMGR		"@MAIL_LISTS:SYSMGR.DIS"
$ DSEC	DIS_ALLUSERS		"@MAIL_LISTS:ALLUSERS.DIS"
$!
$! Disk area logicals
$!
$! DISK$APPL1	- Applications
$!
$! DISK$APPL2	- Applications
$!
$!
$! DISK$USER1	- User Home Directories
$!
$ DSEC  DSK$SALES	DISK$USER2:[USER.SALES.]	! Sales
$ DSEC  DSK$MFG		DISK$USER2:[USER.MFG.]		! Manuf.
$ DSEC  DSK$OPER	DISK$USER2:[USER.OPER.]		! Operations
$ DSEC  DSK$SYST	DISK$USER2:[USER.SYSTEMS.]	! Systems
$!
$! DISK$USER2	- User Home Directories
$!
$ DSEC  DSK$ACC		DISK$USER2:[USER.ACC.]		! Accounting
$ DSEC  DSK$HR		DISK$USER2:[USER.HR.]		! Human Res.
$!
$! DISK$SCR1	- Scratch disk
$!
$ DSEC DISK$SCR1	DISK$USER1
$ DSE  SYS$SCRATCH	DISK$SCR1:[SCRATCH]	! Scratch area
$ DSE  SYS$ARCHIVE	DISK$SCR1:[ARCHIVE]	! Archive area
$!
$!
$! Cleanup and exit
$!
$ SAY "Completed SYLOGICALS"
$ CLOSE CONSOLE
$ SET NOPREFIX
$ SET NOVERIFY
$ EXIT
$!
$DO_OUTPUT: SUBROUTINE
$ string = f$fao("!/!AS!AS!AS!/","*** ",p1," ***")
$ write console string
$ EXIT