System Serial Number

[Kevin Carter_3]

I have a Digital PWS 500au running OpenVMS. Is there a simple command that can be run to display the serial number of the system?

[Steven Schweda]

Yes: "Hey, you! Turn that thing over and
show me what it says on the label!"

This assumes that you have a competent
assistant, but you could also do it yourself.

Some systems can do things from the console,
but the label is authoritative.

[Robert_Boyd]

What version of the OS are you running? If the serial number is properly registered in the console variable for it there are a couple of ways to get it from DCL:

$SERIAL_NUMBER: subroutine
$ set noon
$ synum = f$getsyi("SERIAL_NUMBER")
$ serial_number = synum
$ if version.lts."V7.3-1"
$then
$ if f$type(synum).nes.""
$ then
$ if synum.nes.""
$ then
$ byte = 1
$ serial_number = " "
$Byte_Loop:
$ nxt_byte = f$extract(2*(byte-1),2,synum)
$ byte = 1+byte
$ if nxt_byte.eqs."00" then $ goto Byte_Loop
$ if nxt_byte.nes.""
$ then ! non-null byte
$ nxt_byte_char[0,8] = %X'nxt_byte'
$ serial_number = nxt_byte_char+serial_number
$! show symbol serial_number
$ goto Byte_Loop
$ endif ! non-null byte
$ endif ! synum not null
$ endif ! synum exists
$endif ! version number
$
$ serial_number == f$edit(serial_number,"TRIM")
$EXIT:
$ exit
$endsubroutine

[Kevin Carter_3]

That is the number I keep giving to HP but they can't find it in the db. Maybe its not eligible for maintenance...

[Kevin Carter_3]

question answered