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
