From:	MERC::"uunet!CRVAX.SRI.COM!RELAY-INFO-VAX" 19-JUN-1992 00:23:30.06
To:	info-vax@kl.sri.com
CC:	
Subj:	Here is an informational program.

Here is a little program I wrote, inspired by a magazine article
(by Barkes, if I remember correctly).  I am probably reinventing the
wheel, but it is easier for you to just flip through it here, and then
skip it, instead of plowing through DECUS tapes, etc.

But, while I am being paranoid, how do you know whether there is a virus
embedded?  Do we trust everyone here?

In any case, this little .com file does what DEC should already have a
command for, running through every possible parameter for f$getsyi.
I named it nodeinfo.com.
-- 
Brendan Welch, UMass/Lowell, W1LPG,  welchb@woods.ulowell.edu
============================= cut here ==================================
$ say := write sys$output
$ say "You are on a ", f$getsyi("HW_NAME"), " named ", f$getsyi("NODENAME"), "."
$ say "It was last booted on ", f$getsyi("boottime"),"."
$ say "This system has ", f$getsyi("availcpu_cnt")," cpu(s);" -
 , " ", f$getsyi("activecpu_cnt")," is/are active."
$ if .not f$getsyi("cluster_member")
$ then
$  say "It is not a member of a VAXCluster."
$ else
$  say "It is a member of a VAXcluster containing "-
   , f$getsyi("cluster_nodes")," nodes."
$  say "This VAXcluster has a total cluster quorum of "-
   , f$getsyi("cluster_quorum")," votes, and "
$  say "                  ",f$getsyi("cluster_votes"), " total cluster vote(s)."
$  say "This node's quorum value is ", f$getsyi("node_quorum")-
   ," and it has ", f$getsyi("node_votes")," vote(s)."
$ endif
$ say " "
$ say "We will now execute the equivalent of showing F$GETSYI(*)"
$ say f$getsyi("activecpu_cnt"),  "	 		=activecpu_cnt"
$ say f$getsyi("availcpu_cnt"),  "	 		=availcpu_cnt"
$ say f$getsyi("archflag"),  	 "	 		=archflag"
$ say f$getsyi("boottime"),  	 "	=boottime"
$ say f$getsyi("character_emulated"), 	 "	 		=character_emulated"
$ say f$getsyi("contig_gblpages"), 	 " 			=contig_gblpages"
$ say f$getsyi("cpu"),  	 "	 		=cpu"
$ say f$getsyi("decimal_emulated"), 	 "	 		=decimal_emulated"
$ say f$getsyi("d_float_emulated"), 	 "	 		=d_float_emulated"
$ say f$getsyi("f_float_emulated"), 	 "	 		=f_float_emulated"
$ say f$getsyi("free_gblpages"), 	 "	 		=free_gbl_pages"
$ say f$getsyi("free_gblsects"), 	 "	 		=free_gbl_sects"
$ say f$getsyi("g_float_emulated"), 	 "	 		=g_float_emulated"
$ say f$getsyi("pagefile_free"), 	 "	 		=pagefile_free"
$ say f$getsyi("pagefile_page"), 	 "	 		=pagefile_page"
$ say f$getsyi("sid"),  	 "	 	=sid"
$ say f$getsyi("swapfile_free"), 	 "	 		=swapfile_free"
$ say f$getsyi("swapfile_page"), 	 "	 		=swapfile_page"
$ say f$getsyi("version"),  	 "	 	=version"
$ say " "
$ say f$getsyi("cluster_fsysid"),  "	 	=cluster_fsysid"
$ say f$getsyi("cluster_ftime"),   "	 =cluster_ftime"
$ say f$getsyi("cluster_member"),  "			 =cluster_member"
$ say f$getsyi("cluster_nodes"),   "			 =cluster_nodes"
$ say f$getsyi("cluster_quorum"),  "			 =cluster_quorum"
$ say f$getsyi("cluster_votes"),   "			 =cluster_votes"
$ say f$getsyi("hw_model"),        "			 =hw_model"
$ say f$getsyi("hw_name"),         "		 =hw_name"
$ say f$getsyi("nodename"),        "			 =nodename"
$ say f$getsyi("node_area"),       "			 =node_area"
$ say f$getsyi("node_csid"),       "		 =node_csid"
$ say f$getsyi("node_hwtype"),     "			 =node_hwtype"
$ say f$getsyi("node_hwvers"),     "	=node_hwvers"
$ say f$getsyi("node_number"),     "			 =node_number"
$ say f$getsyi("node_quorum"),     "			 =node_quorum"
$ say f$getsyi("node_swincarn"),   "	 =node_swincarn"
$ say f$getsyi("node_swtype"),     "			 =node_swtype"
$ say f$getsyi("node_swvers"),     "			 =node_swvers"
$ say f$getsyi("node_systemid"),   "	 =node_systemid"
$ say f$getsyi("node_votes"),      "			 =node_votes"
$ say f$getsyi("scs_exists"),      "			 =scs_exists"
$ say f$getsyi("system_rights"),   "	 =system_rights"
$ say f$getsyi("vector_emulator"), "			 =vector_emulator"
$ say f$getsyi("vp_mask"),         "			 =vp_mask"
$ say f$getsyi("vp_number"),       "			 =vp_number"
$ say " "
$ say "We will now execute  $SHOW CPU/FULL"
$ show cpu/full

