例題
[P2596.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2596. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WNUM PIC S9(4) BINARY. 000007 PROCEDURE DIVISION. 000008 EVALUATE WNUM 000009 WHEN OTHER 000010 DISPLAY "NG" 000011 WHEN 3 000012 DISPLAY "OK" 000013 END-EVALUATE 000014 END PROGRAM P2596.
P2596.cob 9: JMN2596I-S EVALUATE文では，WHEN OTHER指定の前にWHEN指定を記述しなければなりません．
詳細な説明
WHEN OTHER指定に書いた文は，先行するいずれのWHEN指定も選択されなかった場合に実行されます．
