|
Parameters in use: Active
Parameter Name Current Default Minimum Maximum Unit Dynamic
-------------- ------- ------- ------- ------- ---- -------
PFCDEFAULT 16 32 0 127 Pages D
KFILSTCNT 16 4 2 255 Slots
GBLSECTIONS 550 250 20 4095 Sections
GBLPAGES 100000 10000 512 -1 Pages
GBLPAGFIL 7777 1024 128 -1 Pages
MAXPROCESSCNT 64 32 12 8192 Processes
SMP_CPUS -1 -1 0 -1 CPU bitmask
MULTIPROCESSING 3 3 0 3 Coded-value
SMP_SANITY_CNT 300 300 1 -1 10ms.
SMP_SPINWAIT 100000 100000 1 8388607 10 usec.
SMP_LNGSPINWAIT 3000000 3000000 1 8388607 10 usec.
PROCSECTCNT 64 32 5 1024 Sections
MINWSCNT 20 20 10 -1 Pages
PAGFILCNT 2 2 1 63 Files
SWPFILCNT 2 2 0 63 Files
SYSMWCNT 2048 500 40 16384 Pages
INTSTKPAGES 4 4 1 -1 Pages
BALSETCNT 57 16 4 1024 Slots
IRPCOUNT 676 60 0 135168 Packets
IRPCOUNTV 2028 250 0 135168 Packets
WSMAX 26494 1024 60 100000 Pages
NPAGEDYN 734720 300032 16384 -1 Bytes
NPAGEVIR 1469440 1000000 16384 -1 Bytes
PAGEDYN 701952 190000 10240 -1 Bytes
VIRTUALPAGECNT 100000 8192 512 600000 Pages
SPTREQ 2300 2500 -1 -1 Pages
LRPCOUNT 16 4 0 4096 Packets
LRPCOUNTV 64 20 0 4096 Packets
LRPSIZE 1504 1504 256 16384 Bytes
SRPCOUNT 1024 120 0 270336 Packets
SRPCOUNTV 3072 250 0 270336 Packets
QUANTUM 20 20 2 32767 10Ms D
MPW_WRTCLUSTER 120 120 16 120 Pages
MPW_HILIMIT 1310 500 0 65535 Pages
MPW_LOLIMIT 120 32 0 65535 Pages
MPW_IOLIMIT 4 4 1 127 I/O
MPW_THRESH 200 200 0 65535 Pages D
MPW_WAITLIMIT 1430 620 0 65535 Pages D
MPW_LOWAITLIMIT 1190 380 0 65535 Pages D
PFRATL 0 0 0 -1 Flts/10Sec D
PFRATH 120 120 0 -1 Flts/10Sec D
WSINC 150 150 0 -1 Pages D
WSDEC 250 250 0 -1 Pages D
AWSMIN 50 50 0 -1 Pages D
AWSTIME 20 20 1 -1 10Ms D
SWPOUTPGCNT 500 288 0 -1 Pages D
LONGWAIT 310 30 0 65535 Seconds D
DORMANTWAIT 2 2 0 65535 Seconds D
ERRORLOGBUFFERS 4 4 2 64 Buffers
DUMPSTYLE 0 0 0 -1 Bitmask
USERD1 0 0 0 -1 D
USERD2 0 0 0 -1 D
USER3 0 0 0 -1
USER4 0 0 0 -1
EXTRACPU 1000 1000 0 -1 10Ms D
MAXSYSGROUP 8 8 1 32768 UIC Group D
MVTIMEOUT 3600 3600 1 64000 Seconds D
TAPE_MVTIMEOUT 600 600 1 64000 Seconds D
MAXBUF 16384 2048 1700 64000 Bytes D
DEFMBXBUFQUO 16384 1056 256 64000 Bytes D
DEFMBXMXMSG 256 256 64 64000 Bytes D
FREELIM 77 32 16 -1 Pages
FREEGOAL 896 200 16 -1 Pages
GROWLIM 77 63 0 -1 Pages D
BORROWLIM 77 300 0 -1 Pages D
XFMAXRATE 236 236 0 255 Special D
LAMAPREGS 0 0 0 255 Mapregs
REALTIME_SPTS 0 0 0 -1 Pages
CLISYMTBL 400 250 10 500 Pages D
LOCKIDTBL 265 200 40 262143 Entries
LOCKIDTBL_MAX 65535 65535 200 262143 Entries D
RESHASHTBL 512 64 1 8192 Entries
DEADLOCK_WAIT 10 10 0 -1 Seconds D
SCSBUFFCNT 50 50 0 32767 Entries
SCSCONNCNT 4 40 2 32767 Entries
SCSRESPCNT 300 300 0 32767 Entries
SCSMAXDG 576 576 28 985 Bytes
SCSMAXMSG 132 132 52 985 Bytes
SCSFLOWCUSH 1 1 0 16 Credits D
SCSSYSTEMID 15516 0 -1 -1 Pure-number
SCSSYSTEMIDH 0 0 -1 -1 Pure-number
SCSNODE "POWER " " " " " "ZZZZ" Ascii
PRCPOLINTERVAL 30 30 1 32767 Seconds D
PASTIMOUT 5 5 1 99 Seconds D
PASTDGBUF 4 4 1 16 Buffers
PANUMPOLL 16 16 1 223 Ports D
PAMAXPORT 64 64 0 223 Port-number D
PAPOLLINTERVAL 5 5 1 32767 Seconds D
PAPOOLINTERVAL 15 15 1 32767 Seconds D
PASANITY 1 1 0 1 Boolean D
PANOPOLL 0 0 0 1 Boolean D
TIMEPROMPTWAIT 65535 -1 0 -1 uFortnights
UDABURSTRATE 0 0 0 31 Longwords
LNMSHASHTBL 128 128 1 16383 Entries
LNMPHASHTBL 128 128 1 16383 Entries
BUGREBOOT 1 1 0 1 Boolean D
CRDENABLE 1 1 0 1 Boolean
DUMPBUG 0 1 0 1 Boolean
BUGCHECKFATAL 0 0 0 1 Boolean D
ACP_MULTIPLE 0 0 0 1 Boolean D
SETTIME 0 0 0 1 Boolean
ACP_SHARE 1 1 0 1 Boolean
UAFALTERNATE 0 0 0 1 Boolean
SAVEDUMP 0 0 0 1 Boolean
CLASS_PROT 0 0 0 1 Boolean D
LGI_BRK_TERM 1 1 0 1 Boolean D
LGI_BRK_DISUSER 0 0 0 1 Boolean D
SHADOWING 0 0 0 1 Boolean
MOUNTMSG 0 0 0 1 Boolean D
DISMOUMSG 0 0 0 1 Boolean D
TTY_SCANDELTA 10000000 10000000 100000 -1 100Ns
TTY_DIALTYPE 0 0 0 255 Bit-Encoded
TTY_SPEED 15 15 1 16 Special
TTY_RSPEED 0 0 0 16 Special
TTY_PARITY 24 24 0 255 Special
TTY_BUF 80 80 0 65535 Characters
TTY_DEFCHAR 402657952 402657952 0 -1 Bit-Encoded
TTY_DEFCHAR2 4106 4098 0 -1 Bit-Encoded
TTY_TYPAHDSZ 78 78 0 -1 Bytes
TTY_ALTYPAHD 200 200 0 32767 Bytes
TTY_ALTALARM 64 64 0 -1 Bytes
TTY_DMASIZE 64 64 0 -1 Bytes D
TTY_PROT 65520 65520 0 -1 Protection
TTY_OWNER 65540 65540 0 -1 UIC
TTY_CLASSNAME "TT" "TT" "AA" "ZZ" Ascii
TTY_SILOTIME 8 8 0 255 Ms
TTY_TIMEOUT 900 900 0 -1 Seconds D
TTY_AUTOCHAR 7 7 0 255 Character D
RMS_DFMBC 16 16 1 127 Blocks D
RMS_DFMBFSDK 0 0 0 127 Blocks D
RMS_DFMBFSMT 0 0 0 127 Blocks D
RMS_DFMBFSUR 0 0 0 127 Buffers D
RMS_DFMBFREL 0 0 0 127 Buffers D
RMS_DFMBFIDX 0 0 0 127 Buffers D
RMS_DFMBFHSH 0 0 0 127 Buffers D
RMS_PROLOGUE 0 0 0 3 Prolog-Lvl D
RMS_EXTEND_SIZE 0 0 0 65535 Blocks D
RMS_FILEPROT 64000 64000 0 65535 Prot-mask
RMS_GBLBUFQUO 1024 1024 0 32767 Gbl bufs D
RMS_DFNBC 8 8 1 127 Blocks D
PQL_DASTLM 400 24 -1 -1 Ast D
PQL_MASTLM 600 4 -1 -1 Ast D
PQL_DBIOLM 18 18 -1 -1 I/O D
PQL_MBIOLM 100 4 -1 -1 I/O D
PQL_DBYTLM 8192 8192 -1 -1 Bytes D
PQL_MBYTLM 32768 1024 -1 -1 Bytes D
PQL_DCPULM 0 0 -1 -1 10Ms D
PQL_MCPULM 0 0 -1 -1 10Ms D
PQL_DDIOLM 18 18 -1 -1 I/O D
PQL_MDIOLM 100 4 -1 -1 I/O D
PQL_DFILLM 16 16 -1 -1 Files D
PQL_MFILLM 8 2 -1 -1 Files D
PQL_DPGFLQUOTA 8192 8192 -1 -1 Pages D
PQL_MPGFLQUOTA 512 512 -1 -1 Pages D
PQL_DPRCLM 8 8 -1 -1 Processes D
PQL_MPRCLM 8 0 -1 -1 Processes D
PQL_DTQELM 8 8 -1 -1 Timers D
PQL_MTQELM 0 0 -1 -1 Timers D
PQL_DWSDEFAULT 511 100 -1 -1 Pages
PQL_MWSDEFAULT 511 60 -1 -1 Pages
PQL_DWSQUOTA 818 200 -1 -1 Pages D
PQL_MWSQUOTA 818 60 -1 -1 Pages D
PQL_DWSEXTENT 500 400 -1 -1 Pages D
PQL_MWSEXTENT 1022 60 -1 -1 Pages D
PQL_DENQLM 30 30 -1 -1 Locks D
PQL_MENQLM 4 4 -1 -1 Locks D
PQL_DJTQUOTA 1024 1024 -1 -1 Bytes D
PQL_MJTQUOTA 0 0 -1 -1 Bytes D
ACP_MAPCACHE 8 8 1 -1 Pages D
ACP_HDRCACHE 114 32 3 -1 Pages D
ACP_DIRCACHE 114 20 2 -1 Pages D
ACP_DINDXCACHE 28 25 2 -1 Pages D
ACP_WORKSET 0 0 0 -1 Pages D
ACP_FIDCACHE 64 64 0 -1 File-Ids D
ACP_EXTCACHE 64 64 0 -1 Extents D
ACP_EXTLIMIT 100 100 0 1000 Percent/10 D
ACP_QUOCACHE 64 64 0 -1 Users D
ACP_SYSACC 11 8 0 -1 Directories D
ACP_MAXREAD 32 32 1 64 Blocks D
ACP_WINDOW 7 7 1 -1 Pointers D
ACP_WRITEBACK 1 1 0 1 Boolean D
ACP_DATACHECK 2 2 0 3 Bit-mask D
ACP_BASEPRIO 8 8 4 31 Priority D
ACP_SWAPFLGS 14 15 0 15 Bit-mask D
ACP_XQP_RES 1 1 0 1 Boolean
ACP_REBLDSYSD 1 1 0 1 Boolean
DEFPRI 4 4 1 31 Priority D
IJOBLIM 64 64 1 1024 Jobs D
BJOBLIM 16 16 0 1024 Jobs D
NJOBLIM 16 16 0 1024 Jobs D
RJOBLIM 16 16 0 65535 Jobs D
DEFQUEPRI 100 100 0 255 Priority D
MAXQUEPRI 100 100 0 255 Priority D
LGI_PWD_TMO 30 30 0 255 Seconds D
LGI_RETRY_LIM 3 3 0 255 Tries D
LGI_RETRY_TMO 20 20 0 255 Seconds D
LGI_BRK_LIM 5 5 0 255 Failures D
LGI_BRK_TMO 300 300 0 -1 Seconds D
LGI_HID_TIM 300 300 0 -1 Seconds D
VAXCLUSTER 0 1 0 2 Coded-value
EXPECTED_VOTES 1 1 1 127 Votes
VOTES 1 1 0 127 Votes
RECNXINTERVAL 20 20 1 32767 Seconds D
DISK_QUORUM " " " " " " "ZZZZ" Ascii
QDSKVOTES 1 1 0 127 Votes
QDSKINTERVAL 10 10 1 32767 Seconds
ALLOCLASS 0 0 0 255 Pure-number
LOCKDIRWT 0 0 0 255 Pure-number
NISCS_CONV_BOOT 0 0 0 1 Boolean
NISCS_LOAD_PEA0 0 0 0 1 Boolean
NISCS_PORT_SERV 0 0 0 3 Bit-encoded
MSCP_LOAD 1 0 0 1 Boolean
MSCP_SERVE_ALL 0 0 0 2 Coded-value
MSCP_BUFFER 128 128 16 -1 Coded-value
MSCP_CREDITS 4 4 2 8 Coded-value
TAILORED 0 0 0 1 Boolean
WS_OPA0 1 0 0 1 Boolean D
STARTUP_P1 " " " " " " "zzzz" Ascii
STARTUP_P2 " " " " " " "zzzz" Ascii
STARTUP_P3 " " " " " " "zzzz" Ascii
STARTUP_P4 " " " " " " "zzzz" Ascii
STARTUP_P5 " " " " " " "zzzz" Ascii
STARTUP_P6 " " " " " " "zzzz" Ascii
STARTUP_P7 " " " " " " "zzzz" Ascii
STARTUP_P8 " " " " " " "zzzz" Ascii
WINDOW_SYSTEM 1 0 0 2 Pure-number D
ERLBUFFERPAGES 2 2 2 32 Pages
TAPE_ALLOCLASS 0 0 0 255 Pure-number
===========================================================================
Date / Time Type Subtype Username ID Source Status
--------------------------------------------------------------------------------
5-JUL-1990 14:54:50 SYSINIT SYSTEM 00000045 00030001
6-JUL-1990 14:49:45 SYSINIT SYSTEM 00000045 00030001
6-JUL-1990 15:06:35 SYSINIT SYSTEM 00000045 00030001
6-JUL-1990 16:12:58 SYSINIT SYSTEM 00000045 00030001
6-JUL-1990 16:41:42 SYSINIT SYSTEM 00000045 00030001
6-JUL-1990 17:21:05 SYSINIT SYSTEM 00000045 00030001
9-JUL-1990 09:16:02 SYSINIT SYSTEM 00000045 00030001
9-JUL-1990 16:29:16 SYSINIT SYSTEM 00000045 00030001
=======================================================================
(LNM$PROCESS_TABLE)
(LNM$JOB_804728E0)
(LNM$GROUP_000001)
(LNM$SYSTEM_TABLE)
(DECW$LOGICAL_NAMES)
"DECW$BOOK" = "SYS$COMMON:[DECW$BOOK]"
"DECW$EXAMPLES" = "SYS$COMMON:[SYSHLP.EXAMPLES.DECW]"
"DECW$INCLUDE" = "SYS$COMMON:[DECW$INCLUDE]"
"DECW$KEYMAP" = "DECW$SYSCOMMON:[SYS$KEYMAP.DECW.USER]"
= "DECW$SYSCOMMON:[SYS$KEYMAP.DECW.SYSTEM]"
"DECW$SYSCOMMON" = "SYS$COMMON"
"DECW$SYSTEM_DEFAULTS" = "SYS$COMMON:[DECW$DEFAULTS.USER]"
= "SYS$COMMON:[DECW$DEFAULTS.SYSTEM]"
= "SYS$LIBRARY:"
"DECW$USER_DEFAULTS" = "SYS$LOGIN:"
"DECW$WINMGREXE" = "SYS$SYSTEM:DECW$WINMGR.EXE"
"DECW$XLIBERRDB" = "SYS$MESSAGE:DECW$XLIBERRDB.DAT"
"DECW$XTERMINAL_FONT" = "DECW$SYSCOMMON:[SYSFONT.DECW.USER_CURSOR16]"
= "DECW$SYSCOMMON:[SYSFONT.DECW.CURSOR16]"
= "DECW$SYSCOMMON:[SYSFONT.DECW.USER_100DPI]"
= "DECW$SYSCOMMON:[SYSFONT.DECW.100DPI]"
= "DECW$SYSCOMMON:[SYSFONT.DECW.USER_75DPI]"
= "DECW$SYSCOMMON:[SYSFONT.DECW.75DPI]"
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
========================================================================
$! SYLOGIN.COM ----
$! This command procedure is always run when anybody on the entire system
$! logs in. It is equivalent to LOGIN.COM except that the instructions
$! contained herein are executed everytime anyone on the VMS system
$! logs in to their account.
$!
$! For interactive processes, turn on Control T, and set the terminal type
$!
$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET CONTROL=T
$ IF (F$MODE() .EQS. "INTERACTIVE") THEN SET TERMINAL/INQUIRE
$!
$! For MicroVAX systems only, use the command INSTALL/COMMAND
$! and MOUNT/NOASSIST.
$!
$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS
$ MOU*NT :== MOUNT/NOASSIST
$SKIP_MICROVAX_COMMANDS:
$!
$! Place your site-specific LOGIN commands below
$!
$ SET NOCONTROL=Y
$ !
$CHECK_WHO: !FIND OUT WHO FIRST
$ set noon
$ IF F$MODE() .EQS. "BATCH" THEN GOTO DONE_BATCH
$DONE_BATCH:
$ PUR*GE :== PURGE/NOLOG
$!
$DONE:
$END_NOTICE:
$ DEFINE SYS$PUBLIC sys$sysroot:[PUBLIC]
$ EXIT
$! LOGIN.COM --- System Managers Account.
$! This command procedure is a framework for building an individual
$! login command procedure. It is executed every time that you log
$! into your account.
$!
$ IF F$MODE() .NES. "INTERACTIVE" THEN GOTO ENDINTER
$ENDINTER:
$ IF F$MODE() .NES. "BATCH" THEN GOTO ENDBATCH
$!
$! Put commands you want executed only in batch mode between this comment
$! and the "ENDBATCH:" symbol.
$!
$ENDBATCH:
$!
$! Put commands that you want executed in any mode of login below.
$!
$EXIT:
$ EXIT
$ !
$ ! DECW$STARTUP.COM - Initialize the DECwindows environment
$ !
$ !****************************************************************************
$ !* *
$ !* COPYRIGHT (c) 1987,1989 BY *
$ !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *
$ !* ALL RIGHTS RESERVED. *
$ !* *
$ !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *
$ !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *
$ !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *
$ !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
$ !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *
$ !* TRANSFERRED. *
$ !* *
$ !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *
$ !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *
$ !* CORPORATION. *
$ !* *
$ !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *
$ !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *
$ !* *
$ !* *
$ !****************************************************************************
$ !
$ ! This command procedure sets up the DECwindows environment. It should
$ ! be run at system startup time. It is not advisable to edit this procedure
$ ! as it may be replaced in future software updates. Instead, you should
$ ! perform site-specific commands in your SYSTARTUP file.
$ !
$
$ !
$ ! Check to see if we've been told to do nothing. If so, then deassign
$ ! the logical name (this is a one shot deal) and exit.
$ !
$ IF F$TRNLNM("DECW$IGNORE_DECWINDOWS")
$ THEN
$
$ !
$ ! Check the user privs. Exit if we can't get the right ones.
$ !
$ req_privs = "BYPASS,PRMGBL,SYSNAM,DETACH,PSWAPM,ALTPRI,NETMBX,TMPMBX,PRMMBX,SYSPRV,CMKRNL,PFNMAP,SYSGBL,WORLD,OPER,LOG_IO"
$ prev_privs = F$SETPRV(req_privs)
$ IF F$PRIVILEGE(req_privs) THEN GOTO privs_ok
$privs_ok:
$
$ !
$ ! Run the startup procedure as a subprocess.
$ !
$ IF F$TRNLNM("DECW$IGNORE_SUBPROCESS") .NES. "" THEN GOTO subprocess_ok
$ IF F$GETJPI(0,"MASTER_PID") .NES. F$GETJPI(0,"PID") THEN GOTO subprocess_ok
$ IF F$GETJPI(0,"PRCNAM") .NES. "STARTUP" THEN GOTO subprocess_ok
$subprocess_ok:
$ !
$ ! Create the DECwindows logical name table - DECW$LOGICAL_NAMES.
$ !
$ IF F$TYPE(decw$define) .EQS. "" THEN @sys$manager:decw$logicals
$ !
$ ! DECW$LOGICALS.COM - Create the DECwindows logical name table
$ !
$ !****************************************************************************
$ !* *
$ !* COPYRIGHT (c) 1987, 1989 BY *
$ !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *
$ !* ALL RIGHTS RESERVED. *
$ !* *
$ !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *
$ !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *
$ !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *
$ !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
$ !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *
$ !* TRANSFERRED. *
$ !* *
$ !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *
$ !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *
$ !* CORPORATION. *
$ !* *
$ !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *
$ !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *
$ !* *
$ !* *
$ !****************************************************************************
$ !
$ ! This command procedure sets up the DECwindows logical name table.
$ ! It should be run at system startup time. It is not advisable to edit
$ ! this procedure as it may be replaced in future software updates.
$ ! Instead, you should perform any site-specific commands in your SYSTARTUP
$ ! file.
$ !
$ ! P1 = Logical name table (default: DECW$LOGICAL_NAMES)
$ ! P2 = Symbol to use to define a name in this table (default: DECW$DEFINE)
$ ! P3 = Flag to determine if table should be added to default name table list
$ ! (default: TRUE)
$ !
$ if p1 .eqs. "" then p1 := DECW$LOGICAL_NAMES
$ If p2 .eqs. "" then p2 := DECW$DEFINE
$ if p3 .eqs. "" then p3 := TRUE
$
$ ! Create a DECwindows logical name table. If it
$ ! already exists, don't supersede it and do suppress the informational
$ ! message.
$ !
$ create/name_table/nolog/prot=(sy:rwed,ow:rwed,gr:r,wo:r)-
/exec/parent=LNM$SYSTEM_DIRECTORY DECW$LOGICAL_NAMES
$
$ ! Add logical name table to the default RMS and DCL logical name search
$ ! list as specified by LNM$FILE_DEV.
$ !
$ if .not. p3 then goto skip_define
$ max_index = f$trnlnm ("LNM$FILE_DEV","LNM$SYSTEM_DIRECTORY",,,,"MAX_INDEX")
$ index = 0
$ value = ""
$
$file_dev_loop:
$ if index .gt. max_index then goto file_dev_define
$ nxt_value = f$trnlnm ("LNM$FILE_DEV","LNM$SYSTEM_DIRECTORY",index)
$ if nxt_value .eqs. "DECW$LOGICAL_NAMES" then goto skip_define
$ value = value + nxt_value + ","
$ index = index + 1
$ goto file_dev_loop
$file_dev_loop:
$ if index .gt. max_index then goto file_dev_define
$ nxt_value = f$trnlnm ("LNM$FILE_DEV","LNM$SYSTEM_DIRECTORY",index)
$ if nxt_value .eqs. "DECW$LOGICAL_NAMES" then goto skip_define
$ value = value + nxt_value + ","
$ index = index + 1
$ goto file_dev_loop
$file_dev_loop:
$ if index .gt. max_index then goto file_dev_define
$ nxt_value = f$trnlnm ("LNM$FILE_DEV","LNM$SYSTEM_DIRECTORY",index)
$ if nxt_value .eqs. "DECW$LOGICAL_NAMES" then goto skip_define
$ value = value + nxt_value + ","
$ index = index + 1
$ goto file_dev_loop
$file_dev_loop:
$ if index .gt. max_index then goto file_dev_define
$ nxt_value = f$trnlnm ("LNM$FILE_DEV","LNM$SYSTEM_DIRECTORY",index)
$ if nxt_value .eqs. "DECW$LOGICAL_NAMES" then goto skip_define
$ value = value + nxt_value + ","
$ index = index + 1
$ goto file_dev_loop
$file_dev_loop:
$ if index .gt. max_index then goto file_dev_define
$ nxt_value = f$trnlnm ("LNM$FILE_DEV","LNM$SYSTEM_DIRECTORY",index)
$ if nxt_value .eqs. "DECW$LOGICAL_NAMES" then goto skip_define
$skip_define:
$
$ ! Make the DEFINE symbol accessible to the other startup command
$ ! procedures.
$ !
$ ! When defining logical names, supersede any previous exec mode definition
$ ! in the DECwindows logical name table. Suppress the informational messages.
$ !
$ DECW$DEFINE :== define/nolog/exec/table=DECW$LOGICAL_NAMES
$ DECW$DEFINE_term :== define/nolog/exec/table=DECW$LOGICAL_NAMES/trans=terminal
$ !
$ ! In the Desktop-VMS environment the logical SYS$COMMON is a search list,
$ ! which can cause some confusion in later parts of DECwindows startup.
$ ! For example, a search for all file SYS$COMMON:[SYSMGR]XXXX will search
$ ! both the hard disk and the CD. To prevent this we define a logical
$ ! DECW$SYSCOMMON which will be used in place of SYS$COMMON. This will
$ !
$ if f$trnlnm("DTVMS$INSTALLED","LNM$STARTUP_TABLE")
$ THEN DECW$DEFINE DECW$SYSCOMMON POWER$DUA0:[SYS0.SYSCOMMON.]
$ ELSE DECW$DEFINE DECW$SYSCOMMON SYS$COMMON
$ endif
$ !
$ exit
$
$ !
$ ! Look for tpu$defaults in sys$library vs decw$system_defaults
$ !
$ define/system/exec/nolog tpu$defaults sys$library:eve
$
$ !
$ ! Ask if the user really understands about restarting
$ !
$ skip_auto = 0
$ if p1 - "RESTART" .nes. p1
$ THEN
$ if F$MODE() .EQS. "INTERACTIVE"
$ THEN
$ ELSE write sys$output "Server Restart in non-interactive mode..."
Server Restart in non-interactive mode...
$ ENDIF
$ !
$ ! User really wants to do it. Spare us some of the checks...
$ !
$ @sys$manager:decw$device
$ !
$ ! DECW$DEVICE.COM - Determine the workstation device type
$ !
$ !****************************************************************************
$ !* *
$ !* COPYRIGHT (c) 1987, 1989 BY *
$ !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *
$ !* ALL RIGHTS RESERVED. *
$ !* *
$ !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *
$ !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *
$ !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *
$ !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
$ !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *
$ !* TRANSFERRED. *
$ !* *
$ !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *
$ !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *
$ !* CORPORATION. *
$ !* *
$ !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *
$ !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *
$ !* *
$ !* *
$ !****************************************************************************
$ !
$ ! This command procedure determines if there is a workstation device
$ ! on the current system and returns the device type in DECW$DEVICE.
$ ! It is not advisable to edit this procedure as it may be replaced in
$ ! future software updates. Instead, you should perform any site-specific
$ ! commands in your SYSTARTUP file.
$ !
$ ! This procedure uses the logical name DECW$PRIMARY_DEVICE as input. It
$ ! can be defined as either GA or GC. If defined, it determines which
$ ! graphics device will be configured. If the value is GC, and this is a
$ ! two-headed system, then the user will be prompted as to whether the second
$ ! graphics device should be configured. This second device must be a
$ ! monochrome graphics controller (QVSS).
$ !
$ decw$device == "NONE"
$ sysgen := $sysgen
$
$ ! Define known CPU types
$ !
$ VSII = (f$getsyi("CPU") .EQS. "8") .and. (f$getsyi("XCPU") .EQS. "1")
$ VS2000 = (f$getsyi("CPU") .EQS. "8") .and. (f$getsyi("XCPU") .EQS. "4")
$ MAYFAIR = (f$getsyi("CPU") .EQS. "10") .and. (f$getsyi("XCPU") .EQS. "1")
$ VS35x0 = (f$getsyi("CPU") .EQS. "10") .and. (f$getsyi("XCPU") .EQS. "3") !FF
$ VS3100 = (f$getsyi("CPU") .EQS. "10") .and. (f$getsyi("XCPU") .EQS. "4") !PV
$ RM = (f$getsyi("CPU") .EQS. "11") .and. (f$getsyi("XCPU") .EQS. "4") !RM
$
$ ! Make sure the input device drivers are on the system first.
$ !
$ if f$search("sys$loadable_images:imdriver.exe") .eqs. "" .or. -
f$search("sys$loadable_images:indriver.exe") .eqs. "" .or. -
f$search("sys$loadable_images:ikdriver.exe") .eqs. "" -
then exit
$ @sys$manager:decw$startserver "" "" "" "" "RESTART"
$ !
$ ! DECW$STARTSERVER.COM - Start up the DECwindows workstation environment
$ !
$ !****************************************************************************
$ !* *
$ !* COPYRIGHT (c) 1987, 1989 BY *
$ !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *
$ !* ALL RIGHTS RESERVED. *
$ !* *
$ !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *
$ !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *
$ !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *
$ !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
$ !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *
$ !* TRANSFERRED. *
$ !* *
$ !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *
$ !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *
$ !* CORPORATION. *
$ !* *
$ !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *
$ !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *
$ !* *
$ !* *
$ !****************************************************************************
$ !
$ ! This command procedure sets up a DECwindows workstation and starts
$ ! up the DECwindows server. It should be run at system startup time.
$ ! It is not advisable to edit this procedure as it may be replaced in
$ ! future software updates. Instead, you should perform any site-specific
$ ! commands in your SYSTARTUP file.
$ !
$ ! p1 = Server number
$ ! p2 = DECW$SERVER_SCREENS
$ ! p3 = DECW$KEYBOARD
$ ! p4 = DECW$POINTER
$ !
$ ! Check if this is a workstation. If not, then exit. If it is, then
$ ! do the right device specific startup.
$ !
$ IF decw$device .EQS. "NONE" THEN EXIT
$ exit
SYSTEM job terminated at 10-JUL-1990 08:54:59.01
Accounting information:
Buffered I/O count: 57 Peak working set size: 450
Direct I/O count: 70 Peak page file size: 3863
Page faults: 434 Mounted volumes: 0
Charged CPU time: 0 00:00:04.73 Elapsed time: 0 00:00:12.15
|