CBL_RUNTIME_ERROR

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

構文:

CALL “CBL_RUNTIME_ERROR”  using by value error-flags 
                                by reference error-message

パラメーター:

  呼び出しプロトタイプ使用時 (「説明の読み方」を参照) PIC
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 のテキストが表示されます。