求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;
有没有别的可以借鉴,或者要怎么写啊
收起