There already is a simple way of handling this: Issue a PR with a return
code in R15 which is passed to the caller.
Each time you invoke a routine using BAKR, when it returns, check the
return code, and if it's non-zero or some special value jump to your
next PR.
Tom Harper
Phoenix Software International
On 7/3/2025 4:11 AM, Thomas David Rivers wrote:
Hi John!
I think, in the context of an ESTAE recovery, this all works
just fine. The recovery documentation indicates the linkage-stack
is restored to the state it had when the ESTAE is issued.
What I'm asking about is doing a similar thing but not with an
ESTATE, just in "regular" code. The "error situation" is, for example,
a programming error (say, a bad parameter or something like that)
and not something that will be handled by an ESTAE.
IBM provides a way to query the link-state state, but doesn't provide
a way to restore it to a previous state (except through the recovery
mechanism.
I suppose you could issue an ESTAE at the point you want to "remember",
and have its recovery just percolate... seems expensive though...
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
--------------------------------------------------------------------------------
This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
