例題
[P2108.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2108. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 D1 PIC 1(4). 000007 88 CD1 VALUE B"0000". 000008 88 CD2 VALUE B"1111". 000009 88 CD3 VALUE B"0000" THRU B"1111". 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2108.
P2108.cob 9: JMN2108I-S THROUGH指定の条件名のVALUE句には,ブール定数は指定できません.