CBL_RUNTIME_ERROR

アプリケーションを強制的にランタイム エラー状態で終了させます。

構文:

CALL "CBL_RUNTIME_ERROR"  using by value error-flags 
                                by reference error-message

パラメーター:

  呼び出しプロトタイプを使用 (「キー」を参照) ピクチャ
error-flags cblt-x4-comp5 pic x(4) comp-5。
error-message pic x(n) pic x(n).

入力パラメーター:

error-flags ゼロである必要があります。
error-message ランタイム メッセージの後に出力される、オプションの null 終了エラー メッセージ。その他のメッセージが生成されないようにするには、代わりに予約語 OMITTED を渡します。

出力パラメーター:

なし。

コメント:

この呼び出しは、ランタイム エラーCOBRT150 Program abandoned at user requestによりアプリケーションを終了します。error-message テキストを指定した場合は、そのテキストも表示されます。