oracle存储过程转达梦8存储过程时踩过的坑

达梦存储过程的语法与oracle的高度相似，但有好多细节还是有差异。我在这次项目迁移中踩过不少小坑，在这里给大家分享一下。

说明一下，我用的版本是达梦8，迁移时碰到的问题有些我已经反馈给达梦的官方群管理员，估计以后会有修复。

rpad问题

达梦的rpad函数，计算中文时永远是认为一个中文字符中两个字节，即使数据库设置的字符集是utf8（目前就发现rpad/lpad函数有这个问题，其它字符串函数都能正确识别，当字符集是utf8时能识别出来一个字符中3个字节）

测试代码：

select rpad('我是hch', 6), lengthb('我是hch') from dual -- 达梦输出"我是hc 9"union allselect rpad('我是hch', 5), length('我是hch') from dual -- 达梦输出"我是h 5" union allselect 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'); -- 走不到doneEXCEPTION 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一致。

今天暂时先分享这三个问题，后面有时间再整理其它坑。这些坑比较隐蔽，花了我不少时间调试才发现，我把它们总结出来，希望能对你有所帮助。

oracle存储过程转达梦8存储过程时踩过的坑
文章转载：http://www.shaoqun.com/a/463589.html