From:	MERC::"uunet!CRVAX.SRI.COM!RELAY-INFO-VAX"  2-JUL-1992 05:10:45.02
To:	info-vax@kl.sri.com
CC:	
Subj:	Re: *EVERYTHING* you want about a device (from dcl)

In article <1992Jun23.150612.649@fps.mcw.edu>, brodie@fps.mcw.edu writes:
> The next generation of this utility, of course, would be to
> not only show the user WHAT the value of the chartacteristic
> was, but what it actually means.  (for example, instead of
> writing "VPROT = ", we would write  "Volume Protection: "
> 
> I'll leave that as an excercise for someone who has more time
> than I do.
> 
> Anyway, some of you might find this as a timesaver....
> -- 
> Kent C. Brodie - Sr. Systems Manager		InterNet:  brodie@fps.mcw.edu
> Faculty Physicians & Surgeons			uucpNet:   fps.mcw.edu!brodie
> Medical College of Wisconsin			MaBellNet: +1 414 266 5080
> 
> "Little bunny FOO-FOO, walkin' through the forest,
>    scoopin' all the field mice and boppin' 'em on the head.."  -childrens song

Announcing "the next generation of this utility".
I liked what Kent did so I created a verbose conversion of it.

I also took out the show cpu/full at the end, since it's normally 
a privileged command.

$ 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 "F$GETSYI Items for the Local Node Only"
$ say " "
$ say "Architecture flags for the system:            ",f$getsyi("archflag")
$ say "Time the system was booted:                   ",f$getsyi("boottime")
$ say "Character string instructions are emulated:   ",f$getsyi("character_emulated")
$ say "Processor type:                               ",f$getsyi("cpu")
$ say "Decimal string instructions are emulated:     ",f$getsyi("decimal_emulated")
$ say "D_floating string instructions are emulated:  ",f$getsyi("d_float_emulated")
$ say "Number of system pages for error log buffers: ",f$getsyi("errorlogbuffers")
$ say "F_floating string instructions are emulated:  ",f$getsyi("f_float_emulated")
$ say "G_floating string instructions are emulated:  ",f$getsyi("g_float_emulated")
$ say "Number of free pages in current paging files: ",f$getsyi("pagefile_free")
$ say "Number of pages in current paging files:      ",f$getsyi("pagefile_page")
$ say "System identification register:               ",f$getsyi("sid")
$ say "Number of free pages in swapping files:       ",f$getsyi("swapfile_free")
$ say "Number of pages in swapping files:            ",f$getsyi("swapfile_page")
$ say "Version of VMS in use:                        ",f$getsyi("version")
$ say " "
$ say "F$GETSYI Items for Local Node or for Other Nodes in the VAXcluster."
$ say " "
$ say "Count of CPUs actively participating in boot: ",f$getsyi("activecpu_cnt")
$ say "CPUs recognized in the system:                ",f$getsyi("availcpu_cnt")
$ say "System identification number - founding node: ",f$getsyi("cluster_fsysid")
$ say "Time first node in VAXcluster was booted:     ",f$getsyi("cluster_ftime")
$ say "Node is member of the local VAXcluster:       ",f$getsyi("cluster_member")
$ say "Total number of nodes in the VAXcluster:      ",f$getsyi("cluster_nodes")
$ say "Total quorum for the VAXcluster:              ",f$getsyi("cluster_quorum")
$ say "Total number of votes in the VAXcluster:      ",f$getsyi("cluster_votes")
$ say "Total number free, contiguous global pages:   ",f$getsyi("contig_gblpages")
$ say "Current count of free global pages:           ",f$getsyi("free_gblpages")
$ say "Current count of free global sections:        ",f$getsyi("free_gblsects")
$ say "Node's VAX model type:                        ",f$getsyi("hw_model")
$ say "The VAX model name:                           ",f$getsyi("hw_name")
$ say "Node name:                                    ",f$getsyi("nodename")
$ say "The VAX DECnet area for the target node:      ",f$getsyi("node_area")
$ say "The CSID:                                     ",f$getsyi("node_csid")
$ say "Hardware type:                                ",f$getsyi("node_hwtype")
$ say "Hardware version:                             ",f$getsyi("node_hwvers")
$ say "The VAX DECnet number:                        ",f$getsyi("node_number")
$ say "Quorum that the node has:                     ",f$getsyi("node_quorum")
$ say "Software incarnation number:                  ",f$getsyi("node_swincarn")
$ say "Type of operating system software used:       ",f$getsyi("node_swtype")
$ say "Software version:                             ",f$getsyi("node_swvers")
$ say "System identification number:                 ",f$getsyi("node_systemid")
$ say "Number of votes that the node has:            ",f$getsyi("node_votes")
$ say "System Communication Subsystem installed:     ",f$getsyi("scs_exists")
$ say " "
$ say "F$GETSYI Items 'not supported' - Not in DCL dictionary"
$ say " "
$ say "System rights:                                ",f$getsyi("system_rights")
$ say "Vector Processor emulation installed:         ",f$getsyi("vector_emulator")
$ say "Vector Processor mask:                        ",f$getsyi("vp_mask")
$ say "Vector processor number:                      ",f$getsyi("vp_number")

