Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 プログラミング・ガイド


例: 複数の 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

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

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