I think TCBJPQ is the EXEC PGM= CDE
So if you are looking to see if running in a CICS Region CDNAME would be DFHSIP -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Binyamin Dissen Sent: Tuesday, February 22, 2011 2:51 PM To: [email protected] Subject: Re: Am I running in an IMS MPR? On Tue, 22 Feb 2011 12:53:45 -0500 Tony Lubrano <[email protected]> wrote: :>Another - and maybe better - way to do it: :>L Rx,PSATOLD-PSA(,R0) :>L Rx,TCBJSTCB-TCB(,Rx) :>L Rx,TCBFSA-TCB(,Rx) :>L Rx,SA_R1(,Rx) :>CLC =CL4'ECP',0(Rx) :>JE >>> IMS BMP Safe, as worst case R1-> Word :>CLC =CL6'DFSRRC',20(Rx) :>JE >>> IMS MPP Problematic, as R1 area may be too short. Thank you. -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- 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
