Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


例: 複数の WHEN 句を使用する EVALUATE

この例は、 いくつかの条件で同じ処置が行われるようにしなければならない場合に、複数の WHEN 句をコーディングできることを示しています。 この方法は、THRUのみを使用する場合と比べてさらに柔軟性があります。条件が、ある範囲の値または同じクラスを持つ値に評価される必要がないからです。

EVALUATE MARITAL-CODE
  WHEN “M”
    ADD 2 TO PEOPLE-COUNT
  WHEN “S”
  WHEN “D”
  WHEN “W”
    ADD 1 TO PEOPLE-COUNT
END-EVALUATE

次のネストされた IF ステートメントも同じロジックを表します。

IF MARITAL-CODE = “M” THEN
  ADD 2 TO PEOPLE-COUNT
ELSE
  IF MARITAL-CODE = “S” OR
     MARITAL-CODE = “D” OR
     MARITAL-CODE = “W” THEN
       ADD 1 TO PEOPLE-COUNT
  END-IF
END-IF

ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)