CALL-RECOVERY

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.

You should use CALL-RECOVERY when compiling a mixture of CICS and non-CICS programs for running in Mainframe Subsystem Support. Only the non-CICS modules need be compiled with the appropriate directive. When compiling only CICS programs, CALL-RECOVERY is not required.

Properties:

Default:	NOCALL-RECOVERY
Phase:	Syntax check
$SET:	Initial