Sorry Here is the IEAMSCHED and below is the SRB and FRR I inserted H'0' to test out the recovery
I tried all different scenarios to get SRBCCOMCODE not to = 0
1) Setting R15 with a 4 in the FRR with SETRP RC=0 (not shown here)
2) Setting the r15 with a 4 in the srb
3) Coding FRRADDR=NOFRR
There doesn't seem to be a case where srbccomcode get a non zero value
D050 00F30 2669 ST R11,X.ADDR_PTR
2671 IEAMSCHD EPADDR=X.SRB_EPA,
ENV=STOKEN,
TARGETSTOKEN=X.TARGETSTOKEN,
PRIORITY=GLOBAL,
FRRADDR=X.FRR_ENT,
KEYVALUE=KEYZERO,
RMTRADDR=RTM_EPA,
PARM=X.ADDR_PTR,
SYNCHCOMPADDR=X.SRBCCOMCODE,
SYNCHCODEADDR=X.SRBCCODE,
SYNCHRSNADDR=X.SYNCRSINIT,
SYNCH=YES,MF=(E,SCHED_LIST)
2672+* MACDATE -05/03/13-<4>
L R15,X.SRBCCOMCODE
Get
LTR R15,R15
BNZ INIT_ABEND
SRB and FRR code
***********************************************************************
* Start of Srb Code *
***********************************************************************
DBGRGETJ DS 0D
BAKR R14,0
LR R3,R15 Point to entry
USING DBGRGETJ,R3
USING ESTPARAM,R2
MVC ESTRETRY,=A(EXITGETJ) Retry Point
MVC ESTMOD,=CL8'DBGRGETJ' Modname
XR R4,R4 Clear For Additon
ICM R4,B'0011',@ESTSTK
AH R4,=H'1'
* DC H'0'
STCM R4,B'0011',@ESTSTK
DROP R2
LR R2,R1 GET PTR STORAGE AREA
T
USING ADDR,R2
Find out ASCB Of Scheduler
L R10,PSAAOLD Get Home Ascb
USING ASCB,R10
L R4,ASCBASXB Get Asxb
USING ASXB,R4
L R5,ASXBFSRB Point to first srb
USING SRB,R5
ADDRESS KEY CB'S
----------------
DROP R10
USING PSA,0
L R4,PSAAOLD LOCATE ASCB
USING ASCB,R4
L R4,ASCBASXB
DROP R4
USING ASXB,R4
L R5,ASXBLTCB LOCATE TCB
USING TCB,R5
L R7,TCBJSCB LOCATE JSCB
USING IEZJSCB,R7
L R8,ASXBSENV LOCATE ACEE
USING ACEE,R8
*
* SAVE SYSTEM INFO FIELDS
* -----------------------
MVC PROGNME(24),=24X'00'
CLC JSCBPGMN,=8X'00' Nothing there
BE GETACT
MVC X.PROGNME,JSCBPGMN GET PROGRAM NAME
B USER
GETACT DS 0H
L R7,JSCBACT
CLC JSCBPGMN,=8X'00' Nothing there
BE NEXT
MVC X.PROGNME,JSCBPGMN GET PROGRAM NAME
B USER
NEXT DS 0H
TM TCBXSCT1,TCBACTIV+TCBS3A
BZ NXTTCB
L R7,TCBJSCB LOCATE JSCB
CLC JSCBPGMN,=8X'00' Nothing there
BE ACTJSCB
MVC X.PROGNME,JSCBPGMN GET PROGRAM NAME
B USER
ACTJSCB DS 0H
L R7,JSCBACT
MVC X.PROGNME,JSCBPGMN GET PROGRAM NAME
B USER
NXTTCB DS 0H
L R5,TCBTCB
LTR R5,R5
BZ USER
B NEXT
USER DS 0H
DC H'0'
MVC X.USERNME,ACEEUSRI GET USERID
MVC X.GRPNAME,ACEEGRPN GET GROUP
XR R15,R15
B EXITGETJ
*
*
* EXIT
* ----
ERREXIT DS 0H
LA R15,4
EXITGETJ DS 0H
LA R15,4
PR RETURN
LTORG
ADDR DS 0D
JOBNME DS CL8
PROGNME DS CL8
USERNME DS CL8
GRPNAME DS CL8
ADDRASCB DS CL8
ASID_ADDR DS CL4
NULL DS X
ADDR_LEN EQU *-ADDR
FRR_EPA DS 0D
*----------------------------------------------------*
* Frr rountine *
*----------------------------------------------------*
LR R3,R15
USING FRR_EPA,R3
DBGRANCR 7
L R7,SSCTSUSE
USING DBGRBLK,R7
L R10,PCRTNPTR
USING DRPCRTN,R10
XR R15,R15 Clear out Low Order
LMH R15,R15,DBGRSEQ2
L R4,DBGRPC2
USING ESTPARAM,R2
OI ESTFLAG,@ESTXMEM
DROP R2
PC 0(R4)
SETRP RC=0
LA R15,4
BR R14
LTORG
TM_EPA EQU *
ND_DBGRJNFO EQU *-DBGRGETJ
--------------------------------------
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Binyamin Dissen
Sent: Thursday, December 27, 2018 12:48 PM
To: [email protected]
Subject: Re: Explanation of IEAMSCHD parameter SYNCHCOMPADDR
As always, why not show your code? In the past your descriptions have left
out critical details.
On Thu, 27 Dec 2018 08:35:32 -0500 Joseph Reichman <[email protected]
<mailto:[email protected]> >
wrote:
:>Hi
:>
:>
:>
:>I am trying to figure out under what circumstances SYNCHCOMPADDR returns a
:>non-zero return code from IEAMSCHED having synch=yes (I inserted a s0c1
:>abend in SRB routine) :> :> :> :>I set R15 with 4 before I return to RTM
from the FRR :> :> :> :>I tried it with a FRR and a retry routine :> :>I
tried with a FRR and percolate :> :> :> :>I tried it with out any frr or
NOFRR coded on the FRRADDR parameter :> :> :> :> :>
:>In each case the value of SYNCHCOMPADDR is zero
:>
:>
:>
:>
:>
:>Thanks
:>
:>
:>----------------------------------------------------------------------
:>For IBM-MAIN subscribe / signoff / archive access instructions, :>send
email to [email protected] <mailto:[email protected]> with
the message: INFO IBM-MAIN
--
Binyamin Dissen <[email protected]
<mailto:[email protected]> > http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] <mailto:[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
