On Mon, Jul 11, 2016 at 3: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. > Look at the TAM instruction. TEST ADDRESSING MODE TAM [E] '010B' The extended-addressing-mode bit and basic- addressing-mode bit, bits 31 and 32 of the current PSW, respectively, are tested, and the result is indi- cated in the condition code. Resulting Condition Code: 0 PSW bits 31 and 32 zeros (indicating 24-bit addressing mode) 1 PSW bit 31 zero and bit 32 one (indicating 31-bit addressing mode) 2 -- 3 PSW bits 31 and 32 ones (indicating 64-bit addressing mode) Program Exceptions: • Transaction constraint Programming Note: The case when PSW bit 31 is one and bit 32 is zero causes an early PSW specification exception to be recognized. > > 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. > -- "Pessimism is a admirable quality in an engineer. Pessimistic people check their work three times, because they're sure that something won't be right. Optimistic people check once, trust in Solis-de to keep the ship safe, then blow everyone up." "I think you're mistaking the word optimistic for inept." "They've got a similar ring to my ear." >From "Star Nomad" by Lindsay Buroker: Maranatha! <>< John McKown
