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

Reply via email to