DB2 验证身份证的存储过程

来源：互联网发布：java知名培训机构编辑：程序博客网时间：2024/06/06 12:38

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=n+int(substr(inum,15,1))*8+int(substr(inum,16,1))*4+int(substr(inum,17,1))*2;
    set n=mod(n,11);

    if n=0 then set i18='1';
    elseif n=1 then set i18='0';
    elseif n=2 then set i18='x';
    elseif n=3 then set i18='9';
    elseif n=4 then set i18='8';
    elseif n=5 then set i18='7';
    elseif n=6 then set i18='6';
    elseif n=7 then set i18='5';
    elseif n=8 then set i18='4';
    elseif n=9 then set i18='3';
    elseif n=10 then set i18='2';
    end if;

    if i18=substr(inum,18,1) then return inum;
    else return 'number error';
    end if;

elseif l=15 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+1*2+9*1+int(substr(inum,7,1))*6+int(substr(inum,8,1))*3+int(substr(inum,9,1))*7+int(substr(inum,10,1))*9+int(substr(inum,11,1))*10+int(substr(inum,12,1))*5;
    set n=n+int(substr(inum,13,1))*8+int(substr(inum,14,1))*4+int(substr(inum,15,1))*2;
    set n=mod(n,11);

    if n=0 then return substr(inum,1,6)||'19'||substr(inum,7)||'1';
    elseif n=1 then return substr(inum,1,6)||'19'||substr(inum,7)||'0';
    elseif n=2 then return substr(inum,1,6)||'19'||substr(inum,7)||'x';
    elseif n=3 then return substr(inum,1,6)||'19'||substr(inum,7)||'9';
    elseif n=4 then return substr(inum,1,6)||'19'||substr(inum,7)||'8';
    elseif n=5 then return substr(inum,1,6)||'19'||substr(inum,7)||'7';
    elseif n=6 then return substr(inum,1,6)||'19'||substr(inum,7)||'6';
    elseif n=7 then return substr(inum,1,6)||'19'||substr(inum,7)||'5';
    elseif n=8 then return substr(inum,1,6)||'19'||substr(inum,7)||'4';
    elseif n=9 then return substr(inum,1,6)||'19'||substr(inum,7)||'3';
    elseif n=10 then return substr(inum,1,6)||'19'||substr(inum,7)||'2';
    end if;

else return 'length error';
end if;
--RETURN date(rtrim(char(idate/10000))||'-'||rtrim(char(mod(idate,10000)/100))||'-'||rtrim(char(mod(idate,100))));
END