CBLBELLサービスルーチンは，警告音を鳴らす機能を提供するものです。

形式

CALL 'CBLBELL'

引数

なし。

戻り値

0：正常終了した場合

-1：エラーが発生した場合

使用例

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE1.
           :
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           :
       PROCEDURE DIVISION.
           :
           CALL 'CBLBELL'.
           IF RETURN-CODE NOT = 0 THEN
             CBLBELLエラー処理
           END-IF.
           :