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