******************************
MEC$USER7:[RLB.DECUSTAPE.ACCOUNTNG]ACCSTEP.COM;4

	/type=("-",logfail)-

******************************
MEC$USER7:[RLB.DECUSTAPE.ACCOUNTNG]ACCSUM.COM;6

$  open/write batjob accnt.tmp 
$  wb "$ @accnt:accsum """,p1,""" """,p2,""" """,p3,""" """,p4,""" """,-
$  @UTILITY:daymonth
$  accounting/type=("-",image)/log/binary-
	/type=("-",logfail)-
	/summary=(account,USER,type,queue)-
	/summary=(account,USER,type,queue)-
	/type=("-",logfail)-
	/summary=(account,type,queue)-
	/summary=(account,type,queue)-
	/type=("-",logfail)-
	/summary=(month,type,queue)-
	/summary=(month,type,queue)-

******************************
MEC$USER7:[RLB.DECUSTAPE.ACCOUNTNG]IMAGESUM.COM;10

$ acc/type=logfail/since="''since_time'"-
$ acc/type=image/since="''since_time'"/sum=image -
$ acc/type=image/since="''since_time'"/sum=image -
$ acc/type=image/since="''since_time'"/sum=image -

******************************
MEC$USER7:[RLB.DECUSTAPE.ACCOUNTNG]INTERACT.COM;37

$  @UTILITY:daymonth
$  @UTILITY:setuptemp 'p2'
$  accounting/type=("-",image)/log/binary-
	/type=("-",logfail)-
	/summary=(account,USER,type,queue)-
	/summary=(account,USER,type,queue)-
	/type=("-",logfail)-
	/summary=(account,type,queue)-
	/summary=(account,type,queue)-
	/type=("-",logfail)-
	/summary=(month,type,queue)-
	/summary=(month,type,queue)-

******************************
MEC$USER7:[RLB.DECUSTAPE.ACCOUNTNG]NODESPLIT.COM;4

	/type=("-",image) -

******************************
MEC$USER7:[RLB.DECUSTAPE.ACCOUNTNG]READUAF.COM;4

$  open/read/error=no_inp inp sysuaf.lis
$  @uafback 'inp_rec' 

******************************
MEC$USER7:[RLB.DECUSTAPE.BACKUPS]BACKPROC.COM;24

$ if p1.nes."" then $ goto check_type
$ check_type:
	goto good_type
$  write sys$Output "^GINVALID backup type ",p2," -- no backup done for ",p1
$ good_type:
$  if journal.eqs."" then $ journal = "backups:"+p1+f$ext(0,2,TYPE)
$  tape_type = f$extract(0,2,(tape_dev-"_"-":"))
$  density = 'tape_type'_dens
$  open/append/error=no_log back_log backups:volume.log

******************************
MEC$USER7:[RLB.DECUSTAPE.BACKUPS]BACKSEL.COM;27

$!  p3 -- type of backup WEEKLY or INCREMENTAL
$!  that would be caught in the particular type of backup.  It then gets
$ type = p3
$ since_type = "BACKUP" ! incremental setting
$ if type.eqs."WEEKLY" then $ since_type = """TODAY-7-0:0:0.0"""
	'dev'[*...]/since='since_type'/mod nla0:changed.bac/save/block=65000
$ open/read chngblock 'change_name'
$  open/read/error=exit change_list mec$scratch:'dev_name'chng.lis

******************************
MEC$USER7:[RLB.DECUSTAPE.BACKUPS]EVERYDAY.COM;34

