The LPAR name, HW Name and other goodies can be found in the ECVT (point to by CVTECVT , mapping macro in IHAECVT in MODGEN).
The HW model can be found in node descriptor pointed to by CVTHID. "CVTL1" is some sort of bi-lingual label - not for use in ASM. "CVTRELNO" can be used if you establish addressability to the CVT Prefix (256 bytes before the CVT) - but I think you would be best served using the ECVT. To test for specific known releases of z/OS - use the CVTOSLVx fields. Rob Scott Rocket Software, Inc 275 Grove Street Newton, MA 02466 617-614-2305 [EMAIL PROTECTED] -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Anton Britz Sent: 20 July 2007 17:38 To: [email protected] Subject: How to get the LPAR NODE name ? Hi, Can anybody just help Dieter , at the LA times quickly ? Note: There must be module some where but I do not have time to get "tu it" this morning. Thanks. Anton Storr, Dieter wrote: > Hi Anton (not SAG-L), > > Do you know how to get info from the CVT? or examples on the Web? > > The following program received "undefined symbol" CVTL1 and CVTRELNO > > 000039 RUNCHAIN DS 0H > 000040 L R3,16 POINT TO CVT. ADDR IS IN LOW STORAGE > 000041 USING CVT,R3 > 000042 L R3,0(,R3) POINT TO TCB/ASCB WORDS. "0" OFF CVT > 000043 L R3,4(,R3) POINT TO TCB. "4" OFF TCB/ASCB WORDS > 000044 L R3,X'B4'(,R3) POINT TO JSCB. X'B4' OFF CURRENT TCB > 000045 L R3,X'108'(,R3) R3 CONTAINS THE ADDRESS OF THE PSCB > 000046 L R4,CVTEXT1 > 000047 MVC UIDCVT,0(R3) MOVE USERID IN FROM 0 OFF THE PSCB > 000048 USING CVTL1,R5 recommended in CVT macro > 000049 MVC RELCVT,CVTRELNO MOVE RELEASE NUMBER > (snip) > 000144 CVT DSECT=YES,LIST=YES > 000145 IEEBASEA MSTR SCHED RESIDENT DATA > 000146 IEECHAIN CSCB > 000147 IHAASVT ASVT > 000148 IHAASCB ASCB > (snip) > > Any ideas? > > Background: I would like to receive > - LPARNODE > - HW model > - OP system > > Thanks, > Dieter ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
