Peter, My apologies ... I was pasting snippets and accidently left our parts ...
None the less, I was missing a REGS= on the SETLOCK. I added REGS=USE and it now works. Thank you and to everybody else that tried to assist. Kind Regards. Jim Thomas -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Peter Relson Sent: Wednesday, February 12, 2014 8:50 AM To: [email protected] Subject: Re: Storage Obtain ..... You didn't show the code involved with where you said it. You wrote that it was "trying to chain backward / forward save area's". > LENGTH=LCLDSCTL, what is this value? You wrote about an "LTR after the STORAGE OBTAIN". You showed no such LTR. > LR R11,R1 > LR R0,R1 > XR R14,R14 > XR R15,R15 > L R1,=AL4(WORKAREA) > MVCL R0,R14 what is "WORKAREA"? Usualy one would clear the amount of storage that was obtained (as identified by LCLDSCTL). If WORKAREA is actually an "area", it's unlikely that the address of that area would work well as a length of the target of the MVCL. Maybe it blew up on the MVCL because the length you were attempting to did not match what you had obtained. If you are seeing R11 = 0 it could only be because the length you requested was 0. It is valid (but not what you likely want) to request 0 bytes. Other things: - You do not need to set R14 for an MVCL that zeroes an area. - You should use TYPE=LOCAL not TYPE=CML on your SETLOCK OBTAIN if you want the local lock of home (and you appear to, since you are specifying the home ASCB address that is in PSAAOLD). - You might consider CHECKZERO=YES on STORAGE OBTAIN so that you can avoid clearing the obtained area, based on the return code (which the system sets to indicate whether it has already made sure that the area will be zeroes when first referenced). Peter Relson z/OS Core Technology Design ---------------------------------------------------------------------- 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