$ @UTILITY:fiscalwk
$ @UTILITY:dayofweek day_of_week
$ @UTILITY:datestrng "" month_day 2 ! get YYMMDD for saveset name 
$! density from the maximum possible for the drive type.
$  open/append/error=no_log back_log backups:volume.log
$  open/read/error=no_data schedule 'schedule_file'
$  type = "INCREMENTAL"
$  if day_off.eq.day_of_week then $ type = "WEEKLY"
$  if fwk_mod.eq.week_off .and. type.eqs."WEEKLY" then $ type = "FULL"
$  if freq.eq.0 then $ type = "FULL"
$  if EMERGENCY_flag then $ type = "WEEKLY"
$  if all_full_flag then $ type = "FULL"
$  if f$search(full_journal).eqs."" then $ type = "FULL"
$  if type.nes."FULL" then $ reels_needed = 1
$ if type.eqs."FULL" then $ goto pass_1_full
$  @backups:backsel 'dev_nam' "" 'type' blocks_changed
$  open/append/error=no_log back_log backups:volume.log
$  write back_log node," ",dev_name," ",type," ", -
$  write sys$output node," ",dev_name,": ",type, -
"''node' ''dev_name': ''type' backup will use approx ''mess_txt' at ''density' BPI"
"''node':: ''dev_name': ''type' backup will use approx ''mess_txt' at ''density' BPI"
 "''node':: Please get ''reels_needed' reel(s) for ''type' backup of ''dev_name':"
 "''node':: Please get ''reels_needed' reel(s) for ''type' backup of ''dev_name':"
$  journal_file = 'type'_journal
$  goto prep_'type'
$ @backups:backproc 'dev_nam' 'type' 'save_set' 'journal_file' 'blocks_changed'
"''node' Finished with ''type' backup tape for ''dev_nam'"
$  request/to=tapes "''node' Finished with ''type' backup tape for ''dev_nam'"

******************************
MEC$USER7:[RLB.DECUSTAPE.BACKUPS]READSCHED.COM;1

$  open/read/error=no_data schedule 'schedule_file'
$  journal_file = 'type'_journal

******************************
MEC$USER7:[RLB.DECUSTAPE.BACKUPS]RESTORE.COM;52

$  @UTILITY:checkpriv "BYPASS,SYSPRV,VOLPRO"
$  open/read/error=no_sched schedule 'schedule_file'
$  type sys$input
   Types are:  *IN = incremental, *WK = weekly,    *FU = full
$! set up symbols for the various types of journal files
$  type_1 = "IN.BJL"
$  type_2 = "WK.BJL"
$  type_3 = "WKO.BJL;'"+"'nxt'" ! ( 'dev'WKO.BJL;-1 through -? )
$  type_4 = "FU.BJL"
$  type_5 = "INO.BJL;'"+"'nxt'"
$  type_6 = "WKO.BJL;'"+"'nxt'"
$  type_7 = "FUO.BJL;'"+"'nxt'" ! try old FULLs ( 'dev'FUO.BJL )
$  goto prompt_type
$! the user will be prompted for the next type to search 
$  wo "^G No ",drive_name," journal files of type ",type_no," found"
$prompt_type:
$  type sys$input
 You may now select which type of journal is examined for the
 The valid types are:
$get_type:
$ inquire type_no "Enter a selection (1-7,R,NF,ND,E,Q)"
$  if type_no.eqs."" then $ goto exit
$  check_val = type_no
$  ret_point_yes = "OK_TYPE"
$  ret_point_no = "BAD_TYPE"
$bad_type:
$ wo "RESTORE-E-INVTYPE, invalid selection"
$ goto get_type
$ok_type:
$ journal_name = journal_pref+type_'type_no'
$ full_journal = f$search(journal_pref+type_4)
$ count_flag = back_'type_no'
$ if count_flag then $ nxt = init_'type_no'
$  if 'type_no'.ne.3 then $ goto not_cur_wkly
$  type 'list_file'
$ wo "RESTORE-E-INVTYPE, invalid selection"
$  goto prompt_type
$  @UTILITY:checkpriv
$! the user will be prompted for the next type to search 

******************************
MEC$USER7:[RLB.DECUSTAPE.BACKUPS]SDENTRY.COM;1

$ journal == "@sys$sysroot:journal"
$ type sys$input

******************************
MEC$USER7:[RLB.DECUSTAPE.DECNET]REMDCL.COM;8

$  Type sys$input:

******************************
MEC$USER7:[RLB.DECUSTAPE.DECNET]REMSYS.COM;10

$ @s$login:dclsyms

******************************
MEC$USER7:[RLB.DECUSTAPE.DISK]BACKNET.COM;5

$ rem_type = f$parse(p2,,,"TYPE")
$ backup 'dev_name''dir_name' 'x''rem_dev''rem_dir''rem_file''rem_type'/save

