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