| View previous topic :: View next topic |
| Author |
Message |
ROBW LAHEY
Beginner
Joined: 04 Feb 2006
Posts: 2
Topics: 1
|
 Posted: Sat Feb 04, 2006 12:34 pm Post subject: Get CPU ID (serial number) via Assembler |
 |
|
Gents:
I need to obtain the 12 digit CPU serial number using a callable high level Assembler pgm. Does anyone have any old Assembler code kicking around they can pass along to me ?
Rob |
|
| Back to top |
|
 |
Cogito-Ergo-Sum
Advanced
Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
|
| Posted: Sat Feb 04, 2006 12:44 pm Post subject: |
|
|
Rob,
Does this help ? CPU Serial Number Question
No Assembler code there. But, it is a starting point.
_________________
ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes. |
|
| Back to top |
|
|
ofer71
Intermediate
Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel
|
| Posted: Sat Feb 04, 2006 1:37 pm Post subject: |
|
|
The CPUid resides in the PCCACPID field of PCCA data area.
To see the full map of PCCA, please refer to the fine manual.
O.
________
Honda CB650
Last edited by ofer71 on Sat Feb 05, 2011 11:30 am; edited 1 time in total |
|
| Back to top |
|
|
ROBW LAHEY
Beginner
Joined: 04 Feb 2006
Posts: 2
Topics: 1
|
| Posted: Sun Feb 05, 2006 11:54 am Post subject: |
|
|
Hi Guys:
I've been scrounging around the "z/os principles of operations" on bookmanager, and found that the assembler instruction STIDP does the trick.
It drops the full 12 digits into a 8 byte field using each half-byte to hold a digit.
The format is CPU version if I recall correctly, (2 digits) - followed by engine & LPAR (2 digits) - then 4 digits of cpu id & 4 digits cpu model number (combining to make what I refer to as the cpu's 8 digit "serial" number.
It looks easier than I expected except that I will need to translate each half-byte digit into its full 1 byte displayable characters. So I think I can just write up the assy code without too much trouble.
Best Regards,
Rob |
|
| Back to top |
|
|
MikeBaker
Beginner
Joined: 04 May 2004
Posts: 96
Topics: 9
|
| Posted: Mon Feb 06, 2006 2:27 am Post subject: |
|
|
| The TSO function (usable in a REXX) "SYSCPUS" is specifically for inquiring on CPUs; ie: what CPUs do you have online, and what are their serial numbers? |
|
| Back to top |
|
|
nevilh
Beginner
Joined: 11 Aug 2004
Posts: 115
Topics: 0
|
| Posted: Mon Feb 06, 2006 3:37 am Post subject: |
|
|
| Code: |
LOAD EP=CSRSI
ST R0,CSRADDR SAVE EP ADDRESS
LA R3,CRSA POINT TO STORAGE
USING SIV1V2,R3 TELL ASSEMBLY
L R15,CSRADDR LOAD CSRSI
* =F'3' WILL GIVE ME LPAR INFO
CALL (15),(=F'3',=A(SIV1V2_LEN), *
SIV1V2,RETCODE),VL,MF=(E,WORK256)
*
*
*
CSRADDR DS F
RETCODE DS F
WORK256 DS XL256
CSRSIIDF DSECT=YES,SIV1V2=YES
|
Hope I pasted everything in ..................
The above extracts the information you require plus a bit more and runs unauthorised |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
