重跑支持，删除历史数据

create or replace function fiveyears_datadelete(

  V_TABLEname VARCHAR,--表名称
  V_table_type NUMBER,--表类型 1 全量加载表；2.流水表加载
  v_date VARCHAR, --数据日期
  v_min_date varchar --表里最小数据日期
  )
return number
is
  v_now date ;--当前日期
  v_tb_part varchar(10); --分区名称
  v_big_3start_day varchar(10); --3年前
  v_big_5start_day varchar(10); --5年前
  v_part_num int;
  v_sql varchar(500);

BEGIN
  v_now := cast(v_date as date);--当前日期
  v_tb_part := replace(v_date ,'-',''); --分区名称
  v_big_3start_day :=to_char(add_months(v_now,-36),'yyyymmdd');--3年前
  v_big_5start_day :=to_char(add_months(v_now,-60),'yyyymmdd');--5年前
  BEGIN
     --支持重跑
     v_sql :='select count(1) from v$user_tab_parts
          where table_name='''||v_tablename||'''' || 'and part_name=''p_'||v_tb_part||'''';
    dbms_output.put_line(v_sql);
    execute immediate v_sql into v_part_num;
    if v_part_num>0 then
      v_sql:='alter table '||v_tablename||' drop partition p_' || v_tb_part;
      dbms_output.put_line('重跑数据：'||v_sql);
      execute immediate v_sql;
    end if;
  end;
  if v_table_type ='1' then --全量加载，保存5年内数据
    if v_min_date<v_big_5start_day then
      v_sql :='alter table ' || v_tablename||'drop partition p_' || v_big_5start_day;
      dbms_output.put_line('超过5年范围'|| v_min_date||','||v_sql);
      execute immediate v_sql ;
    else
      dbms_output.put_line(v_min_date||','||'尚未超过5年范围');
    end if;
  elsif v_table_type='2' then --流水加载，保存3年内数据
    if v_min_date<v_big_3start_day then
      v_sql :='alter table ' || v_tablename||'drop partition p_' || v_big_3start_day;
      dbms_output.put_line('超过3年范围'|| v_min_date||','||v_sql);
      execute immediate v_sql ;
    else
      dbms_output.put_line(v_min_date||','||'尚未超过3年范围');
    end if;
  end if;
  return 1;
  exception 
	when others then
		return 0
END

标签：varchar,删除,--,part,重跑,sql,date,历史数据,tb
来源： https://www.cnblogs.com/zhanglin123/p/16067664.html