[Info-vax] Temperature information via OpenVMS

[Bob]

On Wednesday, May 2, 2018 at 12:29:29 PM UTC-5, Mark Berryman wrote:
> Is there any way to retrieve current ambient temperature information 
> from within OpenVMS on either a DS15 or an rx2620?  Whether I try DCL or 
> call the system service directly, I get the error:
> 
> %SYSTEM-E-NOT_LOADED, system service or exec routine is not loaded
> 
> Does the necessary support exist?
> 
> Mark Berryman

I found the following scrap of code in something I wrote to let me know when bad things were happening in a data center:

$ set proc /priv=diagnose
$!
$ tt	= f$getsyi("temperature_vector")
$ if $status .eq. %xfba then exit
$ cpu	= 0
$loop:
$ ttn	= f$extract(30-cpu*2,2,tt)
$ if ttn .eqs. "FF" then goto next	! unknown
$ if ttn .eqs. "FE" then goto next	! not present
$ if ttn .eqs. "01" then goto next	! OK  
$ if ttn .eqs. "00" then goto next	! failed
$ t	= (%x'ttn*9)/5+32
$ write sys$output "CPU  ''cpu'   Temperature  ''t'"
$next:
$ cpu	= cpu + 1
$ if cpu .lt. 16 then goto loop

I can't recall the CPU model but it was a mid range Alpha perhaps in 2011.
It seems to work on EISNER even though I don't have privs.