Look at the Test Addressing Mode (TAM) instruction,
On Mon, Jul 11, 2016 at 1:09 PM, Steve Thompson <[email protected]> wrote: > I am trying to determine how I am supposed to know if a COBOL program is > AMODE=31/ANY when they call an ALC subroutine. > > The routine getting control has just been through an upgrade from 1979 > style of NOREUS and data mixed in with instructions. > > Also, this routine is not LE conforming. It has never been. > > I'm used to doing a BSM to return as a subroutine to have addressing modes > match. I had assumed that the caller did BSSM not just BASR or BALR > > So when the program ends and returns to the caller via BSM R14, wow, you > would not believe all the ESTAEs that get driven (including this programs > ESTAEX). LE throws a fit and thankfully, having set up SYSMDUMP with > DISP=MOD, I get the dump I need and IPCS ignores the second dump. ;-) > > So, R14 does not have the hi-order bit on when I am called. > > COBOL being used is Enterprise COBOL 4.2 (which is currently supported). > > The environment, just so we are all on the same page is JES2, z/OS 2.2, > z13EC. > > Regards, > Steve Thompson > > PS. I have been scanning various manuals (including the LE one) and > nothing is said about this. And I don't have any MVS/XA or MVS/ESA manuals > around anymore. >
