CBLUBITサービスルーチンは,ビットデータを論理演算するものです。
CALL 'CBLUBIT' USING 引数1 引数2 引数3 引数4
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE1.
:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 OP-1 PIC X(01) VALUE X'00'.
01 OP-2 PIC X(01) VALUE X'FF'.
01 OP-3 PIC X(01) VALUE 'A'.
01 OP-4 PIC X(01).
:
PROCEDURE DIVISION.
:
CALL 'CBLUBIT' USING OP-1 OP-2 OP-3 OP-4.
IF RETURN-CODE NOT = 0 THEN
CBLUBITエラー処理
END-IF.
: