On Wed, 12 Feb 2014 07:58:13 -0600 Jim Thomas <[email protected]> wrote:
:>Twice because the first is for R0,R1 and the second is for R12,R13. As there is only one state area, the second one overwrites the first. If you need to get a pre-BAKR register, you can use EREG(G). :>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:[email protected]] On :>Behalf Of Binyamin Dissen :>Sent: Wednesday, February 12, 2014 3:55 AM :>To: [email protected] :>Subject: Re: Storage Obtain ..... :> :>On Tue, 11 Feb 2014 17:50:53 -0600 Jim Thomas <[email protected]> :>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 <[email protected]> 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 [email protected] with the message: INFO IBM-MAIN
