CBLABNサービスルーチンは,利用者がプログラムを異常終了させるときに呼び出すものです。このサービスルーチンを実行すると,引数1に指定した要因コードと実行時メッセージを表示し,実行プロセスが異常終了します。
CALL 'CBLABN' USING 引数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.
: