DB2 验证身份证的存储过程

 CREATE FUNCTION  sfzyz(inum varchar(18))
    RETURNS varchar(18)
------------------------------------------------------------------------
-- 功能：输入18位身份证号码进行验证，15位自动转换成18位
-- 例如：sfzyz('412832197901086418')
------------------------------------------------------------------------
F1: BEGIN ATOMIC
--定义中间参量
declare i18 varchar(1) default '';
declare n int default 0;
declare l int default 0;
--算法
set l=length(inum);

if l=18 then
    set n=int(substr(inum,1,1))*7+int(substr(inum,2,1))*9+int(substr(inum,3,1))*10+int(substr(inum,4,1))*5+int(substr(inum,5,1))*8+int(substr(inum,6,1))*4;
    set n=n+int(substr(inum,7,1))*2+int(substr(inum,8,1))*1+int(substr(inum,9,1))*6+int(substr(inum,10,1))*3+int(substr(inum,11,1))*7+int(substr(inum,12,1))*9+int(substr(inum,13,1))*10+int(substr(inum,14,1))*5;
    set n=