Don't understand addr fields ? shouldn't the value SYNCHCOMPADDR contain the return code from the SRB or FRR meaning X.SRBCCOMCODE
-----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Binyamin Dissen Sent: Thursday, December 27, 2018 2:08 PM To: [email protected] Subject: Re: Explanation of IEAMSCHD parameter SYNCHCOMPADDR Right away I can tell you that the *addr fields are pointers to the real fields, i.e., indirect pointers. On Thu, 27 Dec 2018 13:12:51 -0500 Joseph Reichman <[email protected]> wrote: :>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= , :> :> 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]> 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] 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
