I was planning to check the return code of the obtain lock to determine if I 
should release it. I do not think it is as elegant as your approach but I think 
a little easier. Does anyone see a flaw in this idea?

You stated that I could not get the CML lock if the local lock is help. Is 
there a problem getting the local lock if the CML lock is held?

So my logoc will look like the following:

         SETLOCK OBTAIN,TYPE=LOCAL,             LOCAL LOCK                  
         set localrc = r15
         SETLOCK OBTAIN,TYPE=CMS,               CROSS-MEMORY SERVICES           
X
         set cmsrc = r15
         Update my CSA buffer
         if cmsrc = 0 setlock release,type=cms
         if localrc = 0 setlock release,type=local
                        

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to