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
