p2

--分区存在  list分区truncate分区资料
    if vi_result >0 then
        vv_task_pos :='清空分区';
        vv_sql := 'alter table '||iv_table_owner||'.'||iv_table_name||' truncate partition '||iv_partition_name;
        execute immediate vv_sql;
    end if;

    ---分区不存在 list分区
    if vi_result = 0 then
       vv_task_pos := '新增分区';
        vv_sql :='alter table '||iv_table_owner||'.'||iv_table_name||' add partition '||iv_partition_name||
       ' values('||ii_partition_value||') tablespace '||iv_tablespace_name;
       execute immediate vv_sql;
    end if;
   
    oi_return := 0;
    
    return(oi_return);
exception
     when others then
         vi_err_code := sqlcode;
        oi_return := vi_err_code;    
  return(oi_return);
end ;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/12961536/viewspace-1061391/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/12961536/viewspace-1061391/