$!---------------------------------------------------------------------
$!        STARTSITE Command -  By Scott B. Sibley   1 May 82
$!---------------------------------------------------------------------
$!
$!  Perform Site-Specific Functions for VAX/VMS Start-up:  @STARTSITE
$!
$!     GLOBAL SYMBOLS used:  (none)
$!     FILES used:  SetTerms.COM, SetLOGIN.COM
$!
$!---------------------------------------------------------------------
$  IF F$LOGICAL("VMS_VERSION") .EQS. "" THEN GOTO DefineNames
$    WRITE SYS$OUTPUT "  "
$    WRITE SYS$OUTPUT "     STARTSITE - Site Start-up already performed",-
       "; command terminated."
$    EXIT
$DefineNames:
$!---------------------------------------------- INDICATE VMS VERSION 3.3
$   DEFINE/SYSTEM VMS_VERSION "3.3"
$!---------------------------------------------- SET DISK NAMES
$!   Use a "__" for concealed device names.
$  IF F$LOGICAL("LIB0") .EQS. "" THEN DEFINE/SYSTEM LIB0 "__DRA0:"
$  DEFINE/SYSTEM LIB1 "__DRA1:"
$!  DEFINE/SYSTEM LIB2 "__DRA2:"
$!---------------------------------------------- SET LOGIN PROMPT
$  IF F$LOGICAL("SYS$ANNOUNCE") .NES. "" THEN DEASSIGN/SYSTEM SYS$ANNOUNCE
$  DEFINE/SYSTEM SYS$ANNOUNCE -
      "Ford Aerospace SISO VAX (NASA/JSC-Houston)"
