What is the MVCL trying to accomplish? Clear a number of bytes equal to the address of WORKAREA? Might you want the length of the OBTAIN and the length of the MVCL to be the same?
Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jim Thomas Sent: Tuesday, February 11, 2014 3:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Storage Obtain ..... Hello ... Given the below ... BAKR R0,R0 MSTA R0 MSTA R12 MODESET MODE=SUP, KEY=ZERO L R11,PSAAOLD-PSA SETLOCK OBTAIN, ASCB=(11), TYPE=CML, MODE=UNCOND XR R4,R4 L R7,PSAAOLD-PSA STORAGE OBTAIN, LENGTH=LCLDSCTL, SP=244, LOC=(31,31), CAUB=CURRENT, OWNER=HOME, LINKAGE=BRANCH LR R11,R1 LR R0,R1 XR R14,R14 XR R15,R15 L R1,=AL4(WORKAREA) MVCL R0,R14 Everything up to the STORAGE OBTAIN seems to work but w/trying to chain backward / forward save area's (no I not really using the linkage stack), I get a S0C4-4 ??... I understand the S0C4 because R1 is zeroes ... but ... why ??. My LTR after the STORAGE OBTAIN does not catch a failure. The only reason I'm trying to use the linkage stack is because this is at the very start of my program. The trace table shows the SSRV for the OBTAIN .. but it's obviously failing... Could anybody give me some direction / suggestions ??. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
