EXTR routines are given control under the owner of the terminating TCB :

"ETXR=exit rtn addr  Specifies the address of the end-of-task exit routine. It 
is given control after the subtask normally or abnormally terminates. The exit 
routine is given control when the originating task becomes active after the 
subtask terminates. It must be in virtual storage. When this parameter is 
coded, a DETACH macro must be issued to remove the subtask from the system 
after the subtask terminates."

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Seymour J Metz
Sent: Wednesday, October 31, 2018 5:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S23E

Is DETACH self valid?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&amp;data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7C2c2c0176f7044c1b361808d63f565300%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766037332184201&amp;sdata=RZjKjnvV8u3Hni5Qz301pyYgdlwIxomQd0reLfymln4%3D&amp;reserved=0

________________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of Rob 
Scott <rsc...@rocketsoftware.com>
Sent: Wednesday, October 31, 2018 7:01 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: S23E

I would suggest performing the DETACH from an "end of task exit routine" whose 
address is passed on the ETXR keyword of ATTACH(X).

Rob Scott
Rocket Software

-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Joseph Reichman
Sent: Wednesday, October 31, 2018 2:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: S23E

Hi



I know system 23E is for invalid TCB it seems to me that TCB is valid could any 
confirm that the following is the correct sequence of step to terminate a TASK

I have 4 tasks I do an  ATTACH  with ECB =,  SYSECB is the ECB, I am  using 
END_ECB I use to tell the subtask to return via BR 14



Thanks

DETACH_LOOP DS  0H

*

         L    R1,END_ECB

*

         POST (R1)               Post it

*

*

         WAIT ECB=SYSECB



         MVI  TASK_ADDR,X'00'

*

         DETACH TASK_ADDR

*

*

*

         LA   R7,THREAD_LEN(,R7)    Next

         BCT  R6,DETACH_LOOP

*

*




----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu 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://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecure-web.cisco.com%2F1SDa6zEsf24rrXj-6HeclwpogRoEVIlcUyu5AXkSCPIxwUa-YF1g82hFJyg5RmIpieXs1WODx68VG6jCOhQf0vEgkmppj1dzAhMpIefw3cbNvD9IRXM7HT4ashpW_yYrX5niHAQntC93lpFLtkq68GuuLJHxhWYXIMSc3AK1pk809OiKKYkSYG8YatSb-mCFS8gMnsNbUOfUZlXDeAeGmaXEFnM87aQh-tS3bGw5zEAWPgT21Wnc3jugVj0wSTDhENviOp6BvRXCL3Z09Hoc7xYb-qWemNwXIABJ-odwUzYjgLI_zqYa2xtTMtxoBur6v2vheT9LGHQMhkbbOFZRMIuuA9qO_UdPh_5tR-g9ob6iPe20PqLO5LDJI9xQxmJoP%2Fhttps%253A%252F%252Fmy.rocketsoftware.com%252FRocketCommunity%252FRCEmailSupport&amp;data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7C2c2c0176f7044c1b361808d63f565300%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766037332184201&amp;sdata=P14xCB1c4mBXYIRJe0Xq%2FLGuUE3W%2FVZypY7AS5O4Aro%3D&amp;reserved=0
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fsecure-web.cisco.com%2F1gyWY7Wa2Uyqic4xzPEFNGuPzDj1a7qF3CxgYJi_wGmjAn8q4_qO1oJf5r9aMo42QKls8dvhVApqBdFj9f57FgyCv-02VYJRWlk_yuUP7aBha3WLop7kTMk4MVcfFPxYa8I-6K7pjKBefqdP2KflnqBHE2xkaxrqhmjlHM-h8Ubkvc7co1vrm7CCPPKJuV7lADSlSc2lasEbejuj7PIMPmgmHXIqUnHmWaiqjFPK-qk-iVYzd7vvkk6GqTHlEpTHGsyZ7tEnjozJ6hndbJKlgDKFirxvTr5ifvvRfL5F8XX-6T8dbdJVC4ejK3YBCu2ldMRr3wAY9Y0MeS5X4d2vsivpF8RI847EqJE-cDrKlRnISsvnxftg5xT0NRueCChs_%2Fhttp%253A%252F%252Fwww.rocketsoftware.com%252Fmanage-your-email-preferences&amp;data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7C2c2c0176f7044c1b361808d63f565300%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766037332184201&amp;sdata=TO7dbSYt%2BLG8Fb857jh%2Flwz%2BC63%2FhP7Pdy4JxYUL%2BVo%3D&amp;reserved=0
Privacy Policy - 
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fsecure-web.cisco.com%2F1D2ZTE9CMCGNqDrxHyDZI3ecp_p33XI_XQv9M0WCSXQva6pA3tdZKJpy0x9tf4TjgHDEX4neLYa6pPti3li1dvyTTAxnN9nsKzH5s3R_slyFWxpoBpmLmN1l9y3MpW7zgumW6hLXI_Iq9Ca15ZE-c6E_E87PXkHUbqP2FLruuRs3qX93f0j_xngE-Yk2wlKmkeOm_ZOxwsVMBKSo8MEYReHfV2TH_EN8NaZ_44yFnjMwO6eeH3Ly1OJZa01fw3m3N74PKYinxj5o-04k2MyUbb9blis8FauM3z7hg7bBuyRpcUSo6vJDPspAmoXkHegt8FHrCkIwHx9u8teG5EDea6PQrFNyqtsh-3iStUFyTOzYHR4eoiVBSTkfyoBxDON7Y%2Fhttp%253A%252F%252Fwww.rocketsoftware.com%252Fcompany%252Flegal%252Fprivacy-policy&amp;data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7C2c2c0176f7044c1b361808d63f565300%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766037332184201&amp;sdata=86NLNXLAWEOHNjXD9%2BkhKyseqFCfrnWBqBzqP0RFOzY%3D&amp;reserved=0
================================

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 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to