<snip>
It would be nice if one could
IF condition1
SETRP to return 64
if condition2
free local lock
if condition3
set retry addr1
IF condition4
set retry addr2
BR R14
</snip>
Why can't you? Although I assume you meant by "free local lock" instead
"ask RTM via SETRP to free local lock upon return" (and be aware that that
with FRLKRTY=YES it will not be freed upon retry). I'm not sure what
"return 64" means or what you wrote a it earlier "return in AMODE31".
The only thing anomalous I see in what you pose above is that if by "free
local lock" you mean SETRP FRELOCK=LOCAL, you have to be aware that that
is equivalent to SETRP FRELOCK=LOCAL,RC=0
It is true that some of the retry-oriented options (such as RETADDR)
require that you specify RC=4. So if your "SETRP to return 64" meant
including setting RC=4 (retry) then your "free local lock" would have
reset it to 0 (percolate).
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
