>My LTR after the STORAGE OBTAIN does not catch a failure. 
Your LTR after the STORAGE OBTAIN is not in the code you posted. 
  
Bill Fairchild 

----- Original Message -----

From: "Jim Thomas" <j...@thethomasresidence.us> 
To: IBM-MAIN@LISTSERV.UA.EDU 
Sent: Tuesday, February 11, 2014 5:50:53 PM 
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 ??. 

Kind Regards. 

Jim Thomas 

---------------------------------------------------------------------- 
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

Reply via email to