例 11 (ゼロ除算エラーの防止)

この例は、「ゼロ除算」エラーを防ぎます。

PROCEDURE divide

 (IN dividend INT, IN divisor INT, OUT result INT, OUT message CHAR) 

BEGIN

  DECLARE divide_by_zero EXCEPTION;

  IF divisor = 0 THEN

    RAISE divide_by_zero value 'Divided by zero error';

  END IF;

  SET result = dividend/divisor;

EXCEPTION

  WHEN divide_by_zero THEN

    SET message = CURRENT_EXCEPTION.MESSAGE;

END