$! ************************************************************************
$!
$!   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="RM01A> "
$!
$ 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:
$  set verify
$  set noon
$  on error then continue
$!
$  PURGE/KEEP=2/LOG    sys$usera:[*.a1...]*.*  
%PURGE-I-NOFILPURG, no files purged
$  purge/keep=2/log    dua0:[sysuser...]*.*
%PURGE-I-NOFILPURG, no files purged
$  purge/keep=2/log    mr$:*.*
%PURGE-I-FILPURG, DUA0:[MRMANAGER]NETSERVER.LOG;755 deleted (8 blocks)
$  purge/keep=2/log    dua1:[allin1...]*.log
%PURGE-I-FILPURG, DUA1:[ALLIN1]OAMTIMAIL.LOG;29472 deleted (18 blocks)
%PURGE-I-FILPURG, DUA1:[ALLIN1]OAMTISEND.LOG;7796 deleted (15 blocks)
%PURGE-I-TOTAL, 2 files deleted (33 blocks)
$  purge/keep=2/log    oa$lib:*.log
%PURGE-I-NOFILPURG, no files purged
$  purge/keep=2/log    sys$errorlog:*.* 
%PURGE-I-FILPURG, SYS$SYSROOT:[SYSERR]FULL_STATS.DAT;2605 deleted (1 block)
$  purge/keep=2/log    dua0:[mrgate...]*.log  
%PURGE-I-NOFILPURG, no files purged
$  purge/keep=2/log    sys$manager:*.log
%PURGE-I-NOFILPURG, no files purged
$  purge/keep=3/log    sys$logfiles:*.*
%PURGE-I-NOFILPURG, no files purged
$ 
$!
$  delete temp$scratch:*.*.*/before=today
$!
$! RESET ACCOUNTING FILES
$!
$  set accounting/new
$  purge/keep=5 sys$manager:accountng.dat
$!
$! RESET OPERATOR LOGS
$!
$  define sys$command opa0:
$  reply/enable
$  reply/log
$  purge/keep=5 sys$manager:operator.log
$!
$! clean out log files if version number approaching 2**32
$!
$   version = f$parse(f$search("sys$logfiles:check_system.log"),,,"version")
$   version = version - ";"
$   if version .gt. 30000 then delete sys$logfiles:check_system.log.*
$!
$!
$! RESET ERROR LOGS
$! 
$  if f$search("sys$errorlog:erfile.log") .nes. "" then -
      rename sys$errorlog:erfile.log sys$errorlog:*.old
$!
$! delete files older than a month in below areas
$!                 
$  time = f$time()
$  month = f$extract(f$locate("-",time)+1,3,time)
$  year  = f$extract(f$locate("-",time)+5,4,time)
$  lastyear = year - 1
$!
$  if month .eqs. "JAN" then lastmonth = "27-DEC-1987"
$  if month .eqs. "FEB" then lastmonth = "27-JAN-1988"
$  if month .eqs. "MAR" then lastmonth = "27-FEB-1988"
$  if month .eqs. "APR" then lastmonth = "27-MAR-1988"
$  if month .eqs. "MAY" then lastmonth = "27-APR-1988"
$  if month .eqs. "JUN" then lastmonth = "27-MAY-1988"
$  if month .eqs. "JUL" then lastmonth = "27-JUN-1988"
$  if month .eqs. "AUG" then lastmonth = "27-JUL-1988"
$  if month .eqs. "SEP" then lastmonth = "27-AUG-1988"
$  if month .eqs. "OCT" then lastmonth = "27-SEP-1988"
$  if month .eqs. "NOV" then lastmonth = "27-OCT-1988"
$  if month .eqs. "DEC" then lastmonth = "27-NOV-1988"
$!
$  delete/before="27-JAN-1988" sys$sysdevice:[operations.journal]*.*.*
$!                                                                    
$  submit dua0:[operations.UTILITIES]PURGE_system.com/LOG=SYS$LOGFILES -
      /restart/after="tomorrow+2:00"/noprint/que=sys$batch/user=system
Job PURGE_SYSTEM (queue SYS$BATCH, entry 598) holding until  6-FEB-1988 02:00
$!
  SYSTEM       job terminated at  5-FEB-1988 16:26:35.67

  Accounting information:
  Buffered I/O count:         2607      Peak working set size:   354
  Direct I/O count:           1569      Peak page file size:     924
  Page faults:                3268      Mounted volumes:           0
  Charged CPU time:     0 00:00:37.86   Elapsed time:     0 00:02:21.23