例題
[C3068.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3068. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1111. 000007 01 B PIC 1111. 000008 01 C PIC 11111. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A = B AND C. 000012 COMPUTE A = B"101011" AND B"111". 000013 STOP RUN.
C3068.cob 11: JMN3068I-S ブール式中に含まれるブール項目およびALL定数でないブール定数のブール文字数は，すべて等しくなければなりません．
C3068.cob 12: JMN3068I-S ブール式中に含まれるブール項目およびALL定数でないブール定数のブール文字数は，すべて等しくなければなりません．
