Specifies the behavior when control is returned to a program.
Note: Use this directive in CICS execution environments only.
Syntax:
>>-.---.-.-------CALL-RECOVERY--"integer"--.-----><
+-/-+ +.----.-CALL-RECOVERY-------------+
+-NO-+
Description:
When a CICS transaction has installed an ABEND handler at a given link level, if an ABEND occurs lower down the call chain
where non-CICS programs have been called between the owner of the handler and the abending program, the CALL-RECOVERY directive
ensures that control is passed directly back to the higher level without executing application code after the call(s) in the
intervening programs.
Parameters:
-
integer
- Must be one of:
- 1
- Makes the program check the current call recovery state every time control is returned to it following a call. If there is
a controlled exit in force the program performs a GOBACK, that is, passes control back up the COBOL call chain rather than
continuing with the next statement.
- 2
- As for 1, but also catches exceptions on CALL dataname statements and sets the call recovery state before performing a GOBACK
to pass control back up the COBOL call chain.
Properties:
| Default:
|
NOCALL-RECOVERY
|
| Phase:
|
Syntax check
|
| $SET:
|
Initial
|