求DB2半角字符转全角自定义函数

求DB2半角字符转全角自定义函数
百度到如下一个，但是没作用
SET SCHEMA DB2ADMIN;

SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","SYSIBMADM","DB2ADMIN";

CREATE FUNCTION ODS.TO_ANGLE_SYTE
(P_INTER VARCHAR(100)
)
  RETURNS VARCHAR(100)
  SPECIFIC ODS.TO_ANGLE_SYTE
  LANGUAGE SQL
  NOT DETERMINISTIC
  READS SQL DATA
  STATIC DISPATCH
  CALLED ON NULL INPUT
  EXTERNAL ACTION
  INHERIT SPECIAL REGISTERS
  BEGIN
  DECLARE I_STR VARCHAR (2);
DECLARE I INTEGER DEFAULT 1;
DECLARE CODE INTEGER;
DECLARE O_RETVAL VARCHAR (300) DEFAULT '';
SET P_INTER = REPLACE (P_INTER, '　', ' ');
IF (TRIM (P_INTER) <> '')
THEN
WHILE I <= LENGTH (P_INTER, CODEUNITS32)
DO
SET I_STR =
SUBSTRING (P_INTER,
I,
1,
CODEUNITS32);
SET CODE = ASCII (I_STR);
IF (CODE = 163)
THEN
SET O_RETVAL =
O_RETVAL || CHR (ASCII (SUBSTR (I_STR, 2, 1)) - 128);
ELSE
SET O_RETVAL = O_RETVAL || I_STR;
END IF;
SET I = I + 1;
END WHILE;
ELSE
SET O_RETVAL =P_INTER;
END IF;
RETURN O_RETVAL;
END;
有没有别的可以借鉴，或者要怎么写啊