引数の説明
SIA,STD |
AND,OR,EXOR,NOT |
例
000001 @OPTIONS FLAGSW(STDH) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9121. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01 PIC 1(4) BIT. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE REC01 = REC01 AND B"1000". 000011 STOP RUN.
C9121.cob (10) : JMN9121I-W (STD)ブール演算子B-ANDは共通範囲外です.処理を続行します.