Thanks 


> On Oct 31, 2018, at 7:01 AM, Rob Scott <[email protected]> wrote:
> 
> 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://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

Reply via email to