CALL-RECOVERY

プログラムに制御が戻された場合、動作を指定する。

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

integer

以下のいずれかでなければならない

制御が戻されるたびに、プログラムが現在の呼び出し回復状況をチェックするようにする。制御された有効な出口がある場合は、当該プログラムはGOBACKを実行する。次の命令文を続けて実行するのではなく、COBOLの呼び出しチェインへ制御を戻すことになる。

Mainframe Transaction Option内で実行するために、CICSと非CICSとを混合したプログラムをコンパイルする場合は、CALL-RECOVERY "1"を使用する。

1に関しては、さらに、CALLデータ名文における例外で、GOBACKを実行してCOBOLの呼び出しチェインへ制御を戻す以前の呼び出し回復状況を設定する。

IBM's TX Series on WebSphere内で実行する場合、CICSと非CICSとを混合したプログラムをコンパイルは、 CALL-RECOVERY "2"を使用する。

パラメタを用いずCALL-RECOVERYを指定した場合は、 CALL-RECOVERY "2"を指定した場合と同様な効果が得られる。