例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2599.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM PIC S9(4) BINARY.
000007 PROCEDURE DIVISION.
000008 IF NOT
000009 NOT WNUM EQUAL TO 12 THEN
000010 DISPLAY "OK"
000011 END-IF
000012 END PROGRAM P2599.
P2599.cob (9) : JMN2599I-S 条件中にNOTを連続して指定できません．