トップ 差分 一覧 ping ソース 検索 ヘルプ PDF RSS ログイン

COBOL ステートメント - EVALUATE



目次



記事一覧

キーワード

COBOL ステートメント - EVALUATE

[COBOL]
指定されたパートは存在しません。
一連のネストされた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

指定されたパートは存在しません。



YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto

Copyright© 矢木 浩人 All Rights Reserved.