Specifies the behavior when control is returned to a program.
Note: This directive is supported for 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 Subsystem Support. When compiling only CICS programs , CALL-RECOVERY "1" is not required.
- 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".