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

Reply via email to