例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3025.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC 1(8) BIT.
000007 PROCEDURE DIVISION.
000008 P-START.
000009 IF ( A ) = B"00001111" THEN
000010 STOP RUN.
C3025.cob (9) : JMN3025I-S ブール式は，条件式に指定できません．