mysql迁移到达梦,函数迁移失败

为提高效率，提问时请提供以下信息，问题描述清晰可优先响应。
【DM版本】:8
【操作系统】：win
【CPU】:
【问题描述】*：
这两个函数在迁移时失败了,请问怎么转成达梦使用的

CREATE DEFINER=uim@% FUNCTION getPY(in_string VARCHAR(255)) RETURNS varchar(255) CHARSET utf8
BEGIN
DECLARE tmp_str VARCHAR(255) CHARSET utf8 DEFAULT '';
DECLARE str_len SMALLINT DEFAULT 0;
DECLARE tmp_char VARCHAR(10) CHARSET utf8 DEFAULT '';
DECLARE tmp_len SMALLINT DEFAULT 0;
DECLARE tmp_rs VARCHAR(255) CHARSET utf8 DEFAULT '';
DECLARE tmp_cc VARCHAR(10) CHARSET utf8 DEFAULT '';
SET tmp_str = in_string;
SET str_len = LENGTH(tmp_str);

WHILE str_len > 0 DO
SET tmp_char = LEFT(tmp_str,1);
SET tmp_cc = tmp_char;
IF LENGTH(tmp_char) > 1 THEN
SELECT ELT(INTERVAL(CONV(HEX(CONVERT(tmp_char USING gbk)),16,10),0xB0A1,0xB0C5,0xB2C1,0xB4EE,0xB6EA,0xB7A2,0xB8C1,0xB9FE,0xBBF7,0xBFA6,0xC0AC,0xC2E8,0xC4C3,0xC5B6,0xC5BE,0xC6DA,0xC8BB,0xC8F6,0xCBFA,0xCDDA,0xCEF4,0xD1B9,0xD4D1), 'A','B','C','D','E','F','G','H','J','K','L','M','N','O','P','Q','R','S','T','W','X','Y','Z') INTO tmp_cc;
END IF;
SET tmp_rs = CONCAT(tmp_rs,tmp_cc);
SET tmp_len = CHAR_LENGTH(tmp_char) + 1;
SET tmp_str = SUBSTRING(tmp_str,tmp_len);
SET str_len = LENGTH(tmp_str);
END WHILE;
RETURN tmp_rs;
END

CREATE DEFINER=uim@% FUNCTION sequence_nextval(table_name VARCHAR(64)) RETURNS bigint(20)
DETERMINISTIC
COMMENT '获取序列'
BEGIN
SET @VALUE = 1;
UPDATE
sys_sequence
SET
current_value = @VALUE := current_value + increment
WHERE
seq_name = table_name;
IF @VALUE = 1
THEN
INSERT INTO sys_sequence (seq_name) VALUES (table_name);
END IF;
RETURN @VALUE;
END

第一个getPY

示例，具体您自个调试下看看结果是否一致：

CREATE OR REPLACE FUNCTION getPY(in_string IN VARCHAR2) RETURN VARCHAR2 IS
tmp_str VARCHAR2 := '';
str_len PLS_INTEGER := 0;
tmp_char VARCHAR2 := '';
tmp_len PLS_INTEGER := 0;
tmp_rs VARCHAR2(255) := '';
tmp_cc VARCHAR2(10) := '';
v_hex VARCHAR2(8);
v_code PLS_INTEGER;
BEGIN
tmp_str := in_string;
str_len := LENGTH(tmp_str);
WHILE str_len > 0 LOOP
tmp_char := SUBSTR(tmp_str, 1, 1);
tmp_cc := tmp_char;
IF LENGTH(tmp_char) > 1 THEN
  -- 将字符转换为GBK编码的十六进制表示
  v_hex := RAWTOHEX(UTL_RAW.CAST_TO_RAW(tmp_char));
  -- 将十六进制转换为十进制
  v_code := TO_NUMBER(v_hex, 'XX');

  -- 根据GBK编码范围确定拼音首字母
  CASE
    WHEN v_code BETWEEN 0xB0A1 AND 0xB0C4 THEN tmp_cc := 'A';
    WHEN v_code BETWEEN 0xB0C5 AND 0xB2C0 THEN tmp_cc := 'B';
    WHEN v_code BETWEEN 0xB2C1 AND 0xB4EE THEN tmp_cc := 'C';
    WHEN v_code BETWEEN 0xB4EF AND 0xB6E9 THEN tmp_cc := 'D';
    WHEN v_code BETWEEN 0xB6EA AND 0xB7A1 THEN tmp_cc := 'E';
    WHEN v_code BETWEEN 0xB7A2 AND 0xB8BF THEN tmp_cc := 'F';
    WHEN v_code BETWEEN 0xB8C0 AND 0xB9FE THEN tmp_cc := 'G';
    WHEN v_code BETWEEN 0xB9FF AND 0xBBF6 THEN tmp_cc := 'H';
    WHEN v_code BETWEEN 0xBBF7 AND 0xBFA5 THEN tmp_cc := 'J';
    WHEN v_code BETWEEN 0xBFA6 AND 0xC0AB THEN tmp_cc := 'K';
    WHEN v_code BETWEEN 0xC0AC AND 0xC2E7 THEN tmp_cc := 'L';
    WHEN v_code BETWEEN 0xC2E8 AND 0xC4C2 THEN tmp_cc := 'M';
    WHEN v_code BETWEEN 0xC4C3 AND 0xC5B5 THEN tmp_cc := 'N';
    WHEN v_code BETWEEN 0xC5B6 AND 0xC5BD THEN tmp_cc := 'O';
    WHEN v_code BETWEEN 0xC5BE AND 0xC6D9 THEN tmp_cc := 'P';
    WHEN v_code BETWEEN 0xC6DA AND 0xC8BA THEN tmp_cc := 'Q';
    WHEN v_code BETWEEN 0xC8BB AND 0xC8F5 THEN tmp_cc := 'R';
    WHEN v_code BETWEEN 0xC8F6 AND 0xCBF9 THEN tmp_cc := 'S';
    WHEN v_code BETWEEN 0xCBFA AND 0xCDD9 THEN tmp_cc := 'T';
    WHEN v_code BETWEEN 0xCDDA AND 0xCEF3 THEN tmp_cc := 'W';
    WHEN v_code BETWEEN 0xCEF4 AND 0xD1B8 THEN tmp_cc := 'X';
    WHEN v_code BETWEEN 0xD1B9 AND 0xD4D0 THEN tmp_cc := 'Y';
    WHEN v_code >= 0xD4D1 THEN tmp_cc := 'Z';
    ELSE tmp_cc := tmp_char; -- 如果不在范围内，则保留原字符
  END CASE;
END IF;

tmp_rs := tmp_rs || tmp_cc;
tmp_str := SUBSTR(tmp_str, 2);
str_len := LENGTH(tmp_str);
END LOOP;

RETURN tmp_rs;
END getPY;
/

mysql迁移到达梦,函数迁移失败

第一个`getPY`

第二个

mysql迁移到达梦,函数迁移失败

第一个getPY

第二个

第一个`getPY`