30.4.3　CBLABN

CBLABNサービスルーチンは，利用者がプログラムを異常終了させるときに呼び出すものです。このサービスルーチンを実行すると，引数1に指定した要因コードと実行時メッセージを表示し，実行プロセスが異常終了します。

形式

CALL 'CBLABN' USING 引数1

引数

引数1には，異常終了時の要因コードを2バイトの2進項目で指定します。

戻り値

なし。

環境変数

引数1に指定した値を異常終了時の終了コードにする場合，環境変数CBLABNCODEにYESを指定してください。環境変数CBLABNCODEにYES以外を指定した場合，異常終了時の終了コードは1になります。

ただし，COBOLがプログラム（プロセスまたはスレッド）を終了しない環境（COBOLが副プログラムとして動作する場合など）では，環境変数CBLABNCODEの指定が無効となります。

規則

このサービスルーチンは，COBOLプログラムだけから呼び出せます。
このサービスルーチンは呼び出し元に制御を戻しません。
VOS3 COBOL85との互換性を保つ必要があるときは，引数1の要因コードは0〜4,095の範囲で指定します。
このサービスルーチンによってプログラムを終了させた場合，終了コードは1になります。

使用例

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE1.
           :
       WORKING-STORAGE SECTION.
       01 AB-CODE PIC S9(4) USAGE COMP. …1.
           :
       PROCEDURE DIVISION.
           :
           MOVE 100 TO AB-CODE.  …2.
           CALL 'CBLABN' USING AB-CODE.   …3.
           :

異常終了時の要因コードを2バイトの2進項目で指定します。
異常終了時の要因コードを設定します。
CBLABNサービスルーチンを呼び出します。

30.4.3 CBLABN

30.4.3　CBLABN