LARL does not use a base register. It is relative to the current instruction.
Now, if you were trying to access a DSECT field via LARL I expect that the assembler would be unforgiving. On Tue, 12 Sep 2023 13:36:14 -0400 Joseph Reichman <[email protected]> wrote: :>I was using the base register of RECVPARM R5 in the LARL instruction :> :>Thanks :> :>> > > XC ESTAED,ESTAED Clear ESTAE parameter list :>> > > :>> > > LA R5,ESTAED :>> > > :>> > > USING RECVPARM,R5 :>> > > :>> > > MVC RECMOD,=CL8'TESTAUTR' :>> > > :>> > > ST R3,RECENTRY :>> > > :>> > > LARL R5,ENDMOD <----------------- ERROR :>> > > :>> > > ST R5,RECEND :>> > > :>> > > * ST R9,RECCTLMD :>> > > :>> > > MVC RECRTRY,=A(RETURN) :>> > > :>> > > LR R8,R0 :>> > > :>> > > * LR R8,R0 :> :>-----Original Message----- :>From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Seymour J Metz :>Sent: Monday, September 11, 2023 7:21 PM :>To: [email protected] :>Subject: Re: Mysterious S0C4 pic 10 :> :>I generally look at the RB chain for the failing TCB. After that it's the usual suspects. :> :>________________________________________ :>From: IBM Mainframe Discussion List <[email protected]> on behalf of Joseph Reichman <[email protected]> :>Sent: Monday, September 11, 2023 3:44 PM :>To: [email protected] :>Subject: Re: Mysterious S0C4 pic 10 :> :>The SDWA has the PROGRAM not the RB :> :>Which I kind of strange :> :>Given the fact that none registers :> :>Have any value from the program :> :> :> :>On Mon, Sep 11, 2023 at 3:39 PM Bill Hitefield < [email protected]> wrote: :> :>> Does the R13 point to your RSA, or does it point to someone else's :>> RSA. If it does, is yours in the save-area chain? :>> :>> And, in the dump (if there was one), does the S0C4 show up in an SVRB :>> or a PRB? :>> :>> Bill Hitefield :>> :>> > -----Original Message----- :>> > From: IBM Mainframe Discussion List <[email protected]> On :>> > Behalf Of Joseph Reichman :>> > Sent: Monday, September 11, 2023 3:33 PM :>> > To: [email protected] :>> > Subject: Re: Mysterious S0C4 pic 10 :>> > :>> > Totally different that my program not one is in the program storage :>> > :>> > > On Sep 11, 2023, at 3:08 PM, Seymour J Metz <[email protected]> wrote: :>> > > :>> > > ?What is supposed to be in the registers on entry? Have you :>> > > verified :>> that they :>> > are set correctly? What are the registers at the PIC '10'X? :>> > > :>> > > ________________________________________ :>> > > From: IBM Mainframe Discussion List <[email protected]> on :>> > > behalf of Joseph Reichman <[email protected]> :>> > > Sent: Monday, September 11, 2023 9:32 AM :>> > > To: [email protected] :>> > > Subject: Mysterious S0C4 pic 10 :>> > > :>> > > Hi :>> > > :>> > > :>> > > :>> > > I have the following lines of code which basically sets up the :>> > > parameter list to an ESTAE and calls it :>> > > :>> > > :>> > > :>> > > Later on when I populate Parse Parameter list and call IKJPARS I get :>> a :>> > > s0c4 pic 10 right after the BALR :>> > > :>> > > When I comment out the code below (that sets up the ESTAE :>> > > parameter :>> > > list) everything with PARS works great :>> > > :>> > > :>> > > :>> > > I check and double checked there is no storage overlay, I am just :>> > > looking for guidance how to debug this :>> > > :>> > > :>> > > :>> > > Thank you :>> > > :>> > > :>> > > :>> > > XC ESTAED,ESTAED Clear ESTAE parameter list :>> > > :>> > > LA R5,ESTAED :>> > > :>> > > USING RECVPARM,R5 :>> > > :>> > > MVC RECMOD,=CL8'TESTAUTR' :>> > > :>> > > ST R3,RECENTRY :>> > > :>> > > LARL R5,ENDMOD :>> > > :>> > > ST R5,RECEND :>> > > :>> > > * ST R9,RECCTLMD :>> > > :>> > > MVC RECRTRY,=A(RETURN) :>> > > :>> > > LR R8,R0 :>> > > :>> > > * LR R8,R0 :>> > > :>> > > ESTAE (R8),CT,PARAM=(R5),MF=(E,ESTAEL) :>> > > :>> > > * :>> > > :>> > > :>> > > :>> > > Rest of my code :>> > > :>> > > :>> > > :>> > > :>> > > :>> > > * :>> > > :>> > > * check if the sub system is running :>> > > :>> > > * :>> > > :>> > > IEFSSI REQUEST=QUERY, :>> > > :>> > > SUBNAME=TSTA, :>> > > :>> > > WORKAREA=JSIPTR, :>> > > :>> > > WORKASP=SP, :>> > > :>> > > RETCODE=RETURN_CODE, :>> > > :>> > > RSNCODE=RSNCODE, :>> > > :>> > > MF=(E,IEFLST) :>> > > :>> > > * :>> > > :>> > > CLC RETURN_CODE,=F'0' Q. IS TSTA SS THERE :>> > > :>> > > * BNE RETURN :>> > > :>> > > :>> > > :>> > > :>> > > :>> > > * :>> > > :>> > > USING CPPL,R10 :>> > > :>> > > TITLE ' PARSE CONTROL LIST ' :>> > > :>> > > LA R1,MYPPL :>> > > :>> > > USING PPL,R1 :>> > > :>> > > L R5,=A(MODPCL) :>> > > :>> > > ST R5,PPLPCL :>> > > :>> > > LA R5,MYANS ADDR OF ANSWER PLACE :>> > > :>> > > ST R5,PPLANS :>> > > :>> > > MVC PPLCBUF(4),CPPLCBUF :>> > > :>> > > MVC PPLUPT,CPPLUPT :>> > > :>> > > * MVC PPLUPT,TSTUPT :>> > > :>> > > MVC PPLECT,CPPLECT :>> > > :>> > > * MVC PPLECT,TSTECT :>> > > :>> > > LA R4,MYECB GET ADDR OF ECB :>> > > :>> > > XC MYECB,MYECB :>> > > :>> > > ST R4,PPLECB :>> > > :>> > > LA R15,SAVEEXIT :>> > > :>> > > ST R15,PPLUWA :>> > > :>> > > L R15,CVTPTR(,0) POINT TO THE CVT :>> > > :>> > > L R15,CVTPARS-CVT(,R15) GET IKJPARS EP :>> > > :>> > > BASR R14,R15 CALL IKJPARS :>> > > :>> > > LTR R15,R15 RC FROM PARS OK :>> > > :>> > > :>> > > :>> > > :>> > > :>> > > :>> > > :>> > > WORKAREA DSECT :>> > > :>> > > DS 18F :>> > > :>> > > SAVEEXIT DS 18F :>> > > :>> > > ABENDM DS CL45 :>> > > :>> > > ESTAED DS XL(RECVLEN) <------- storage are for ESTAE :>> parameter list :>> > > :>> > > :>> > > JSIPTR DS A :>> > > :>> > > TCB$ DS F :>> > > :>> > > RB$ DS F :>> > > :>> > > SRBA DS CL80 :>> > > :>> > > LTOKEN DS CL8 :>> > > :>> > > DBWRD DS D :>> > > :>> > > RETCODE DS F :>> > > :>> > > ASCBADDR DS F :>> > > :>> > > SP DS X :>> > > :>> > > RETURN_CODE DS F :>> > > :>> > > ALELST ALESERV MF=L :>> > > :>> > > ALELEN EQU *-ALELST :>> > > :>> > > :>> > > :>> > > ------------------------------------------------------------------ :>> > > ---- 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 :>> > :>> > -------------------------------------------------------------------- :>> > -- 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 :>> :> :>---------------------------------------------------------------------- :>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 :> :>---------------------------------------------------------------------- :>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
