On Tue, Feb 22, 2011 at 11:19 AM, Tony Lubrano <[email protected]>wrote:
> 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. Just to nitpick slightly; CSVQUERY would be a better choice than BLDL or chasing CDEs. Also, regardless of which path you take to find the job step TCB, it isn't wise to assume either that there is a first save area, or that the contents of the R1 slot point to anything at all. If it is a real job step then there will always be an FSA but below that all bets are off. You need to apply a sniff test before referencing those data areas, or wrap a little recovery around the instruction path above. -- This email might be from the artist formerly known as CC (or not) You be the judge. ---------------------------------------------------------------------- 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
