COBOL2002 ユーザーズガイド
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. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.