why not use the INQY DL/I call with the ENVIRON option? It is a standard, programming language agnostic API. Look here(watch the wrap) http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFSAPRH0/1.2.10.3?SHELF=DFSSH0H1&DT=20070907191413&CASE =
look at table 14 On Wed, Feb 23, 2011 at 4:15 AM, michealbutz <[email protected]>wrote: > 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 > -- Mike Shorkend [email protected] www.shorkend.com Tel: +972524208743 Fax: +97239772196 ---------------------------------------------------------------------- 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
