Oracle：动态SQL实例

create or replace procedure FSPVIQA7_qty
as
  var_sql   varchar2(2000);
  i         number;
  j         number;
begin
  delete from tpt_app_qty;
  i := 1;
  while i<=5 loop
    j := 1;
    while j <= 3 loop
      var_sql := '';
      var_sql := ' insert into tpt_app_qty(tpt_flow,tpt_nbr,tpt_crt_dept,tpt_date,tpt_imp_dept,tpt_cm,tpt_cm_sort,tpt_need,tpt_opinion,tpt_n_opinion,
                                          tpt_engineer,tpt_eng_name,tpt_crt_by,tpt_crt_name)
                   select a.app_flow,a.app_nbr,a.app_dept,a.app_date,a.app_'||to_char(i)||'_dept'||',a.app_cm,cm_sort,a.app_need,'||to_char(i)||to_char(j)||',a.app_'||to_char(i)||'_summary,
                   app_'||to_char(i)||'_engineer'||to_char(j)||',u1.usr_name,app_crt_by,u.usr_name from app1_mstr a
                   left join v_erp_cust on cm_addr=app_cm
                   join usr_mstr u on u.usr_user=app_crt_by
                   join usr_mstr u1 on u1.usr_user=app_'||to_char(i)||'_engineer'||to_char(j)||
                   ' where app_'||to_char(i)||'_pst=''1''
                   and app_'||to_char(i)||'_sub'||to_char(j)||'=''0''
                   and app_'||to_char(i)||'_engineer'||to_char(j)||' is not null
                   and app_product_fee = 0
                   and not exists(select 1 from app1_mstr b where a.app_nbr = b.app_nbr and b.app_version > a.app_version)
                   union all
                   select app_flow,app_nbr,app_dept,app_date,app_'||to_char(i)||'_dept'||',app_cm,cm_sort,app_need,'||to_char(i)||to_char(j)||',app_'||to_char(i)||'_summary,
                   app_'||to_char(i)||'_engineer'||to_char(j)||',u1.usr_name,app_crt_by,u.usr_name from app1_mstr a
                   left join v_erp_cust on cm_addr=app_cm
                   join usr_mstr u on u.usr_user=app_crt_by
                   join usr_mstr u1 on u1.usr_user=app_'||to_char(i)||'_engineer'||to_char(j)||
                   ' where app_'||to_char(i)||'_pst=''1''
                   and app_work  = 1
                   and app_prog_code = ''FSPUMTA4''
                   and not exists(select 1 from app1_mstr b where a.app_nbr = b.app_nbr and b.app_version > a.app_version)';
     -- dbms_output.put_line(var_sql);
      execute immediate var_sql;
      j := j+1;
    end loop;
    i:= i+1;
  end loop;
end FSPVIQA7_qty;