******************************
MEC$USER7:[RLB.DECUSTAPE.DISK]DISKDEMON.COM;5

	 @diskcom:diskdemon 'p1' 'p2' 'next_lev'

******************************
MEC$USER7:[RLB.DECUSTAPE.DISK]FINDALL.COM;8

$  type mec$scratch:'grp'x'mem'.fls

******************************
MEC$USER7:[RLB.DECUSTAPE.DISK]INITPACK.COM;9

$ @UTILITY:checkpriv "volpro"
$  @UTILITY:checkpriv

******************************
MEC$USER7:[RLB.DECUSTAPE.DISK]VOLMOUNT.COM;41

$ mscp_types ="DU,DA"	! list of MSCP type devices -- this will change
$ open/read/error=no_file voldat 'p1'
$  @UTILITY:reachable/output=nl: 'next_node'
$ if f$Loc(f$ext(0,2,dev_name),mscp_types).ge.f$Len(mscp_types) then $ -

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]AUTOLOG.COM;39

$ @UTILITY:findjob hangall1 sys$sysbatch
$ open/write log_file 'log_file'
$   @UTILITY:findjob hangall1 sys$sysbatch
$   open/append log_file 'log_file'
	", id = ''id' @"+-
$   open/append log_file 'log_file'
$  open/write monstrt sys$mgr:newtermon.tmp
"$ @LOGINS:autolog """,p1,""" """,p2,""" """,p3,""" """,p4,""""

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]CLEANUSER.COM;8

$ OPEN/R NAMS LOGINS:nopurge.dat
$  IF nprg_name.EQS.user_name THEN GOTO purge_type
$ purge_type:

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]DCLSYMS.COM;63

$ vrt == "@vrt_exe:vrt"
$ SUPREM == "@cad:[SUPREM]DRIVER"
$ SPICE == "@CAD$SPC:SPICE"
$ SD  :== @UTILITY:SDD
$ remprint == "@UTILITY:remprint"
$ remdcl == "@netuser:remdcl"
$ reach*able == "@UTILITY:reachable"
$! print == "@UTILITY:remprint "
$ NOTICE*S == "@LOGINS:longnote"
$ netcheck =="@UTILITY:netcheck"
$ lo*gout == "@LOGINS:logout"
$ KILLJ*OB == "@UTILITY:KILLJOB"
$ hangup == "@UTILITY:hangup"
$ digic*alc == "@dig$world:digicalc.com"
$ DAYO*FWEEK :== @SYS$MGR:DAYOFWEEK """""" """"""
$ deltree == "@UTILITY:deltree "
$ BYE == "@LOGINS:logout"
$ adduser == "@sys$mgr:newuser"
$ apl == "$sci_apl:apl @"
$ @gespice:gespice ! set up gespice symbols and logicals
$ @hspice:hspicedef ! set up hspice symbols and logicals
$ @engl:login !  set up references to spelling checker

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]DISKCHECK.COM;24

$  type sys$input
$  TYPE sys$input
$ @LOGINS:gendiscck SYS$LOGIN:,sys$sysdevice:

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]FINDAREAS.COM;18

$ open/read exec exec2.tmp
$ open/read/end=no_area_router area area2.tmp
$ open/read/error=area_not_reachable area area4.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]FINDQUE.COM;23

$	err_mess:=could not open sys$scratch:job'job_num'.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]LOCKOUT.COM;2

$ type sys$input

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]LONGNOTE.COM;9

$ ! longnote.com -- type out long version of notices
$ @sys$mgr:dayofweek daynum  
$   type LOGINS:day'nextday'.'trmtyp'
$ open/read/error=no_notes notenames LOGINS:notices.dat
$  if batch then type 'note_file'
$  if .not.batch then @LOGINS:tstnote 'note_file'

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]NET.COM;13

$ @LOGINS:DCLSYMS		! Define standard symbols
$  @LOGINS:todmes
$ last: OPEN/ERROR=SKIP LOGIN 'base_dir'LOGIN.COM
$       @'base_dir'LOGIN 'P1'	    ! transfer to user login file

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]NETLOGIN.COM;3

$ dstat == "@UTILITY:dstat sys$sysdevice,mec$user5,mec$user6,mec$user7"
$  @hangup

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]NEWTST.COM;3

$  open/read/error=no_notes notes SYS$LOGIN:notes.hst
$  type 'file_tst'
$  open/read/error=old_none notes SYS$LOGIN:notes.hst
$ open_new:
$  open/write newnote SYS$LOGIN:notes.hst
$  goto open_new

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]NOTICE.COM;30

$ @sys$mgr:dayofweek daynum  
$  type LOGINS:today.'trmtyp'
$  type 'today_note'
$  type LOGINS:tomorrow.'trmtyp'
$  type 'tomorrow_note'
$ open/read/error=no_notes notenames LOGINS:notices.exp
$  if batch then type 'note_file_name'
$  if .not.batch then @LOGINS:tstnote 'note_file_name'

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]NOTICES.COM;29

$  open/write dist distrib.tmp
$   spawn/nowait @distrib.tmp 'p3'
$  spawn/nowait @distrib.tmp mece1
$  spawn/nowait @distrib.tmp mece2
$  spawn/nowait @distrib.tmp mece3

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]PHUN.COM;7

$ @LOGINS:DCLSYMS
$ @LOGINS:TERM
$ @login.com

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]SDCLOSE.COM;2

$ type sys$input

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]SDENTRY.COM;2

$ type sys$input

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]SETMECE1.COM;2

$  ! the two different types of subdirectories created will be
$  OPEN/READ/ERROR=create_usertemp tdir sys$scratch:'tempfiles'.dir

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]SYSWARN.COM;2

$ open/read/error=no_open usenames sys$scratch:sysuser.dat

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]TERM.COM;17

$! term.com -- set logical names for terminal types
$   run UTILITY:speedtype
$   define/process term_typ 'term_type'

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]TODMES.COM;23

$ TYPE_TERM:='F$EXTRACT(0,3,F$LOGICAL("TERM_TYP"))'
	GOTO 'TYPE_TERM'

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]TSTNOTE.COM;26

$!	test == "@tstnote mece1::mec$user1:[kwf.memos]3q83news.dat"
$  open/read/error=no_notes notes SYS$LOGIN:notes.hst
$  type 'file_tst'
$  open/read/error=old_none notes SYS$LOGIN:notes.hst
$ open_new:
$  open/write newnote SYS$LOGIN:notes.hst
$  goto open_new

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]USER.COM;103

$  @LOGINS:todmes
$  @LOGINS:term
$  @UTILITY:ATTRIB
$  @LOGINS:todmes
$  @LOGINS:findque
$  @LOGINS:DISKCHECK	! See if their disk is online
$  @LOGINS:DCLSYMS	! Define standard symbols
$  @LOGINS:TODMES          ! friendly login message
$  @LOGINS:notice

******************************
MEC$USER7:[RLB.DECUSTAPE.LOGINS]USERADDED.COM;11

$ open/write edttmp edt.tmp
$ open/write edttmp edt.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.QUECOM]NEWDAY.COM;12

$  @quecom:newdayque

******************************
MEC$USER7:[RLB.DECUSTAPE.QUECOM]NEWDAYQUE.COM;71

$ @sys$mgr:dayofweek daynum
$ @UTILITY:fiscalwk
$ @sys$mgr:holiday  ! see if today's date is a company holiday
$ @UTILITY:daymonth
$  @UTILITY:datestrng "" month_day 2 ! get YYMMDD for saveset name 

******************************
MEC$USER7:[RLB.DECUSTAPE.QUECOM]RESTART.COM;8

$   OPEN QDATA QUEUE.SXX

******************************
MEC$USER7:[RLB.DECUSTAPE.QUECOM]SPICEMOD.COM;23

$ @sys$mgr:holiday
$ @sys$Mgr:dayofweek day_number

******************************
MEC$USER7:[RLB.DECUSTAPE.QUECOM]STARTQUE.COM;53

$ OPEN/Read/ERROR=noqota qota sys$system:loginqota.dat
$  @UTILITY:findjob newday sys$sysbatch
$  @UTILITY:findjob aprentic sys$sysbatch
$  @UTILITY:findjob spicemod sys$sysbatch

******************************
MEC$USER7:[RLB.DECUSTAPE.QUECOM]SUBIT.COM;6

$   @SYSCOM:PHUNDEL 77 "#08:05#12:55

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]ANNOUNCE.COM;21

$ if p1.nes."STARTUP" then @UTILITY:procscan errfmt logintim boot_time ! alternate
$ open/write new sys$manager:welcome.txt
$ open/write new sys$manager:announce.txt
$ define/sys sys$announce "@sys$manager:announce.txt"
$ define/sys sys$welcome "@sys$manager:welcome.txt"

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]BATACC.COM;22

$  @accnt:interact 'save_file_name' 'p2'

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]BATDOWN.COM;19

$ open/write welcome sys$manager:welcome.txt
$ if p7 then $ @SYSCOM:nologins
$ @quecom:stopque 
$ @SYSCOM:shutdown "''p1'" "''p2'" "''p3'" -

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]BUSYCHECK.COM;28

$  type sys$input
$  type sys$input
$  type sys$input
$  type sys$input
$  type sys$input
$  type sys$input
$  open/read/error=no_file process sys$scratch:busy.tmp
$  type sys$input

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]CHECKPROT.COM;2

$  open/read in owndir.tmp 

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]CLONE.COM;59

$ type sys$mgr:uicmap.hlp
$  open/w tmp clone.tmp
$  @clone.tmp/out=cloneout.tmp
$  type cloneout.tmp
$  open/read in cloneout.tmp
$  open/write out clone.tmp
$  @clone.tmp
$  open/w tmp clone.tmp
$  @clone.tmp/out=CLONETMP.TMP
$  OPEN/R TMP CLONETMP.TMP
$  TYPE clonetmp.tmp
$  OPEN/W tmp CLONE.TMP
$  @clone.tmp/out=clonetmp.tmp
$  TYPE clonetmp.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]CNDNSELOG.COM;20

$ !			@CNDNSELOG
$ OPEN/READ/ERROR=SCREW_UP IN SYS$MGR:OPERATOR.OLD
$ !	OPEN OPERATOR LOG FILE AND NEW OPERATOR LOG FILE
$ OPEN/READ/ERROR=SCREW_UP  IN  SYS$MGR:OPERATOR.OLD
$ OPEN/WRITE/ERROR=SCREW_UP OUT SYS$MGR:OPERATOR.TMP
$ !	CLOSE ANY OPEN FILES

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]DODIR.COM;7

$ !  perform a function on all files of a certain type in a directory structureOP
$ !  P2  --  File Type(S)
$ IF P2.eqs."" THEN INQUIRE P2 "File Type(s)"
$  OPEN INDIR'lev'/READ 'cur_outdir'  ! Be sure this gets closed
$    WRITE SYS$OUTPUT "ERROR -- INVALID FILE TYPE = ",ttyp,", FILE = ",name
$   TYPE 'tdir''lev'.DLS;*
$   TYPE 'tdir''lev'.DLS;*

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]DUMPGROUP.COM;6

$ open/write/error=no_go tmp grp'p1'.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]FISCALWK.COM;4

$ @sys$mgr:dayofweek day_of_week

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]GENDUMP.COM;4

$  @UTILITY:datestrng "" month_day 2 ! get YYMMDD for file name
$  open/write parmdump mec$scratch:parmdmp.tmp
$  @mec$scratch:parmdmp.tmp/output='p2'

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]GETQUOTA.COM;6

$  open/w tmp uic.tmp
$  @uic.tmp/out=uicout.tmp
$  open/read in uicout.tmp
$  open/write out quota.tmp
$  @quota.tmp/output=quotaout.tmp
$   open/read qtmp quotaout.tmp
$   type quotaout.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]GRPMOVE.COM;33

$  open/read/error=no_data grplist 'p1'
$  open/write/error=no_data qotxref 'p2'
$   @update 'p2'
$ ! this depends on the symbol dec2oct :== @mec$user:dec2oct
$   @SYSCOM:lockout 'user_name' lock
$ @SYSCOM:useronvax 'user_name' on_vax_flg vax_terminal
$  open/write tcont 'user_name'.tmp
$  @'user_name'.tmp
$   @SYSCOM:getquota 'user_name'
$   @SYSCOM:moduic  'user_name'  'uic_id' 'grp_account'
$   @SYSCOM:grpown  'user_name'
$   @SYSCOM:lockout 'user_name' unlock
$   write sys$output "Error attempting to open group data file -- ABORT"

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]GRPOWN.COM;8

$  open/w tmp owndir.tmp
$  @owndir.tmp/out=ownout.tmp
$  open/read in ownout.tmp
$  open/read in owndir.tmp 
$ @SYSCOM:newown 'device' 'directry' 'uic' 

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]IDLEBUSY.COM;4

$  @SYSCOM:BUSYCHECK 'NAME' 0:0:10.0 "''REQUEST'"

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]KILLROGUE.COM;9

$  open/read/error=no_rogues rogues rogues.prc

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]LOCKOUT.COM;10

$   open/write uaftmp uafmod.tmp
$   open/write uaftmp uafmod.tmp
$   @uafmod.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]LOGINCHK.COM;18

$ OPEN/Read/ERROR=noqota qota sys$system:loginqota.dat
$ @LOGINS:autolog "0:3:0.0" "" "" Y  Y

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]MODUIC.COM;7

$   open/write uaftmp uafmod.tmp
$   @uafmod.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]MOVEUSER.COM;17

$ @UTILITY:checkpriv "sysprv,bypass,exquota"
$  open/write out quota.tmp
$  @quota.tmp/output=quotaout.tmp
$  if vfl then $  type quotaout.tmp
$   open/read qtmp quotaout.tmp
$   type quotaout.tmp
$  open/write out quota.tmp
$  @quota.tmp/output=nl:
$ @UTILITY:deltree 'start_dev''start_dir'
$ @UTILITY:checkpriv

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]NEWUSER.COM;1

$ !	OPEN THE SCRATCH FILE THAT WILL BE USED TO BUILD THE
$ OPEN/WRITE/ERROR=ERROR_ON_OPEN OUT SCRATCH.TMP
$ GOTO NO_ERROR_ON_OPEN
$ !	THERE WAS AN ERROR WHILE OPENING THE FILE WHERE THE TEMPORARY
$ ERROR_ON_OPEN:
$ WRITE SYS$OUTPUT "Error encountered while trying to open temporary"
$ NO_ERROR_ON_OPEN:
$ @SCRATCH.TMP

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]NOLOGINS.COM;8

$ OPEN/W qota sys$system:loginqota.dat

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]ONLOGINS.COM;11

$ OPEN/W qota sys$system:loginqota.dat
$ if p1 then @SYSCOM:LOGINCHK

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]OPLOGCAT.COM;3

$   type oplog.tmp
$   open/read tmp0 oplog.tmp 

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]OWNDIR.COM;31

$  open/w tmp owndir.tmp
$  @owndir.tmp/out=ownout.tmp
$  open/read in ownout.tmp
$  open/read in owndir.tmp 
$  @SYSCOM:newown 'directory' 'uic' 'device'

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]PAGE.COM;17

$	Term_type='F$GETDVI("TT:","DEVTYPE")'		! Get terminal type
$	IF Term_type .GE. 96		THEN GOTO VT100	! If a VT100
$	IF Term_type .EQ. 33		THEN GOTO F_FEED! If a LA120
$	IF Term_type .EQ. 16		THEN GOTO TEKtm ! FT1 terminal
$	IF Term_type .EQ. 17		THEN GOTO F_FEED! If FT2 terminal
$L_FEED:TYPE SYS$INPUT					! 6 Blank lines

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]PHUNDEL.COM;18

$ @sys$mgr:dayofweek daynum daynam tmp.day
$	@SYSCOM:NOTEOFF 'P1' 'pterm' ! notify user 
$	@SYSCOM:FORCEOFF 'P1' 'pterm'

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]PHUNLOG.COM;1

$ day*ofweek :== @SYS$MGR:DAYOFWEEK
$   @HOURS
$ LO*GOUT :== @[077001]SIGNOFF
$ OPEN/READ/ERROR=no_dir tdir 'initials'.dir
$ OPEN/READ/ERROR=no_login tlgin login.com
$  @LOGIN
$  OPEN/WRITE newlog LOGIN.COM
$  @LOGIN

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]PHUNMON.COM;9

$ @sys$mgr:dayofweek daynum daynam tmp.day

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]PHUNTMPLT.COM;1

$ play:==@dra1:[077000]play
$ dun*geon :==@dra0:[tmpgam]dungeon
$ WRITE SYS$OUTPUT "To play games type PLAY."
$ WRITE SYS$OUTPUT "To play DUNGEON type DUNGEON."

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]PROMGRPS.COM;1

$    @sys$mgr:attrib
$    @sys$mgr:delattr
$       @SHUTDOWN PANIC
$       @SHUTDOWN

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]QUALIFY.COM;11

$ @UTILITY:datestrng "" month_day 2
$  @UTILITY:datestrng "" month_day 2

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]REMIND.COM;4

$ @SYSCOM:timechk.com 15:15

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]SETUIC.COM;31

$  @UTILITY:uponedir "" next_lev this_lev

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]SETYEAR.COM;8

$  open/write year_file sys$manager:year.dat
$  open/read/error=no_file year_file sys$manager:year.dat

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]SHUTDOWN.COM;27

$ OPEN/ERROR=NOTIFY QDATA QUEUE.SXX
$ @SYS$MANAGER:SYSHUTDWN
$ ! Remove all installed files.  This is necessary for images installed /OPEN
$ @SYS$MANAGER:VMSIMAGES REMOVE VMSIMAGES
$ OPEN/ERROR=GND_ERROR MDATA MDATA.SXX

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]SYLOGNAM.COM;110

$ define/sys freed  "@sys$mgr:freed.dis" ! for mail
$ define/sys mike "@sys$mgr:mike" 	! for mail
$ define/sys rlb "@sys$mgr:rlb" 	! for mail
$ define/sys springer "@sys$mgr:springer" ! mail forwarding
$	define/sys rtp_users		"@LOGINS:rtp.dis"
$	@UTILITY:direxpnd UTILITY: util_tmp
$ @SYSCOM:sortwork ! assign the system disk for sort work files
$! @mec$user2:[mecicd.startup]groupdefs	! set up the ICD names

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]SYSHUTDWN.COM;36

$ @sys$mgr:vmsimages remove SYSCOM:mecimages

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]SYSLOWDWN.COM;2

$ if x.nes."" then @sys$SYSDISK:[sysmgr.net]stopnet

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]SYSTARTUP.COM;207

$ @sys$manager:connhsc
$ @sys$manager:LOGIN 'p1'
$! @SYSCOM:setyear -- not needed since v3.2
$ @netcom:STARTNET
$ @diskcom:volmount !  old one is:  SYSCOM:usermount
$ @SYSCOM:sylognam
$ @SYSCOM:TERMSET
$ @sys$manager:vmsimages remove  SYSCOM:mecimages.dat
$ @sys$manager:vmsimages install SYSCOM:mecimages.dat
$ @SYS$MGR:RJELOAD
$ @quecom:STARTQUE.COM 'p1'	! start job and queues 
$  @HASP:START
$  @HASP:LOAD
$ @SYSCOM:announce 'p1'
$! @SYSCOM:LOGINCHK

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]TERMCLR.COM;2

$    OPEN/WRITE/ERROR=NEXT_TRM TRMOUT 'TERM

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]TERMSET.COM;44

	/inter/noecho/notype/noescape-
	/noread/form/fulldup/modem/nolocal/noauto/nohang/nobrdcst/altype

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]TERMSPOOL.COM;6

		/ttsync/full_duplex/nowrap/form/notypeahead/lowercase

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]TESTTERM.COM;4

$	open/write out_term 'term_id':
$	open/read in_term 'term_id':
$	read/prompt="type something:  " in_term new_line
$	read/prompt="type something:  " in_term new_line
$ err_open:

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]TIMECHK.COM;13

$ day*ofweek :== @SYS$MGR:DAYOFWEEK

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]USERONVAX.COM;12

$  opened = 0
$ open/read/error=bad_file tmpin userson.tmp
$  opened = 1
$   if opened then close tmpin

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]WAITNEWS.COM;1

$ REPLY/USER "Enter @NEWS for more"

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]WEEKLY.COM;22

$ @UTILITY:fiscalwk 

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSCOM]WRTALL.COM;44

$  proc_time := clear @'F$EXTRACT(12,5,cur_time)'
$       OPEN/READ/ERROR=err_open TRMINFO 'tmpfile'
$ err_open:
$    OPEN/WRITE/ERROR=NEXT_TRM TRMOUT TT'DZ_NAM''TRM_NAM':
$  @mec$user:del2abs next_time 0:14:59.0

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSMGR]ACTARCHIV.COM;11

$ open/read/share/err=no_uaf uaf sysuaf
$  tape_type = f$extract(0,2,(tape_dev-"_"-":"))
$  tape_type = f$extract(0,2,(tape_dev-"_"-":"))
$  density = 'tape_type'_dens
$  open/append arch_log 'arch_log'

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSMGR]SYSHUTDWN.COM;2

$ @sys$com:syshutdwn

******************************
MEC$USER7:[RLB.DECUSTAPE.SYSMGR]SYSTARTUP.COM;9

$ @sys$sysroot:[mecmgr.syscom]systartup.com 'p1'

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]ARCHIVE.COM;3

$  tape_type = f$extract(0,2,(tape_dev-"_"-":"))
$  density = 'tape_type'_dens
$  tape_type = f$extract(0,2,(tape_dev-"_"-":"))
$  density = 'tape_type'_dens

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]COMPDIR.COM;28

$! compdir.com -- compare two directories for files of a certain type
$!  p3 -- file type to compare on
$ if p3.eqs."" then $ inquire p3 "File type to compare(COM)"
$   spawn/nowait/output=compdir.log @UTILITY:compdir "''p1'" "''p2'" -
$  @UTILITY:setuptemp 
$  open/write diff_log tempdir:diffs.log
$  file_name = f$parse(prod_file,,,"name")+f$parse(prod_file,,,"type")
$  open/write tmp tempdir:files.tmp
$  file_name = f$parse(dev_file,,,"name")+f$parse(dev_file,,,"type")
$  @tempdir:files.tmp/output=tempdir:updates.lis
$ @UTILITY:findroot terminal root_term

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]DELTREE.COM;24

$    @UTILITY:direxpnd 'p1' mec$_del$_dir
$  if f$parse(p1).eqs."" then open file 'p1'	! report error, then exit
$  @UTILITY:deltree 'n1' 'p2'		! recursion step

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]DEVDUMP.COM;7

$ open/read/error=no_parms parms 'p2'

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]DISTRIB.COM;31

$  @UTILITY:cvtprot "''p3'" dist$_do_prot

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]FINDJOB.COM;2

$ @mec_utility:capture/output='tmp' show 'queues'

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]FIXSTRING.COM;9

$!  p4 -- file types to search for the search string
$ if p4.eqs."" then inquire p4 "Enter file types to search for (<cr>=""*.com"")"
$ open/write fixedt SYS$LOGIN:fixedt.tmp
$ open/read fixlist 'list_name'

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]GETSYSPRM.COM;5

$ open/read prc tmp.tmp

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]MEMGEN.COM;45

$ !   to execute: use MEMGEN == "@UTILITY:MEMGEN"
$     open/read last_memo SYS$LOGIN:lastmemo.dat
$   clr = "@UTILITY:vtctl clr "
$   pos = "@UTILITY:vtctl pos "
$      open/write last_memo SYS$LOGIN:lastmemo.dat
$    type 'p1'.mem

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]PROCDUMP.COM;17

$ open/read/error=no_parms parms 'p2'

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]SDD.COM;81

$	if x.nes."" then  @SDclose
$	if x.nes."" then  @SDENTRY

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY]SETUPTEMP.COM;18

$  ! the two different types of subdirectories created will be

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY.SYSUTIL]TERM.COM;1

$ open/read parms 'p1'
$  tt_type = f$getdvi("TT","DEVTYPE")
$   test = 'item'.eq.tt_type

******************************
MEC$USER7:[RLB.DECUSTAPE.UTILITY.SYSUTIL]TTSOR2.COM;1

TT$M_NOTYPEAHD                 = %X00000004 
TT$V_NOTYPEAHD                 = %X00000002 
TT2$M_ALTYPEAHD                = %X00000080 
TT2$V_ALTYPEAHD                = %X00000007