例題
[P2597.cob] 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文の選択主体または選択対象に，正負条件は指定できません．
