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 CLC =CL6'DFSRRC',20(Rx) JE >>> IMS MPP
There are products that attach separate tasks - some of them jobstep tasks - that might cause you problems coming through the ASXBITCB. Tony Lubrano Product Author NEON Enterprise Software, LLC. p: 281 207 4922 f: 281 207 4973 tony.lubr...@neon.com What is zPrime? Find out at www.zprime.com or just ask us! -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Tony Lubrano Sent: Tuesday, February 22, 2011 11:19 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Am I running in an IMS MPR? Yes... L Rx,PSAAOLD-PSA(,R0) L Rx,ASCBASXB-ASCB(,Rx) L Rx,ASXBITCB-ASXB(,Rx) L Rx,TCBFSA-TCB(,Rx) L Rx,SA_R1(,Rx) CLC =CL4'ECP',0(Rx) JE >>> IMS BMP CLC =CL6'DFSRRC',20(Rx) JE >>> IMS MPP If you want, you can do a BLDL on DFSPRPX0. If it is found in the JPA, you are likely to be running in an IMS dependent region. Or, you can follow the CDE chain(s) to locate the module. Tony Lubrano Product Author NEON Enterprise Software, LLC. p: 281 207 4922 f: 281 207 4973 tony.lubr...@neon.com What is zPrime? Find out at www.zprime.com or just ask us! -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Binyamin Dissen Sent: Tuesday, February 22, 2011 10:58 AM To: IBM-MAIN@bama.ua.edu Subject: Am I running in an IMS MPR? Is there a better way than checking the job step program? -- Binyamin Dissen <bdis...@dissensoftware.com> 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html