Binyamin, Twice because the first is for R0,R1 and the second is for R12,R13.
When my ASCB = home, then it is a local lock. Ohh.. good one Binyamin ... duhh ... I didn't even think of that ... I'll preserve the registers, especially R13, retry and repost. Thank you kind Sir, Kind Regards, Jim Thomas -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Binyamin Dissen Sent: Wednesday, February 12, 2014 3:55 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Storage Obtain ..... On Tue, 11 Feb 2014 17:50:53 -0600 Jim Thomas <j...@thethomasresidence.us> wrote: :>Given the below ... :> BAKR R0,R0 :> MSTA R0 :> MSTA R12 Why twice? :> MODESET MODE=SUP, :> KEY=ZERO :> L R11,PSAAOLD-PSA :> SETLOCK OBTAIN, :> ASCB=(11), :> TYPE=CML, :> MODE=UNCOND Why not directly take the local lock rather than this convoluted form? Also, without REGS=, R11-R13 are changed. :> 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) Is workarea the same length (or shorter) than LCLDSCTL? :> 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. SETLOCK has altered your R13. :>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 ??. Which instruction is causing the 0C4? What is your base register? -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN