CALL-RECOVERY

Restriction: Currently this directive is supported in native COBOL only.

Syntax:

>>-.---.-.-------CALL-RECOVERY--"integer"--.-----><
   +-/-+ +.----.-CALL-RECOVERY-------------+
          +-NO-+

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.

You should use CALL-RECOVERY "1" when compiling a mixture of CICS and non-CICS programs for running in Mainframe Transaction Option. .

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 "2" when compiling a mixture of CICS and non-CICS programs for running in IBM's TX Series on WebSphere.

Properties:

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

Comments:

Specifying CALL-RECOVERY with no parameter has the same effect as specifying CALL-RECOVERY "2".