例題
[P2538.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2538. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WDA1 PIC X(1). 000007 01 WDA2 PIC X(1). 000008 PROCEDURE DIVISION. 000009 EVALUATE TRUE ALSO TRUE 000010 WHEN WDA1 = SPACE 000011 DISPLAY "OK" 000012 WHEN OTHER 000013 DISPLAY "NG" 000014 END-EVALUATE 000015 END PROGRAM P2538.
P2538.cob 10: JMN2538I-S 選択対象の数が選択主体の数より少ない.両者は等しくなければなりません.ANYを補って,処理を続行します.
詳細な説明
EVALUATE文の最初のWHEN指定より前に書く作用対象(TRUEおよびFALSEも含む)を「選択主体」,EVALUATE文のWHEN指定に書く作用対象(TRUE,FALSEおよびANYも含む)を「選択対象」といいます.
1つのWHEN指定の中には,選択主体の数と同じ数の選択対象を書かなければなりません.