Ok got one more idea just be sure I didn’t mess up the TASK_ADDRESS in the 
storage are shared between main task and subtask 
I am going to put a TESTAUTH breakpoints right before I return to main and look 
at the TASK_ADDR and PSATOLD



> On Oct 31, 2018, at 3:10 PM, Wayne Driscoll <[email protected]> 
> wrote:
> 
> Why use TCBUSER and KEY 0? Allocate a storage area and put its address in a 
> task level Name/Token pair so you don't have to mess with key switching or 
> potential integrity issues.
> Wayne Driscoll
> Rocket Software
> Note - All opinions are strictly my own.
> 
> -----Original Message-----
> From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
> Joseph Reichman
> Sent: Wednesday, October 31, 2018 12:57 PM
> To: [email protected]
> Subject: Re: S23E
> 
> I still think I am going to need a ECB or actually 4 to say I’m done or else 
> the main task might finish first looking at the registers None have any info 
> from main task or subtask Rob I’m not trying to complicate things But as I 
> said the main task needs to know when things are done may have to store ECB 
> Address in TCBUSER and have to go key 0
> 
> If there was an easier way....
> 
> 
>> On Oct 31, 2018, at 1:37 PM, Rob Scott <[email protected]> wrote:
>> 
>> 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 <[email protected]> On 
>> Behalf Of Seymour J Metz
>> Sent: Wednesday, October 31, 2018 5:29 PM
>> To: [email protected]
>> Subject: Re: S23E
>> 
>> Is DETACH self valid?
>> 
>> 
>> --
>> Shmuel (Seymour J.) Metz
>> https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gm
>> u.edu%2F~smetz3&amp;data=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdf
>> f363ca71c4499abefe08d63f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%
>> 7C0%7C636766054373394431&amp;sdata=q8jtMIOj5IMcXx9Cc%2FbLzrNjJwNP3T%2B
>> ya72ImFYWx3o%3D&amp;reserved=0
>> 
>> ________________________________________
>> 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://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecur
>> e-web.cisco.com%2F1SDa6zEsf24rrXj-6HeclwpogRoEVIlcUyu5AXkSCPIxwUa-YF1g
>> 82hFJyg5RmIpieXs1WODx68VG6jCOhQf0vEgkmppj1dzAhMpIefw3cbNvD9IRXM7HT4ash
>> pW_yYrX5niHAQntC93lpFLtkq68GuuLJHxhWYXIMSc3AK1pk809OiKKYkSYG8YatSb-mCF
>> S8gMnsNbUOfUZlXDeAeGmaXEFnM87aQh-tS3bGw5zEAWPgT21Wnc3jugVj0wSTDhENviOp
>> 6BvRXCL3Z09Hoc7xYb-qWemNwXIABJ-odwUzYjgLI_zqYa2xtTMtxoBur6v2vheT9LGHQM
>> hkbbOFZRMIuuA9qO_UdPh_5tR-g9ob6iPe20PqLO5LDJI9xQxmJoP%2Fhttps%253A%252
>> F%252Fmy.rocketsoftware.com%252FRocketCommunity%252FRCEmailSupport&amp
>> ;data=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe0
>> 8d63f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C6367660543733
>> 94431&amp;sdata=zmrYeYTowRl7RqB1GKp1QPW4hjzAy7kbHVzvPwmG3AQ%3D&amp;res
>> erved=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_qO1
>> oJf5r9aMo42QKls8dvhVApqBdFj9f57FgyCv-02VYJRWlk_yuUP7aBha3WLop7kTMk4MVc
>> fFPxYa8I-6K7pjKBefqdP2KflnqBHE2xkaxrqhmjlHM-h8Ubkvc7co1vrm7CCPPKJuV7lA
>> DSlSc2lasEbejuj7PIMPmgmHXIqUnHmWaiqjFPK-qk-iVYzd7vvkk6GqTHlEpTHGsyZ7tE
>> njozJ6hndbJKlgDKFirxvTr5ifvvRfL5F8XX-6T8dbdJVC4ejK3YBCu2ldMRr3wAY9Y0Me
>> S5X4d2vsivpF8RI847EqJE-cDrKlRnISsvnxftg5xT0NRueCChs_%2Fhttp%253A%252F%
>> 252Fwww.rocketsoftware.com%252Fmanage-your-email-preferences&amp;data=
>> 02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5
>> a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054373394431&
>> amp;sdata=qHOjSYHHcYS%2BSNaYzUTv4ZI%2BtclxQa%2BQjs8oW26aV8o%3D&amp;res
>> erved=0 Privacy Policy - 
>> https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fsecure
>> -web.cisco.com%2F1D2ZTE9CMCGNqDrxHyDZI3ecp_p33XI_XQv9M0WCSXQva6pA3tdZK
>> Jpy0x9tf4TjgHDEX4neLYa6pPti3li1dvyTTAxnN9nsKzH5s3R_slyFWxpoBpmLmN1l9y3
>> MpW7zgumW6hLXI_Iq9Ca15ZE-c6E_E87PXkHUbqP2FLruuRs3qX93f0j_xngE-Yk2wlKmk
>> eOm_ZOxwsVMBKSo8MEYReHfV2TH_EN8NaZ_44yFnjMwO6eeH3Ly1OJZa01fw3m3N74PKYi
>> nxj5o-04k2MyUbb9blis8FauM3z7hg7bBuyRpcUSo6vJDPspAmoXkHegt8FHrCkIwHx9u8
>> teG5EDea6PQrFNyqtsh-3iStUFyTOzYHR4eoiVBSTkfyoBxDON7Y%2Fhttp%253A%252F%
>> 252Fwww.rocketsoftware.com%252Fcompany%252Flegal%252Fprivacy-policy&am
>> p;data=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe
>> 08d63f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054373
>> 404441&amp;sdata=z1q%2Fs2TcRUC3cjvBeOAxBp%2F3wqAjkQaF%2Fzbox7Ywn%2Fg%3
>> D&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 [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 
>> ================================ 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%2Fmy.ro
>> cketsoftware.com%2FRocketCommunity%2FRCEmailSupport&amp;data=02%7C01%7
>> Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5a49d1%7C7
>> 9544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054373404441&amp;sdata
>> =YaxX7YyzoRONx4jI%2BpZzl%2B9fwH%2FXQprCBWt%2FEz%2BAmho%3D&amp;reserved
>> =0 Unsubscribe from Marketing Messages/Manage Your Subscription 
>> Preferences - 
>> https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.ro
>> cketsoftware.com%2Fmanage-your-email-preferences&amp;data=02%7C01%7Cwd
>> riscoll%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5a49d1%7C7954
>> 4c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054373404441&amp;sdata=sR
>> ZUsT4Cz8PGximvAkgKBhbMYoho1p3%2FFU5%2BWzGnO7c%3D&amp;reserved=0
>> Privacy Policy - 
>> https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.ro
>> cketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy&amp;data=02%7C01%7
>> Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5a49d1%7C7
>> 9544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054373404441&amp;sdata
>> =EiF6gmCdKnEZV9ONGk8JPE7C%2B8Lp%2B2AkwP45QoHUO%2B4%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 [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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to