CALL-RECOVERY

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

Specifies the behavior when control is returned to a program.

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".

See Also:

Related Topics