Thanks Robb for that link

Joe Reichman

On Mon, Jun 8, 2026 at 2:45 PM 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

Reply via email to