LPAR name in IDMS control block

Products

• IDMS
• IDMS - Database

Issue/Introduction

A statistics exit uses the CSADCVID to determine the time frames that are used to write statistics. Production uses system 100 thru 108 and writes stats between 9:30 and 10:00 and 14:30 and 15.00. Clone uses 1400 thru 1408 and writes statistics all the time. 

Is it possible to use the LPAR name as opposed to the CSADCVID? 
Do any IDMS control blocks contain the LPAR name? If not, is there a way to get it?

Environment

Release: All supported releases.

Resolution

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