Rob Thanks BTW My code is a concurrent TCP/IP server running my code I made a breakpoint right before the BR 14 under TESTAUTH I looked at the common DSECT / structure shared between the main and subtask Looked at TASK_ADDR had the same value as that presented by LISTTCB command
The code aborted after the task did a BR R14 to the system the PSW from the SDWA SDWAEC1 pointed to IGC042 instruction SPKA 0 The ATTACH and BR 14 ran in key 8 Any you are the expert the token will be the address of the ECB for the termination routine to post The mother task will WAIT 4,ECBLIST for all tasks to complete Thanks > On Nov 1, 2018, at 6:08 AM, Rob Scott <[email protected]> wrote: > > Do NOT use TCBUSER or CVTUSER. > > I would recommend something like this : > > (1) Design your own structure that describes your subtask so that you can > anchor your own control blocks, ECBs, pointers and flags in. > (2) Mother task builds this structure for each and every subtask that it > ATTACHs and keeps a list of them. > (3) Mother will then ATTACH daughter and wait for the daughter to signal that > it has started ok (maybe WAIT on a "started ECB") > (4) After posting the "I am started" ECB the daughter waits for mother to say > "GO" > (5) When mother is posted on the "I am started" ECB, it creates a HOME level > nametoken for the TCB, keyed on some known prefix and the TCB address > (6) Mother then posts the "GO" ECB for the daughter > > When the daughter terminates, the ETXR routine can lookup the name/token to > retrieve the address of the structure in (1). > > Mother can always supervise daughters thru the list of structures it > maintains in (1). > > > > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On Behalf Of > Joseph Reichman > Sent: Wednesday, October 31, 2018 5: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&data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7Cdff36 >> 3ca71c4499abefe08d63f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0 >> %7C636766054372343697&sdata=1i1IMVsOnFEsfoBarWb%2Bm9wn5rjGHnpSdbol >> %2Bhw%2BRTQ%3D&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& >> ;data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d6 >> 3f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C6367660543723436 >> 97&sdata=2feqJEuIJU4GTZw8YlEoxTqvEPwr1rrjoC1Q1ZJKhnE%3D&reserv >> ed=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&data= >> 02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5a49 >> d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054372343697& >> ;sdata=iOMqHhB0jwXbXwn%2FQTBTEGFUpTfUg0i3cjD8SkSlwnQ%3D&reserved=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%7CRScott%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d >> 63f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054372343 >> 697&sdata=Ct%2BBxPSr0EA3kkcvdd4UY0A9MIcrL6UlazZLUoRnDM8%3D&res >> erved=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&data=02%7C01%7 >> CRScott%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5a49d1%7C7954 >> 4c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054372353707&sdata=vA >> BYSy%2FkfVp6%2Fp6%2FKc%2BTHJM1s7xEX352sTtAVnwOOVY%3D&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&data=02%7C01%7CRS >> cott%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5a49d1%7C79544c1 >> eed224879a082b67a9a672aae%7C0%7C0%7C636766054372353707&sdata=vVPYV >> LYTREHfrVh%2FdK1Sl5f7XSbkl82FEnraSz7GpTc%3D&reserved=0 >> Privacy Policy - >> https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.ro >> cketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy&data=02%7C01%7 >> CRScott%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe08d63f5a49d1%7C7954 >> 4c1eed224879a082b67a9a672aae%7C0%7C0%7C636766054372353707&sdata=4M >> NM1rZO7NDBjCqryunDCYZaUxBvqkW39N1ngtu7XOs%3D&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
