In my code running under TESTAUTH I made a breakpoint after the wait ECB=SYSECB 
and I go directly to my recovery routine with a 23E makes me think it’s not the 
DETACH 
Not sure more so I posted the code if anyone code confirm the logic is right ?



> On Oct 31, 2018, at 1:28 PM, Seymour J Metz <[email protected]> wrote:
> 
> Is DETACH self valid?
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> ________________________________________
> From: IBM Mainframe Discussion List <[email protected]> on behalf of 
> Rob Scott <[email protected]>
> Sent: Wednesday, October 31, 2018 7:01 AM
> To: [email protected]
> 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 <[email protected]> On Behalf Of 
> Joseph Reichman
> Sent: Wednesday, October 31, 2018 2:20 AM
> To: [email protected]
> 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 
> [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://secure-web.cisco.com/1SDa6zEsf24rrXj-6HeclwpogRoEVIlcUyu5AXkSCPIxwUa-YF1g82hFJyg5RmIpieXs1WODx68VG6jCOhQf0vEgkmppj1dzAhMpIefw3cbNvD9IRXM7HT4ashpW_yYrX5niHAQntC93lpFLtkq68GuuLJHxhWYXIMSc3AK1pk809OiKKYkSYG8YatSb-mCFS8gMnsNbUOfUZlXDeAeGmaXEFnM87aQh-tS3bGw5zEAWPgT21Wnc3jugVj0wSTDhENviOp6BvRXCL3Z09Hoc7xYb-qWemNwXIABJ-odwUzYjgLI_zqYa2xtTMtxoBur6v2vheT9LGHQMhkbbOFZRMIuuA9qO_UdPh_5tR-g9ob6iPe20PqLO5LDJI9xQxmJoP/https%3A%2F%2Fmy.rocketsoftware.com%2FRocketCommunity%2FRCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
> http://secure-web.cisco.com/1gyWY7Wa2Uyqic4xzPEFNGuPzDj1a7qF3CxgYJi_wGmjAn8q4_qO1oJf5r9aMo42QKls8dvhVApqBdFj9f57FgyCv-02VYJRWlk_yuUP7aBha3WLop7kTMk4MVcfFPxYa8I-6K7pjKBefqdP2KflnqBHE2xkaxrqhmjlHM-h8Ubkvc7co1vrm7CCPPKJuV7lADSlSc2lasEbejuj7PIMPmgmHXIqUnHmWaiqjFPK-qk-iVYzd7vvkk6GqTHlEpTHGsyZ7tEnjozJ6hndbJKlgDKFirxvTr5ifvvRfL5F8XX-6T8dbdJVC4ejK3YBCu2ldMRr3wAY9Y0MeS5X4d2vsivpF8RI847EqJE-cDrKlRnISsvnxftg5xT0NRueCChs_/http%3A%2F%2Fwww.rocketsoftware.com%2Fmanage-your-email-preferences
> Privacy Policy - 
> http://secure-web.cisco.com/1D2ZTE9CMCGNqDrxHyDZI3ecp_p33XI_XQv9M0WCSXQva6pA3tdZKJpy0x9tf4TjgHDEX4neLYa6pPti3li1dvyTTAxnN9nsKzH5s3R_slyFWxpoBpmLmN1l9y3MpW7zgumW6hLXI_Iq9Ca15ZE-c6E_E87PXkHUbqP2FLruuRs3qX93f0j_xngE-Yk2wlKmkeOm_ZOxwsVMBKSo8MEYReHfV2TH_EN8NaZ_44yFnjMwO6eeH3Ly1OJZa01fw3m3N74PKYinxj5o-04k2MyUbb9blis8FauM3z7hg7bBuyRpcUSo6vJDPspAmoXkHegt8FHrCkIwHx9u8teG5EDea6PQrFNyqtsh-3iStUFyTOzYHR4eoiVBSTkfyoBxDON7Y/http%3A%2F%2Fwww.rocketsoftware.com%2Fcompany%2Flegal%2Fprivacy-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

Reply via email to