Oracle的PL/SQL编程基础技能实战一

一>基础代码检查
    检查以bm_开头的系统初始化编码表是否有空值。与业务系统相关的编码项不能存在空值，会导致系统业务无法办理。为初始化数据表、在做测试数据和正式上线前检查。上线运行后、仍存在空值表、需要进行核实、可能存在不经常办理的业务。也可能是冗余表。
PL/SQL代码块:
declare
v_table_name     varchar(40);
v_sql_str        varchar(4000):=' ';
v_cnt            smallint:=0 ;
v_jgbm           varchar(10):='01%';
cursor tmp_cur is select table_name  from user_tables
where table_name like 'BM_%' ;
begin
open tmp_cur ;
loop
    fetch  tmp_cur into v_table_name ;
    exit when tmp_cur%notfound;
    select count(*) into v_cnt from user_tab_columns
    where table_name=v_table_name and column_name='JGBM';
    if v_cnt<>0 then
       v_sql_str:='select count(*) from '||v_table_name||' where jgbm='''||v_jgbm||'''';
    else
       v_sql_str:='select count(*) from '||v_table_name;
    end if;
    execute immediate v_sql_str into v_cnt;
    if v_cnt=0 then
       insert into tmp_hfsc_sy40_chk(ywms) values(v_table_name||'表记录为空');
    end if;
    commit;
end loop;
close tmp_cur;
end;
二>财务业务核对
业务关于资金的结算都是自动生成凭证，财务和业务应是保持一致的。如存在特殊业务可能会有不平衡的情况。如果有人调整数据也会造成不平。主要检查 归集余额、单位未分配金额、贷款余额、逾期贷款、业务流水金额和财务凭证金额是否相等。直接影响到系统的报表业务和财务的一致性。
PL/SQL代码块:
declare 
  v_fpzd smallint;
  v_ztbh number(20);
  v_cwnd smallint;
  v_kmye number(18,2);
  v_gjye number(18,2);
  v_jgbm varchar(10):='01%';
  v_msg  varchar(100);
  v_ret  smallint:=0;
begin
  select nvl(max(value1),0) into v_fpzd from bm_xtcs where bm1=v_jgbm and bm2='0301' and bm3='03010903' and bm='04' and sfqy=1;
  for a in(select id from cw_ztml where ztxz='01' and jgbm=v_jgbm) loop
    select max(nd) into v_cwnd from cw_nd where ztbh=a.id;
    select nvl(sum(nce+ljdf-ljjf),0) into v_kmye from cw_kmbh where kmbh='201' and ztbh=a.id and nd=v_cwnd;
    select v_kmye+nvl(sum(fl.dffse-fl.jffse),0) into v_kmye from cw_pz_fl fl inner join cw_pz_ml b on fl.pzid=b.pzid where kmbh like '201%' and b.ztbh=a.id and b.nd=v_cwnd and b.zfbz=0;
    if v_fpzd<>0 then
        select nvl(sum(dwzhye),0) into v_gjye from gjzf_dw_zz where jgbm=v_jgbm;
    else
         select nvl(sum(zckye+dwzhye),0) into v_gjye from gjzf_dw_zz where jgbm=v_jgbm;
    end if;
    if v_kmye<>v_gjye then
     insert into tmp_hfsc_sy40_chk(ywms) values(to_char(a.id)||'账套'||'201科目余额与业务归集余额不一致');
  end if;
    commit;
  end loop;
end;