例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2617.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM PIC S9(9) BINARY.
000007 PROCEDURE DIVISION.
000008* IF WNUM = 10
000009 THEN
000010 DISPLAY "OK".
000011 END PROGRAM P2617.
P2617.cob (9) : JMN2617I-S 誤った語THENが指定されています．THENは，無効になります．
詳細な説明
THEN指定はIF文内に記述する言語要素です．