プログラムに制御が戻った場合の動作を指定します。
注：この指令は、ネイティブ COBOL 用にのみサポートされています。
構文：
>>-.---.-.-------CALL-RECOVERY--"integer"--.-----><
+-/-+ +.----.-CALL-RECOVERY-------------+
+-NO-+
パラメーター：
- integer
- 次のいずれかである必要があります。
- 1
- 呼び出しの後で、プログラムに制御が戻るたびに現在の呼び出し回復状態をプログラムがチェックします。制御された出口が有効な場合は、プログラムは GOBACK を実行します。つまり、次の文に進まずに、COBOLの呼び出しチェーンに制御を戻します。
Mainframe Subsystem Support で実行する CICS および CICS 以外のプログラムの組み合わせをコンパイルする際には、CALL-RECOVERY "1" を使用します。CICS プログラムのみをコンパイルする際には、CALL-RECOVERY "1" は不要です。
- 2
- 1 と同様ですが、GOBACK を実行して COBOL 呼び出しチェーンに制御を戻す前に、CALLBACK データ名の文で例外をキャッチして呼び出し回復状態の設定も行います。
属性：
| 省略値： |
NOCALL-RECOVERY |
| 段階： |
構文チェック |
| $SET： |
初期 |
説明：
パラメーターなしで CALL-RECOVERY を指定した場合は、CALL-RECOVERY "2" と同じ効果があります。