Attaining Processor Type

[Steven Bearden]

How do I find out the processor type (ie: Alpha EV6) from an Alpha ES40 running OpenVMS 7.3-2?

[Jim_McKinney]

$ show cpu/full

[Steven Bearden]

Thanks. Do you know of a lexical to attain this information so I can use a command procedure to get it?

[EdgarZamora]

Is this what you're looing for?

write sys$output "''f$getsyi("hw_name")'"
AlphaServer DS25

[Steven Bearden]

No. I have that information. I am looking for a lexical to get the processor type (ie: Alpha EV6).

[Jim_McKinney]

$ write sys$output f$getsyi("real_cputype")

where the value returned by the lexical is one of the following integer values

$ sea sys$share:lib.req hwrpb_cpu_type
literal HWRPB_CPU_TYPE$K_EV3 = 1; ! Reduced functionality EVAX
literal HWRPB_CPU_TYPE$K_EV4 = 2; ! First fully functional EVAX
literal HWRPB_CPU_TYPE$K_MANNEQUIN = 3; ! Mannequin simulator
literal HWRPB_CPU_TYPE$K_LCA = 4; ! Low Cost Alpha
literal HWRPB_CPU_TYPE$K_EV5 = 5; ! CMOS 5 EVAX
literal HWRPB_CPU_TYPE$K_EV45 = 6; ! EV4 shrink on CMOS 5 process
literal HWRPB_CPU_TYPE$K_EV56 = 7; ! EV5 shrink on CMOS 6 process
literal HWRPB_CPU_TYPE$K_EV6 = 8; ! CMOS 6 EVAX
literal HWRPB_CPU_TYPE$K_PCA56 = 9; ! Low cost EV56
literal HWRPB_CPU_TYPE$K_PCA57 = 10;
literal HWRPB_CPU_TYPE$K_EV67 = 11; ! EV6 shrink, cmos 7
literal HWRPB_CPU_TYPE$K_EV68CB = 12; ! EV6 shrink, cmos 8
literal HWRPB_CPU_TYPE$K_EV68A = 13; ! Samsung
literal HWRPB_CPU_TYPE$K_EV68CX = 14;
literal HWRPB_CPU_TYPE$K_EV7 = 15; !

[Steve-Thompson]

Hi Steven

This will do it!

$analy /system
SDA> clue config

You'll find all you need!

Regards
Steven

[EdgarZamora · Accepted solution]

Sorry for my first response I was in a rush and didn't read carefully.

If you don't want to use the REAL_CPUTYPE you can just parse the output of SHOW CPU/FULL like in the enclosed sample procedure.

Cheers!

[Steven Bearden]

Thanks to all for your help.

[Steven Bearden]

Thanks Edgar for the DCL program. That did the trick.