例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3079.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC 1(8).
000007 01 B PIC 1(8) BIT.
000008 PROCEDURE DIVISION.
000009 P-START.
000010 IF A > B STOP RUN.
C3079.cob (10) : JMN3079I-S ブール作用対象の比較で指定する比較演算子は,EQUAL(=)またはNOT EQUAL(NOT =)でなければなりません.