$! ************************************************************************
$!
$!   SYS$MANAGER:SYLOGIN.COM
$!
$!
$! ************************************************************************
$!
$  IF F$MODE() .EQS. "INTERACTIVE" THEN SET TERMINAL/INQUIRE
$  IF F$MODE() .EQS. "INTERACTIVE" THEN SET CONTROL=T
$
$  define/nolog sys$input sys$output
$  run sys$sysdevice:[operations.utilities]vmspassword.exe
$  WRITE SYS$OUTPUT -
" Logging Into The System, Please Wait..."
 Logging Into The System, Please Wait...
$! *************************************************************
$!       PLEASE ADD ADDITIONAL CHANGES BELOW THIS POINT
$! *************************************************************
$
$	INSTALL :== $INSTALL/COMMAND
$	MOU*NT :== MOUNT/NOASSIST
$!
$ NODENAME==F$GETSYI("NODENAME")
$ SET PROMPT="RM03A> "
$!
$ IMS0001 :== SET HOST/SNA BLUE00/ACC=IMS0001
$ IMS0002 :== SET HOST/SNA BLUE00/ACC=IMS0002
$ IMS0003 :== SET HOST/SNA BLUE00/ACC=IMS0003
$ TSO0001 :== SET HOST/SNA BLUE00/ACC=TSO0001
$ TSO0002 :== SET HOST/SNA BLUE00/ACC=TSO0002
$ TSO0003 :== SET HOST/SNA BLUE00/ACC=TSO0003
$ TST0001 :== SET HOST/SNA BLUE00/ACC=TST0001
$ TST0002 :== SET HOST/SNA BLUE00/ACC=TST0002
$ TST0003 :== SET HOST/SNA BLUE00/ACC=TST0003
$ ADA0001 :== SET HOST/SNA BLUE00/ACC=ADA0001
$ ADA0002 :== SET HOST/SNA BLUE00/ACC=ADA0002
$ ADA0003 :== SET HOST/SNA BLUE00/ACC=ADA0003
$ ADA0103 :== SET HOST/SNA BLUE01/ACC=ADA0103
$ ADA0102 :== SET HOST/SNA BLUE01/ACC=ADA0102
$ ADA0101 :== SET HOST/SNA BLUE01/ACC=ADA0101
$ LEG0001 :== SET HOST/SNA BLUE00/ACC=LEG0001
$ LEG0002 :== SET HOST/SNA BLUE00/ACC=LEG0002
$ LEG0003 :== SET HOST/SNA BLUE00/ACC=LEG0003
$ LEG0103 :== SET HOST/SNA BLUE01/ACC=LEG0103
$ LEG0102 :== SET HOST/SNA BLUE01/ACC=LEG0102
$ LEG0101 :== SET HOST/SNA BLUE01/ACC=LEG0101
$ IMS0103 :== SET HOST/SNA BLUE01/ACC=IMS0103
$ IMS0102 :== SET HOST/SNA BLUE01/ACC=IMS0102
$ IMS0101 :== SET HOST/SNA BLUE01/ACC=IMS0101
$ TSO0103 :== SET HOST/SNA BLUE01/ACC=TSO0103
$ TSO0102 :== SET HOST/SNA BLUE01/ACC=TSO0102
$ TSO0101 :== SET HOST/SNA BLUE01/ACC=TSO0101
$ TST0103 :== SET HOST/SNA BLUE01/ACC=TST0103
$ TST0102 :== SET HOST/SNA BLUE01/ACC=TST0102
$ TST0101 :== SET HOST/SNA BLUE01/ACC=TST0101
$!
$DONE:
$	EXIT
$! This command procedure is a framework for building individual
$! login command procedures
$
$! Commands you want executed no matter mode of login
$
$  IF F$MODE() .NES. "INTERACTIVE" THEN GOTO ENDINTER
$ENDINTER:
$  IF F$MODE() .NES. "BATCH" THEN GOTO ENDBATCH
$! Commands you want executed only in batch mode
$ENDBATCH:
$! ****************************************************************
$!
$!  PROCEDURE -- CHECK_SYSTEM.COM
$!
$!  Procedure to Check the System For The Following
$!
$!     o  Necessary Batch Jobs that should be running
$!     o  Generate Reports Daily
$!
$!
$! ****************************************************************
$!                                                
$  set verify
$  set noon
$  on error then continue
$!
$!
$! make sure all batch jobs are running, use the procedure that startup
$! uses at startup time
$!            
$  set noverify         
Job MRTALK_SCH (queue SYS$BATCH, entry 57) holding until  8-MAR-1988 14:51
$!
$!
$! generate reports on system usage 
$!
$ set noverify
%SEARCH-I-NOMATCHES, no strings matched
$!
$!
$! this job should run twice a day
$!
$ hour = f$extract(f$locate(" ",f$cvtime())+1,2,f$cvtime())
$!
$ if hour .ge. 14 then goto tomorrow
$ tomorrow:
$  submit/restart - 
     sys$utilities:check_system.com/user=system -
         /log=sys$logfiles/after="Tomorrow+10:00"
Job CHECK_SYSTEM (queue SYS$BATCH, entry 59) holding until  9-MAR-1988 10:00
$  goto done                                                         
$ done:
$!
$! clean out log files if version number approaching 2**32
$!
$   version = f$parse(f$search("sys$logfiles:purge_system.log"),,,"version")
$   version = version - ";"
$   if version .gt. 30000 then delete sys$logfiles:purge_system.log.*
$   exit
  SYSTEM       job terminated at  8-MAR-1988 14:37:01.77

  Accounting information:
  Buffered I/O count:          644      Peak working set size:   444
  Direct I/O count:            199      Peak page file size:    1159
  Page faults:                7209      Mounted volumes:           0
  Charged CPU time:     0 00:00:27.66   Elapsed time:     0 00:00:51.57