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