$!---------------------------------------------- SET TERMINAL TYPES
$ @SYS$SYSDEVICE:[SYSMAN.VAXSTART]SetTerms
$!----------------------------------------- ASSIGN BASIC INTERPRETER
$! $ ASSIGN/SYSTEM SYS$SYSTEM:BP2.EXE BASIC
$!----------------------------------------- MOUNT STANDARD LIB1 PACK
$ ON ERROR THEN CONTINUE
$! MOUNT/SYSTEM LIB1: "LIB1DATA8001"
$!----------------------------------------- MOUNT STANDARD LIB2 PACK
$ ON ERROR THEN CONTINUE
$! MOUNT/SYSTEM LIB2: "LIB2USERxxxx"
$!----------------------------------------- INIT COMMON DATA DICTIONARY
$ !&&&& $ @[SYSMGR]CDDSTRTUP
$!----------------------------------------- INSTALL DATATRIEVE
$ !&&&& $ RUN SYS$SYSTEM:INSTALL
$ !&&&& SYS$LIBRARY:DTRSHR/OPEN/SHARE
$ !&&&& DTR32/OPEN/SHARE
$!---------------------------------------------- DEFINE PRINT QUEUES
$!- - - - - - - - - - - - - - - - - - - - - - -  START SYS$PRINT QUE
$   ON ERROR THEN CONTINUE
$   START     /QUEUE              SYS$PRINT
$   IF $STATUS THEN GOTO SYS$PRINT_OK
$   SET VERIFY
$   INITIALIZE/QUEUE/FLAG/GENERIC SYS$PRINT
$   VERSAVE = 'F$VERIFY(0)'
$   START     /QUEUE              SYS$PRINT
$SYS$PRINT_OK:
$!- - - - - - - - - - - - - - - - - - - - - - -  START LPA0 QUE
$   SET DEVICE/SPOOLED            LPA0
$   ON ERROR THEN CONTINUE
$   START     /QUEUE              LPA0
$   IF $STATUS THEN GOTO LPA0_OK
$   SET VERIFY
$   INITIALIZE/QUEUE/FLAG         LPA0
$   VERSAVE = 'F$VERIFY(0)'
$   START     /QUEUE              LPA0
$LPA0_OK:
$!---------------------------------------------- DEFINE BATCH QUEUES
$!- - - - - - - - - - - - - - - - - - - - - - -  START SYS$BATCH QUE
$   ON ERROR THEN CONTINUE
$   START/QUEUE SYS$BATCH
$   IF $STATUS THEN GOTO SYS$BATCH_OK
$   SET VERIFY
$   INITIALIZE/QUEUE/BATCH/JOB_LIMIT=5/PRIORITY=2 SYS$BATCH
$   VERSAVE = 'F$VERIFY(0)'
$   START/QUEUE SYS$BATCH
$SYS$BATCH_OK:
$!- - - - - - - - - - - - - - - - - - - - - - -  START BACKUPQUE QUE
$   ON ERROR THEN CONTINUE
$   START/QUEUE BACKUPQUE
$   IF $STATUS THEN GOTO BACKUPQUE_OK
$   SET VERIFY
$   INITIALIZE/QUEUE/BATCH/JOB_LIMIT=1/PRIORITY=2 BACKUPQUE
$   VERSAVE = 'F$VERIFY(0)'
$   START/QUEUE BACKUPQUE
$BACKUPQUE_OK:
$!- - - - - - - - - - - - - - - - - - - - - - -  START SERIALQUE QUE
$   ON ERROR THEN CONTINUE
$   START/QUEUE SERIALQUE
$   IF $STATUS THEN GOTO SERIALQUE_OK
$   SET VERIFY
$   INITIALIZE/QUEUE/BATCH/JOB_LIMIT=1/PRIORITY=2 SERIALQUE
$   VERSAVE = 'F$VERIFY(0)'
$   START/QUEUE SERIALQUE
$SERIALQUE_OK:
$!- - - - - - - - - - - - - - - - - - - - - - -  START AGENDA QUE
$   ON ERROR THEN CONTINUE
$   START/QUEUE AGENDA
$   IF $STATUS THEN GOTO AGENDA_OK
$   SET VERIFY
$   INITIALIZE/QUEUE/BATCH/JOB_LIMIT=5/PRIORITY=2 AGENDA
$   VERSAVE = 'F$VERIFY(0)'
$   START/QUEUE AGENDA
$AGENDA_OK:
$!- - - - - - - - - - - - - - - - - - - - - - -  START TOT$BATCH QUE
$   ON ERROR THEN CONTINUE
$   START/QUEUE TOT$BATCH
$   IF $STATUS THEN GOTO TOT$BATCH_OK
$   SET VERIFY
$   INITIALIZE/QUEUE/BATCH/JOB_LIMIT=10/PRIORITY=14 TOT$BATCH
$   VERSAVE = 'F$VERIFY(0)'
$   START/QUEUE TOT$BATCH
$TOT$BATCH_OK:
$!---------------------------------------------- START CPU MANAGER
$!xx   SUBMIT/QUE=AGENDA/NOLOG_FILE LIB0:[VAXMAN.CONTROL]MANAGECPU
$!---------------------------------------------- START LSMOC NIGHT SHIFT
$!xx      SUBMIT/QUE=AGENDA/AFTER=TOMORROW LIB0:[LSMOC]ShrinkLog.COM
$!---------------------------------------------- START DAILY OPERATIONS
$!xx      SUBMIT/QUE=AGENDA LIB0:[VAXMAN.AGENDA]RunDaily
$!---------------------------------------------- DISABLE LOGGING
$   REPLY/DISABLE
$!========================================= INTERFACE WITH USERS
$!---------------------------------------------- DEFINE FORD MEMO USERS
$!xx   SET UIC [200,277]
$!xx   @LIB0:[FORDMEMO]DEFUSERS
$!xx   SET UIC [1,6]
$!---------------------------------------------- SET LOGIN STATUS
$   @SYS$SYSDEVICE:[SYSMAN.VAXSTART]SetLogin
$!============================================== RECORD VAX START TIME
$!---------------------------------------------- SET PARAMETERS
$   CmdFil = "STARTSITE"
$   NoteRecFil = "LIB0:[SYSMAN.VAXSTART]VAXEVENTS.REC"
$   NoteMsg = "STARTSITE:  " + P1
$   MailParty = "VAXMAN"
$!---------------------------------------------- LOG TO EVENT FILE
$   SET UIC [1,4]
$   @FordUtil:LOGEVENT 'CmdFil' 'NoteRecFil' "''NoteMsg'" 'MailParty'
$   SET UIC [1,6]
$!---------------------------------------------- NOTIFY USERS
$!xx     REPLY/ALL/BELL "VAX is up.  Press return for Username prompt."
$   EXIT