!!!COBOL ステートメント - EVALUATE
[COBOL]
{{include_html banner_html, "!ads"}} 
一連のネストされたIF ステートメントの省略表現を提供。このステートメントは、複数の条件を評価することができる。

::複数の条件を選択
 EVALUATE A
   WHEN "1"
     MOVE 1 TO B
   WHEN "2"
     MOVE 2 TO B
   WHEN "3" 
     MOVE 3 TO B
   WHEN OTHER
     MOVE 0 TO B
 END-EVALUATE.

::式の真偽を判定
 EVALUATE A > B
   WHEN TRUE
     MOVE 1 TO X
   WHEN FALSE
     MOVE -1 TO X
 END-EVALUATE.

::条件の真偽を判定
 EVALUATE TRUE
   WHEN A > B
     MOVE 1 TO X
   WHEN A < B
     MOVE -1 TO X
   WHEN A = B
     MOVE 0 TO X
 END-EVALUEATE.

::値の範囲を判定
 EVALUATE TOKUTEN
   WHEN 80 THROUGH 100
     MOVE "A" TO GRADE
   WHEN 60 THROUGH 79
     MOVE "B" TO GRADE
   WHEN 50 THROUGH 59
     MOVE "C" TO GRADE
   WHEN OTHER
     MOVE "D" TO GRADE
 END-EVALUATE

{{include_html banner_html, "!COBOL"}}