COBOL2002 使用の手引 手引編
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. :
All Rights Reserved. Copyright (C) 2014, 2017, Hitachi, Ltd.