The exits are not in common, they don't need to be. I have a dump which shows that the right TCB is running, the parameters supplied to the exit are correct, it's just the wrong exit has been called. I have not opened a problem with IBM, I was hoping to get some feedback from IBMers here first.
-----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Seymour J Metz Sent: 23 April 2021 18:12 To: [email protected] Subject: Re: ASCRE termination exits: how many? Is the exit loaded in common? Have you dumped the parameter lists and verified that they contain the expected value? Opened an ETR (or whatever they're calling it these days)? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [[email protected]] on behalf of Rob Scott [[email protected]] Sent: Thursday, April 22, 2021 11:58 AM To: [email protected] Subject: Re: ASCRE termination exits: how many? The address of the TRMEXIT is stored in the ASCRE parameter list prior to the PC routine that invokes the ASCRE service. If the newborn ASID-1 runs TRMEXIT-2, I would imagine that either the parmlist for ASCRE-1 is the same as the one for ASCRE-2 or the TRMEXIT-1 address is in fact TRMEXIT-2. To debug, I would consider the following : (o) : Are you using the same storage area for the MF=L form for both invocations of ASCRE? If so, what happens when you use different ones? (o) : What are the contents of the ODA after both ASCREs have been issued and what are the RC+RSN codes for both services? (o) : The creating TCB could wait on an ECB that will be POSTed by the newborn ASID-1 jobstep code when it starts and then only perform ASCRE-2 for ASID-2 afterwards. (o) : Is the storage containing TRMEXIT-1 and TRMEXIT-2 as expected and not released or re-used when ASID-2 terminates. It is unlikely that there is a problem with ASCRE. Rob Scott Rocket Software From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Robin Atwood Sent: 22 April 2021 14:15 To: [email protected] Subject: Re: ASCRE termination exits: how many? EXTERNAL EMAIL I disagree. It says the termination routine is run under the creating TCB, it doesn't say what happens if another ASCRE has been issued with a different exit. I have a dump of an abend in one of the exits which has the right parameter list and TCB but the code is the wrong exit. -----Original Message----- From: IBM Mainframe Discussion List <[email protected]<mailto:[email protected]>> On Behalf Of Binyamin Dissen Sent: 22 April 2021 19:40 To: [email protected]<mailto:[email protected]> Subject: Re: ASCRE termination exits: how many? The manual documents otherwise: "Specifies the address of the termination routine that gets control when the new address space terminates. The routine receives control in 31-bit addressing mode as an asynchronous exit in the creator's address space under the creator's TCB." I would suggest that you display your parameter lists and verify that you are requesting what you expect. And validate which TCB is running the exit. On Thu, 22 Apr 2021 18:26:38 +0700 Robin Atwood <[email protected]<mailto:[email protected]>> wrote: :>I issue an ASCRE macro with TRMEXIT specified and a new AS is started. Then :>from another TCB I issue an ASCRE with TRMEXIT :> :>specifying a different exit routine and a second AS is started. When the :>first created AS terminates which TRMEXIT gets driven? I :> :>had assumed that the TRMEXIT would be associated with the TCB that owned the :>new AS and you could have different exit :> :>routines for different TCBs, but testing seems to show that the last :>specified TRMEXIT gets called. So is it correct to say that you :> :>can only have one TRMEXIT routine per address space? :> :> :> :>Thanks :> :>Robin :> :> :> :> :> :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN -- Binyamin Dissen <[email protected]<mailto:[email protected]>> http://secure-web.cisco.com/1dSxr-cMuk_Q1U8R30QvTHQkDN78jhsK_HGIS4084azCE4_p itQOn3OysRdHqvT6zrrvM5VGaLyiAYpWmNhp7UAp8xbCdPcuiC3CNZbHcJqKQSYZJyVk67MKHRQy V_knlvWjjcwuIMrAaq_j4ZfbGTG1BiLHTPIEBqo1GWfCKsnfhvIGniPrWICH_k-KRODZ6e6xhbAm bJfzZRxBtHUZUgfgWHHP0FEuDpKipwCRWYgAALAWBuBx7aw1IjbKgXH6dH_M15vD8cdHOgVSeSvZ ZcNLdvdvSnty5JlTcIXlqibTreNJuBkIOnpebBooIUEbnySA9-d87di9a5UEA1hTJeRN2qYztacU y9tI9Vn52G8hkDFnhsmKHZ89HOKJTPPNXPHIjLiku_Yc6E-XebXSqbsuBIBe7fX1mfOAleIZ2YMr 5TGbKSoJuDpptDN-aRfoh/http%3A%2F%2Fwww.dissensoftware.com<http://secure-web. cisco.com/1dSxr-cMuk_Q1U8R30QvTHQkDN78jhsK_HGIS4084azCE4_pitQOn3OysRdHqvT6zr rvM5VGaLyiAYpWmNhp7UAp8xbCdPcuiC3CNZbHcJqKQSYZJyVk67MKHRQyV_knlvWjjcwuIMrAaq _j4ZfbGTG1BiLHTPIEBqo1GWfCKsnfhvIGniPrWICH_k-KRODZ6e6xhbAmbJfzZRxBtHUZUgfgWH HP0FEuDpKipwCRWYgAALAWBuBx7aw1IjbKgXH6dH_M15vD8cdHOgVSeSvZZcNLdvdvSnty5JlTcI XlqibTreNJuBkIOnpebBooIUEbnySA9-d87di9a5UEA1hTJeRN2qYztacUy9tI9Vn52G8hkDFnhs mKHZ89HOKJTPPNXPHIjLiku_Yc6E-XebXSqbsuBIBe7fX1mfOAleIZ2YMr5TGbKSoJuDpptDN-aR foh/http%3A%2F%2Fwww.dissensoftware.com> Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ================================ Rocket Software, Inc. and subsidiaries ? 77 Fourth Avenue, Waltham MA 02451 ? Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy ================================ This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
