IMS Subsystem Name

[drowelf]

I'm totally unfamiliar with IMS, but am looking at a task where I need to retrieve the IMS Subsystem Name in order to build a unique key for a Name/Token. If I'm running a program under IMS is there a call or control block that I can pull the IMS Subsystem Name from? The routine that needs to do this is running as part of the IMS Compression User Exit. I'm digging through the User Exit Manuals, but was hoping for a quick pointer from someone who knows IMS.

[Isakshields]

This should do the trick if you are writing in COBOL:
github.com/shields1/IMS/blob/main/IMSINQY.cbl