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
