例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2534.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WVAL PIC S9(9) BINARY.
000007 PROCEDURE DIVISION.
000008 EVALUATE TRUE ZERO
000009 WHEN WVAL = 10
000010 WVAL
000011 DISPLAY "NG"
000012 END-EVALUATE
000013 END PROGRAM P2534.
P2534.cob (9) : JMN2534I-S 選択主体に,表意定数ZERO(S,ES)は指定できません.ZERO(S,ES)を受け入れます.
詳細な説明
EVALUATE文の最初のWHEN指定より前に書く作用対象(TRUEおよびFALSEも含む)を,「選択主体」といいます.選択主体に表意定数ZERO(ZERO,ZEROS,およびZEROESは同義語です)は指定できません.