oracle存储过程转达梦8存储过程时踩过的坑
达梦存储过程的语法与oracle的高度相似，但有好多细节还是有差异。我在这次项目迁移中踩过不少小坑，在这里给大家分享一下。
说明一下，我用的版本是达梦8，迁移时碰到的问题有些我已经反馈给达梦的官方群管理员，估计以后会有修复。
rpad问题
达梦的rpad函数，计算中文时永远是认为一个中文字符中两个字节，即使数据库设置的字符集是utf8（目前就发现rpad/lpad函数有这个问题，其它字符串函数都能正确识别，当字符集是utf8时能识别出来一个字符中3个字节）
测试代码：
select rpad('我是hch', 6), lengthb('我是hch') from dual -- 达梦输出"我是hc 9"
union all
select rpad('我是hch', 5), length('我是hch') from dual -- 达梦输出"我是h 5"
union all
select rpad('我是hch', 3), length('我是hch') from dual; -- 达梦输出"我 5"
这个问题达梦的工作人员说以后会修复，目前我的解决方法是自己写一个rpad函数
function rpad_dm(string varchar2, padded_length number, pad_string varchar2 := ' ')
return varchar2 IS
v_len number := lengthb(string);
BEGIN
dbms_output.put_line('v_len - padded_length = ' );
if padded_length < v_len THEN
return substrb(string, 1, padded_length); --如果输入长度小于原字符串长度，则调用substrb截断
elsif padded_length = v_len THEN
return string; --如果长度相等直接返回原串即可
else
return string || rpad(' ', padded_length - v_len, pad_string); --如果长度大于原字符串，则在后面补空格
end if;
END;
短路问题
一般编程语言都会提供短路功能，在计算与或逻辑时，如果前半段逻辑已经能确定真假时，后半段逻辑不会执行。
plsql里面也实现了短路功能，我们一般会利用这个特性减少一些代码，例如先判断变量是否为空，如果不为空再使用变量做运算：
if (var is not null and va.exists('error') ) then dbms_output.put_line('yes'); fi;
但在达梦的存储过程，短路却没有实现。上面的代码不管var是否为空，都会进行va.exists('error')这个逻辑。如果不幸var的变量是空的，就会导致运行异常。
测试代码1：
dbms_output.enable;
declare
v_flag boolean;
begin
-- 请问这个存储过程执行异常，报"非法的参数数据" 是不是达梦的bug oracle下是可以正常运行的
-- 还是有什么设置可以让存储过程正常执行
if (to_number('1') != 1) and to_number('abc') = 1 then
dbms_output.put_line('yes');
end if;
dbms_output.put_line('ok');
end;
测试代码2：
dbms_output.enable;
declare
TYPE TEST_RPT_LIST IS TABLE OF number INDEX BY PLS_INTEGER;
o_demo_list TEST_RPT_LIST;
i_report_id number := 17410491;
BEGIN
-- 验证达梦8 if短路
select 1 BULK COLLECT INTO o_demo_list from dual;
dbms_output.put_line('o_demo_list(1) = ' || o_demo_list(1));
if o_demo_list(1) = 1 or o_demo_list(2) = 2 THEN -- or 短路没问题
dbms_output.put_line('or yes'); -- or yes能正常输出
end if;
if o_demo_list(1) != 1 and o_demo_list(2) = 2 THEN -- o_demo_list(1) != 1 不成立 为什么还要执行o_demo_list(2) = 2判断
dbms_output.put_line('and yes'); -- 这里永远不应该输出
end if;
dbms_output.put_line('done'); -- 走不到done
EXCEPTION
WHEN no_data_found THEN
dbms_output.put_line('no_data_found tbl_demo_tab ' || 'ID ' || to_char(i_report_id));
WHEN OTHERS THEN
-- RAISE;
dbms_output.put_line('err:' || sqlcode || sqlerrm);
END;
不只是if有短路问题，decode，case when等类似的都会有短路问题。
"case 判断 when 表达式1 else 表达式2 end" 在oracle是如果条件成立则执行条件1并返回其值，而在达梦是同时执行表达式1和表达式2，并根据判断结果返回一个值。
解决方法是不要偷懒，不依赖短路实现，多写几个if判断，或者把decode拆成多个if else语句。
深浅拷贝问题
oracle的table数组变量的赋值，默认是值复制（即深拷贝），而达梦默认是引用复制（即浅拷贝）。
也就是说在oracle使用 tmpArr := arr (tmpArr 和arr 都是数组)，然后对这个tmpArr操作，不会影响arr的值，而在达梦，修改tmpArr数组元素的内容就是在修改arr
测试代码
FOR vv IN 1 .. 5 -- crontab 初始化赋值
LOOP
CASE vv
WHEN 1 THEN
v_obj.minutes := tmpArr;
WHEN 2 THEN
v_obj.hours := tmpArr;
WHEN 3 THEN
v_obj.days := tmpArr;
WHEN 4 THEN
v_obj.months := tmpArr;
WHEN 5 THEN
v_obj.weeks := tmpArr;
END CASE;
END LOOP;
在oracle对v_obj这样赋值后，v_obj.minutes和v_obj.hours是两个不同的变量，分别对两个变量修改，相互之间不会出现干扰。而在达梦8，v_obj下面所有变量都指向同一个数组，对v_obj任意一个成员修改，都会同时影响其它成员的值。
解决方法是自己写一个数组拷贝函数，例如这样：
function copy1kList(v_input t_str_list) return t_str_list IS
v_tmplist t_str_list;
v_ind PLS_INTEGER;
begin
--TYPE t_str_list IS TABLE OF VARCHAR2(1024) INDEX BY PLS_INTEGER;
if v_input.count > 0 then
/*
//在v_input里面的元素不连续时，这样会有bug
for vv in v_input.first .. v_input.last LOOP
v_tmplist(vv) := v_input(vv);
end loop;
*/
v_ind = v_input.first;
while v_ind is not null
loop
v_tmplist(v_ind) := v_input(v_ind);
v_ind = v_input.next(v_ind);
end loop;
end if;
return v_tmplist;
end;
使用这个函数代替数组变量赋值就能维持代码行为与oracle一致。
今天暂时先分享这三个问题，后面有时间再整理其它坑。这些坑比较隐蔽，花了我不少时间调试才发现，我把它们总结出来，希望能对你有所帮助。
