Is LPAR name stored in any IDMS control block

Document ID : KB000101543
Last Modified Date : 14/06/2018
Show Technical Document Details
Question:
Our stat exit uses the CSADCVID to determine the time frames that we use to write statistics. 
Production uses System 100 thru 108 and writes stats between 9:30 and 10 and 2:30 and 3. Clone uses 1400 thru 1408 and writes stats all the time. 

We would like to use the LPAR name as opposed to the CSADCVID if possible. 
Do any IDMS control blocks contain the LPAR name? If not, is there a way to get it?
Answer:
LPAR name is not contained in any IDMS control block.

The following code snippet will get the LPARNAME. 

   CVT DSECT=YES,LIST=NO TELL MVS THIS IS A DSECT 
   IHAECVT DSECT=YES,LIST=YES 

   Using CVT,R15 
    L     R15,CVTPTR @Absolute address X'10' 
    L     R15,CVTECVT R15 -> ECVT 
   DROP R15 CVT no longer needed 
   Using ECVT,R15 R15 -> ECVT 
    MVC   WKLPNM,ECVTLPNM Move LPAR name to Work Field 
   DROP R15