目的
SELECT CASE ステートメントは CASE 構造体の最初のステートメントです。 CASE 構造では、実行するステートメント・ブロックの中から 1 つのみを選択できるように簡略化された構文を提供しています。
構文
>>-+------------------------+--SELECT CASE--(--case_expr--)---->< '-case_construct_name--:-' |
規則
SELECT CASE ステートメントを実行すると、case_expr が評価されます。結果として得られる値をケース指標といいます。このケース指標は、ケース構造体内の制御の流れを評価するために使用されます。
case_construct_name を指定する場合、構造体内の END CASE ステートメントには必ずこの名前を指定しなくてはなりませんが、CASE ステートメントへの指定は任意です。
+----------------------------------IBM 拡張----------------------------------+
case_expr は、タイプなし定数または BYTE データ・オブジェクト以外のものでなければなりません。
+--------------------------------IBM 拡張の終り-------------------------------+
ZERO: SELECT CASE(N) ! start of CASE construct ZERO CASE DEFAULT ZERO OTHER: SELECT CASE(N) ! start of CASE construct OTHER CASE(:-1) SIGNUM = -1 CASE(1:) OTHER SIGNUM = 1 END SELECT OTHER CASE (0) SIGNUM = 0 END SELECT ZERO
関連情報