在PL / SQL（DB2）中发现了意外的令牌“EXCEPTION”

Question

我正在编写存储函数，如下面的db2。

CREATE OR replace FUNCTION moc_enddate( IN v_date    VARCHAR(6),
                                        IN v_message VARCHAR(20)) returns DATE
  BEGIN
    DECLARE v_temp DATE;
    DECLARE v_end_date DATE;
    DECLARE v_temp_string VARCHAR(8) DEFAULT '01';

      SET v_temp_string = v_temp_string
          || v_date;
      SET v_temp = to_date(v_temp_string,'DDMMYYYY');
      SET v_end_date = (v_temp + 19 days);
      RETURN v_end_date;
  EXCEPTION
        WHEN no_data_found THEN
          SET v_message = 'SqlDataException';
        WHEN OTHERS THEN
          SET v_message = 'OTHER';
        END;

但我收到以下例外情况。

ERROR [42601] [IBM][DB2/AIX64] SQL0104N  An unexpected token "EXCEPTION" was found following "RN V_END_MOC_DATE; ".  Expected tokens may include.
"<psm_case>".