Run a GTF trace (SVC & PI) should be adequate. Do it w/o TEST to remove spurious entries - do it in batch.
Give a small time limit and take a dump when it exceeds CPU or times out. On Mon, 8 Jun 2026 14:45:16 -0400 Joseph Reichman <[email protected]> wrote: :>I have a breakpoint at the entry point of the subtask :> :> :>So after I do the first attach it goes right there :> :>For second I it never does I do listtcb with the TCB ADDR and tcbser is on :> :>Rob gave me a good idea if you have ideas how how I would debug this please :>share :> :>Thanks :> :> :>Joe Reichman :> :>On Mon, Jun 8, 2026 at 2:34?PM Binyamin Dissen < :>[email protected]> wrote: :> :>> That doesn't answer the questions. :>> :>> How do you know that it never took off? :>> :> :>> What basic debugging or tracing have you done? :>> :>> Did you try GTFing your code? Did you examine the task structure from a :>> DUMP? :>> :>> Possible issues with your code. :>> :>> Are SYSECB and PARM unique for each occurrence of ATTACH? :>> :>> :>> :>> :>> :>> On Mon, 8 Jun 2026 13:17:22 -0400 Joseph Reichman :>> <[email protected]> wrote: :>> :>> :>I am running the code under TESTAUTH it's a concurrent server with 4 :>> :>subtasks :>> :> :>> :>As soon as the ECB wait bit gets set I attach the next :>> :> :>> :>After the first task hits this point :>> :> :>> :>I attached the second which right away has TCBSER on :>> :> :>> :>And I don't see any abend on the console :>> :> :>> :> :>> :>RD_TASK_LOOP DS 0H :>> :> :>> :>* :>> :> :>> :> :>> :> LA R10,EZASMGW GLOBAL WORK AREA :>> :> :>> :> STC R6,TASK_ADDR :>> :> :>> :> OI TASK_ADDR,X'F0' :>> :> :>> :>* LA R15,NOW.TIE_DSECT :>> :> :>> :>* MVC E$ASMTOK-MYTIE(L'E$ASMTOK,R15),E$ASMTOK :>> :> :>> :> ST R11,ECB_ADDR :>> :> :>> :> ST R9,END_ECB :>> :> :>> :>* L R14,COMMADDR Get Communication Address :>> :> :>> :> MVC CLEANUP,=A(CLEAN_UP) :>> :> :>> :>* USING COM,R14 :>> :> :>> :>* MVC NOW.END_ECB,COMECBPT Store Commincation ecb :>> :> :>> :>.ATT ANOP :>> :> :>> :> ATTACH EP=DBGRTSK, X :>> :> :>> :> PARAM=((R10),(R7),CLIENT,SOCKTBL), :>> :> ECB=SYSECB, X :>> :> :>> :> SZERO=YES, X :>> :> :>> :> SVAREA=YES, X :>> :> :>> :> ASYNCH=NO, X :>> :> :>> :> ESTAI=(R12), X :>> :> :>> :> ALCOPY=NO,MF=(E,PARM),SF=(E,ATT_LIS) :>> :> :>> :> LTR R15,R15 ALL OKAY :>> :> :>> :> BZ SET_TCB STORE TCB ADDRESS :>> :> :>> :> WTO 'PROBLEM CREATING TASKS..' :>> :> :>> :> B RETURN :>> :> :>> :>SET_TCB DS 0H :>> :> :>> :> LR R8,R1 HOLD TCB :>> :> :>> :>IS_WAIT DS 0H :>> :> L R10,0(,R7) :>> :> TM 0(R10),X'80' :>> :> :>> :> BO ST_TCB A; NO; WAIT :>> :> :>> :>* :>> :> :>> :> STIMER WAIT,DINTVL=LTINTVL WAIT A BIT :>> :> :>> :>* :>> :> :>> :> B IS_WAIT :>> :> :>> :>ST_TCB DS 0H :>> :> :>> :> STCM R8,B'0111',TASK_ADDR+1 STORE TCB ADDRESS :>> :> :>> :>* :>> :> :>> :>* :>> :> :>> :>TEMP8 DS 0H :>> :> :>> :> LA R7,THREAD_LEN(,R7) BUMP UP Storage for threads :>> :> :>> :> LA R11,4(,R11) Bump up end ecb addr :>> :> :>> :> LA R9,4(,R9) Bump ecb address :>> :> :>> :> BCT R6,RD_TASK_LOOP :>> :> :>> :> :>> :> :>> :> :>> :> :>> :> :>> :> :>> -----Original :>> :>Message----- :>> :>From: IBM Mainframe Discussion List <[email protected]> On :>> Behalf Of :>> :>Binyamin Dissen :>> :>Sent: Monday, June 8, 2026 11:56 AM :>> :>To: [email protected] :>> :>Subject: Re: Subtask not getting dispatched :>> :> :>> :>How do you know that it never took off? :>> :> :>> :>What basic debugging or tracing have you done? :>> :> :>> :>On Mon, 8 Jun 2026 10:54:51 -0400 Joseph Reichman :>> :><[email protected]> wrote: :>> :> :>> :>:>Hi :>> :>:> :>> :>:>I attach a subtask get a TCB however the subtask never takes off :> :>> :>My :>> :>only hint is that TCBSER of TCBFLGS4 :> :>Is on for TCB that never got :>> :>dispatched :> :>Can anyone give me a clue how to get to the bottom of :>> this :>> :>:> :>> :>:>---------------------------------------------------------------------- :>> :>:>For IBM-MAIN subscribe / signoff / archive access instructions, :>send :>> :>email to [email protected] with the message: INFO IBM-MAIN :>> :>> -- :>> Binyamin Dissen <[email protected]> :>> http://www.dissensoftware.com :>> :>> Director, Dissen Software, Bar & Grill - Israel :>> :>> ---------------------------------------------------------------------- :>> 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 -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
