用于表空间和表分区的方法

CREATE OR REPLACE FUNCTION MASAMKt.fun_add_table_partitionst(
v_table_owner in varchar2,
v_table_name  in varchar2,
v_partition_name in varchar2,
v_subpartition_name in varchar2,
v_object_type in varchar2,
v_value_type  in varchar2,
v_values in integer,
v_tablespace in varchar2
)
 ----/************************************************************
 ----过 程 名： fun_add_table_partitions
 ----过程描述： 清空表或表分区，分区不存在的增加分区（适用于所有表、分区表）
 ----输入参数：	1、表的拥有者：masadw、masamk、masakr等
 ----           2、表名
 ----           3、分区名：带分区值的分区全名，例如sc_user_day_20071211
 ----           4、子分区名：同3
 ----           5、对象类型：仅限于三个值：table（表）、partition（分区表）、subpartition（带子分区的分区表）
 ----           6、分区值的类型：仅限于三个值：integer（整型）、char（字符型）、date（日期型）
 ----           7、分区值：整型的月份或日期（即使是日期型的分区值，也输入整型参数）
 ----           8、表空间名称（不可以为空）
 ----输出参数：	执行状态(0、执功,-1、执行失败)
 ----调用的过程或函数：
 ----被哪些过程或函数调用：
 ----依赖的过程或函数：
 ----编写人员：	  ----**************************************************************
 RETURN  integer

 AS
      vv_task_name          varchar2(30):='fun_add_table_partitions';
      vv_task_pos           varchar2(100);
      
      vv_table_owner        varchar2(30):=upper(trim(v_table_owner));
      vv_table_name         varchar2(30):=upper(trim(v_table_name));
      vv_partition_name     varchar2(30):=upper(trim(v_partition_name));
      vv_subpartition_name  varchar2(30):=upper(trim(v_subpartition_name));
      vv_object_type        varchar2(30):=upper(trim(v_object_type));
      vv_value_type         varchar2(30):=upper(trim(v_value_type));
      vi_values             integer:=v_values;
      vv_tablespace         varchar2(30):=upper(trim(v_tablespace));
      vv_last_partition     varchar2(30);
      
      vi_result             integer;
      exc_error             exception;          -- 程序出错返回自定义异常
      
      vi_flag               integer:=0;
      vv_sql                varchar2(1000);
 BEGIN
      vv_task_pos := '参数有效性检验';
      vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 1, vv_task_pos, null);
      
      --检查用户名
      if vv_table_owner is null then
         vv_task_pos := '用户名不能为空';
         vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, vv_task_pos, null);
         raise exc_error;
      end if;
      --检查表名
      if vv_table_name is null then
         vv_task_pos := '表名不能为空';
         vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, vv_task_pos, null);
         raise exc_error;
      end if;
      --检查对象类型
      if vv_object_type is null then
         vv_task_pos := '对象类型不能为空';
         vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, vv_task_pos, null);
         raise exc_error;
      end if;
      --检查表空间
      if vv_tablespace is null then
         vv_task_pos := '表空间不能为空';
         vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, vv_task_pos, null);
         raise exc_error;
      end if;
      
      --参数检查通过，进入函数主体
      vv_task_pos := '进入函数主体';
      vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 2, vv_task_pos, null);
      
      --对象类型是 TABLE 的表处理
      if vv_object_type = 'TABLE' then
         vv_task_pos := '该对象类型是 TABLE';
         vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 3, vv_task_pos, null);
         
         vi_flag := 0;
         select count('a') into vi_flag
           from all_tables t
          where t.owner=vv_table_owner
            and t.table_name=vv_table_name;
         
         --如果表不存在，退出
         if vi_flag = 0 then
            vv_task_pos := '表 '||vv_table_owner||'.'||vv_table_name||' 不存在';
            vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 4, vv_task_pos, null);
            vi_result := 9;
            raise exc_error;
         else
            --如果表存在，则清空此表
            vv_task_pos := '清空表 '||vv_table_owner||'.'||vv_table_name;
            vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 4, vv_task_pos, null);
            vv_sql := 'truncate table '||vv_table_owner||'.'||vv_table_name;
            execute immediate vv_sql;
         end if;
      end if;
      
      --对象类型是 PARTITION 的表处理
      if vv_object_type = 'PARTITION' then
         vv_task_pos := '该对象类型是 PARTITION';
         vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 3, vv_task_pos, null);
         
         --参数有效性检查
         if vv_partition_name is null or 
            vv_value_type is null or
            vi_values is null then
            
            vv_task_pos := '分区表参数不能为空：缺少分区名、分区值类型或分区值';
            vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, vv_task_pos, null);
            raise exc_error;
         end if;
         
         vi_flag := 0;
         select count('a') into vi_flag
           from all_tab_partitions t
          where t.table_owner=vv_table_owner
            and t.table_name=vv_table_name
            and t.partition_name=vv_partition_name;
         --如果分区不存在，则建立该分区
         if vi_flag = 0 then
            vv_task_pos := '分区 '||vv_partition_name||' 不存在，建立此分区';
            vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 4, vv_task_pos, null);
            
            vv_sql := 'alter table '||vv_table_owner||'.'||vv_table_name||' add partition '
            ||vv_partition_name||' values('||case when vv_value_type='INTEGER' then ''
            ||vi_values||'' when vv_value_type='CHAR' then ''''||vi_values||'''' 
            when vv_value_type='DATE' then 'to_date('||vi_values||',''yyyymmdd'')' end||') 
            tablespace '||vv_tablespace;
            execute immediate vv_sql;
         else
            --如果分区存在，则情况此分区
            vv_task_pos := '分区 '||vv_partition_name||' 存在，清空此分区';
            vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 4, vv_task_pos, null);
            
            vv_sql := 'alter table '||vv_table_owner||'.'||vv_table_name||' truncate partition '
            ||vv_partition_name;
            execute immediate vv_sql;
         end if;
      end if;
      
      --对象类型是 SUBPARTITION 的表处理
      if vv_object_type = 'SUBPARTITION' then
         vv_task_pos := '该对象类型是 SUBPARTITION';
         vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 3, vv_task_pos, null);
         
         --参数有效性检验
         if vv_partition_name is null or 
            vv_subpartition_name is null or
            vv_value_type is null or
            vi_values is null then
            vv_task_pos := '分区表参数不能为空：缺少分区名、子分区名、子分区值类型或子分区值';
            vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, vv_task_pos, null);
            raise exc_error;
         end if;
         
         --检查分区是否存在
         vi_flag := 0;
         select count('a') into vi_flag
           from all_tab_partitions t
          where t.table_owner=vv_table_owner
            and t.table_name=vv_table_name
            and t.partition_name=vv_partition_name;
         
         --分区不存在的处理
         if vi_flag = 0 then
            vv_task_pos := '分区 '||vv_partition_name||' 及其子分区不存在，建立此分区';
            vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 4, vv_task_pos, null);
            
            vv_last_partition := to_char(add_months(to_date(vi_values,'yyyymmdd'),1),'yyyymm');
            
            vv_sql := 'alter table '||vv_table_owner||'.'
            ||vv_table_name||' add partition '||vv_partition_name
            ||' values less than('||vv_last_partition||')
            (subpartition '||vv_subpartition_name||' values('
            ||case when vv_value_type='INTEGER' then ''||vi_values||'' 
            when vv_value_type='CHAR' then ''''||vi_values||'''' 
            when vv_value_type='DATE' then 'to_date('||vi_values||',''yyyymmdd'')' end||') tablespace '
            ||vv_tablespace||')';
            
           
            execute immediate vv_sql;
         else
            --分区存在，检查子分区是否存在
            vi_flag := 0;
            select count('a') into vi_flag
              from all_tab_subpartitions t
             where t.table_owner=vv_table_owner
               and t.table_name=vv_table_name
               and t.partition_name=vv_partition_name
               and t.subpartition_name=vv_subpartition_name;
            
            if vi_flag = 0 then
               --子分区不存在的处理
               vv_task_pos := '子分区 '||vv_subpartition_name||' 不存在，增加该子分区';
               vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 4, vv_task_pos, null);
               
               vv_sql := 'alter table '||vv_table_owner||'.'||vv_table_name||' modify partition '
               ||vv_partition_name||' add subpartition '||vv_subpartition_name||' values('
               ||case when vv_value_type='INTEGER' then ''||vi_values||'' 
               when vv_value_type='CHAR' then ''''||vi_values||'''' 
               when vv_value_type='DATE' then 'to_date('||vi_values||',''yyyymmdd'')' end||') tablespace '
               ||vv_tablespace;
               execute immediate vv_sql;
            else
               --子分区存在的处理
               vv_task_pos := '子分区 '||vv_subpartition_name||' 存在，清空此分区';
               vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 4, vv_task_pos, null);
               
               vv_sql := 'alter table '||vv_table_owner||'.'||vv_table_name||' truncate subpartition '
               ||vv_subpartition_name;
               execute immediate vv_sql;
            end if;
         end if;
      
      end if;
      
      vv_task_pos := '完成！';
      vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, vv_task_pos, null);
      
      return(vi_result);
      
/*EXCEPTION
  WHEN exc_error then 
    vi_result:=0;
	WHEN OTHERS THEN
	vi_result := masamk.sf_write_proc_log(vv_task_name, vv_table_name, sysdate, 0, sqlcode, sqlerrm);
  return(vi_result);*/

 END fun_add_table_partitions;