例題
[P2617.cob] 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文内に記述する言語要素です．
