例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2597.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM1 PIC S9(4) BINARY.
000007 01 WNUM2 PIC S9(4) BINARY.
000008 PROCEDURE DIVISION.
000009 EVALUATE WNUM1
000010 TRUE
000011 WHEN 13
000012 WNUM2 IS NEGATIVE
000013 DISPLAY "OK"
000014 END-EVALUATE
000015 END PROGRAM P2597.
P2597.cob (12) : JMN2597I-S EVALUATE文の選択主体または選択対象に，正負条件は指定できません．