例題
[C3067.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3067. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1111. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 COMPUTE A = B"1010" AND 1234. 000010 STOP RUN.
C3067.cob 9: JMN3067I-S ブール式中に現れる定数は，ブール定数(ALLブール定数も含む)またはZEROでなければなりません．この定数はZEROに置き換えられます．
