5.4.1 EVALUATE文
EVALUATE文は,多枝分岐,多枝結合の構造を記述し,複数の条件を評価できます。プログラムが次に取る動作は,これらの評価の結果によって決まります。
EVALUATE文については,マニュアル「COBOL2002 言語 標準仕様編」 「10.8.18 EVALUATE文」を参照してください。
EVALUATE文の例を次に示します。
- (例1)
-
各選択対象の組中の選択対象の数は,選択主体の数と等しくする必要があります。
: EVALUATE X ALSO Y ALSO Z WHEN 1 ALSO 2 ALSO ANY ADD A TO B WHEN 3 ALSO 4 ALSO 5 ADD C TO B WHEN OTHER ADD B TO A END-EVALUATE. :
- (例2)
EVALUATE A WHEN 1 WHEN 3 WHEN 5 : WHEN 19 MOVE 'ODD' TO B *>1. WHEN 2 WHEN 4 : WHEN 20 MOVE 'EVEN' TO B *>2. WHEN OTHER MOVE 'OUT OF RANGE' TO B *>3. END-EVALUATE.
-
整数項目Aの値が20以下の奇数のとき,1.のMOVE文が実行されます。
-
整数項目Aの値が20以下の偶数のとき,2.のMOVE文が実行されます。
-
整数項目Aの値が20を超えるとき,または0以下のとき,3.のMOVE文が実行されます。
-