12,523
回編集
差分
ナビゲーションに移動
検索に移動
ページの作成:「==COBOL ステートメント - EVALUATE== [COBOL] {{include_html banner_html, "!ads"}} 一連のネストされたIF ステートメントの省略表現を提供。…」
==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"}}
[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"}}
© 2006 矢木浩人
