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
