COBOL ステートメント - EVALUATE

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"}}