复制原表的结构，索引包括多个索引，主键，注释，就是原表有的新建的都有
不是单用户下的表，可能有多个用户的情况，这涉及的知识点有点广，写一部分之前运行了可以，后面有出现了未知的问题，实在不会改了，求大神指教存储过程调用的是规程表中建表规程来建表的，下面是写的存储过程
CREATE OR REPLACE PACKAGE SYSTEM.DM_FNCS_TABLEBUILING IS
  --*********************************************************************
  -- Const value define here
  --*********************************************************************
  CONST_FUNC_EXEC_OK   CONSTANT NUMBER := 1;
  CONST_FUNC_EXEC_FAIL CONSTANT NUMBER := -1;

  /*********************************************************************
  *define Spt_info
  *********************************************************************/
  TYPE Spt_info IS RECORD(
  	REF_OWNER				VARCHAR2(30),
  	REF_TABLE				VARCHAR2(30),
  	DEST_OWNER			VARCHAR2(30),
  	DEST_TABLE			VARCHAR2(30),
  	SUFFIX					VARCHAR2(30),
  	TABLE_SPACE			VARCHAR2(30),
  	INDEX_SPACE			VARCHAR2(30),
  	TABLE_INITIAL		VARCHAR2(512),
  	INDEX_INITIAL		VARCHAR2(512),
  	ALIAS_NAME			VARCHAR2(10)
  );
  TYPE List_Spt_info IS TABLE OF Spt_info;

  PROCEDURE exec_Sql(v_strSql IN VARCHAR2);
  PROCEDURE gen_pt_table(after_month IN NUMBER);


END DM_FNCS_TABLEBUILING;



----body

CREATE OR REPLACE PACKAGE BODY SYSTEM.DM_FNCS_TABLEBUILING AS

  TYPE TABLE_SPACE_LIST IS TABLE OF VARCHAR2(32) INDEX BY BINARY_INTEGER;
  TYPE INDEX_SPACE_LIST IS TABLE OF VARCHAR2(32) INDEX BY BINARY_INTEGER;
  /*********************************************************************
  * exec sql, ignore error!
  *********************************************************************/
  PROCEDURE exec_Sql(v_strSql IN VARCHAR2) AS
  BEGIN
    EXECUTE IMMEDIATE v_strSql;
    DBMS_OUTPUT.put_line('EXEC SQL:'|| v_strSql ||'-->OK!');
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE('No record found!');
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('Error message when you try to exec sql:'||v_strSql);
  END exec_Sql;

  --function : Format_PT_INFO

  FUNCTION Format_PT_INFO(v_ref_owner IN varchar2,
                          v_ref_table IN varchar2,
                          v_dest_owner IN varchar2,
                          v_dest_table IN varchar2,
                          v_suff IN varchar2,
                          v_table_space IN varchar2,
                          v_index_space IN varchar2,
                          v_table_ini IN varchar2,
                          v_index_ini IN varchar2,
                          v_alias_name IN varchar2) RETURN Spt_info AS
      sptInfo Spt_info;
    BEGIN
      sptInfo.REF_OWNER := v_ref_owner;
      sptInfo.REF_TABLE := v_ref_table;
      sptInfo.DEST_OWNER := v_dest_owner;
      sptInfo.DEST_TABLE := v_dest_table;
      sptInfo.SUFFIX := v_suff;
      sptInfo.TABLE_SPACE := v_table_space;
      sptInfo.INDEX_SPACE := v_index_space;
      sptInfo.TABLE_INITIAL := v_table_ini;
      sptInfo.INDEX_INITIAL := v_index_ini;
      sptInfo.ALIAS_NAME := v_alias_name;
      RETURN sptInfo;
  END;


  /*********************************************************************
  *function: get partion table suffix list!
  *********************************************************************/
  PROCEDURE get_pt_suffix(after_month IN NUMBER,
                          sptInfoList OUT List_Spt_info)  AS
    CURSOR vc_part_tbls_constr IS
    Select * from sd.SYS_PARTITION_TBLS_CONSTR_RULE;
    TYPE Suffix_LIST IS TABLE OF VARCHAR2(32) INDEX BY BINARY_INTEGER;
    v_endDate                  DATE;
    dTmp                       DATE;
    v_suffix                   VARCHAR2(30);
    v_suffixList               Suffix_LIST;
    v_tableSpace               VARCHAR2(32);
    v_indexSpace               VARCHAR2(32);
    sptInfo                     Spt_info;
    vr_part_tbls_constr vc_part_tbls_constr%ROWTYPE;
    v_si                        NUMBER;
    v_i                         NUMBER;
    v_tableSpaceList TABLE_SPACE_LIST;
    v_indexSpaceList INDEX_SPACE_LIST;

    v_log_debugSql varchar2(1024);

    n_Count NUMBER(6); 
    n_Posb  NUMBER(6); 
    n_Pose  NUMBER(6); 
  BEGIN
    OPEN vc_part_tbls_constr;
    sptInfoList := List_Spt_info();

    v_log_debugSql := 'insert into sd.sys_partition_create_trace values(sysdate,''get_pt_suffix'',:f1,:f2,:f3,:f4,null,null,null)';

    IF(after_month is null) THEN
      v_endDate := to_date(to_char(last_day(add_months(sysDate,1)),'YYYYMMDD'),'YYYYMMDD')+23/24;
    ELSE
      v_endDate := to_date(to_char(last_day(add_months(sysDate,after_month)),'YYYYMMDD'),'YYYYMMDD')+23/24;
    END IF;

    LOOP
      FETCH vc_part_tbls_constr INTO vr_part_tbls_constr;
      EXIT WHEN vc_part_tbls_constr%NOTFOUND;

      --format tablespace in arrList
	IF (v_tableSpaceList.COUNT > 0) THEN
		v_tableSpaceList.DELETE();
	END IF;

      IF(vr_part_tbls_constr.table_space is not null) THEN
        n_Count := -1;
        n_Posb  := 1;
        LOOP
          n_Pose := Instr(vr_part_tbls_constr.table_space, '/', n_Posb, 1);
          n_Count := n_Count + 1;
          IF n_Pose = 0 THEN
            v_tableSpaceList(n_Count) := substr(vr_part_tbls_constr.table_space, n_Posb, Length(vr_part_tbls_constr.table_space) - n_Posb + 1);
            EXIT;
          END IF;
          v_tableSpaceList(n_Count) :=Rtrim(Ltrim(Substr(vr_part_tbls_constr.table_space, n_Posb, n_Pose - n_Posb)));
          n_Posb := n_Pose + Length('/');
        END LOOP;
      END IF;

    IF (v_indexSpaceList.COUNT > 0) THEN
      v_indexSpaceList.DELETE();
    END IF;

      IF(vr_part_tbls_constr.ind_space is not null) THEN
        n_Count := -1;
        n_Posb  := 1;
        LOOP
          n_Pose := Instr(vr_part_tbls_constr.table_space, '/', n_Posb, 1);
          n_Count := n_Count + 1;
          IF n_Pose = 0 THEN
            v_indexSpaceList(n_Count) := Substr(vr_part_tbls_constr.ind_space, n_Posb, Length(vr_part_tbls_constr.ind_space) - n_Posb + 1);
            EXIT;
          END IF;
          v_indexSpaceList(n_Count) :=Rtrim(Ltrim(Substr(vr_part_tbls_constr.ind_space, n_Posb, n_Pose - n_Posb)));
          n_Posb := n_Pose + Length('/');
        END LOOP;
      END IF;

      --handle mod
      v_suffixList.delete();
      IF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_X_') >0) or (substr(vr_part_tbls_constr.PT_SCHEME_RULE,-1,2)='_X')THEN
        FOR v_i in 0..vr_part_tbls_constr.MOD_VALUE-1 LOOP
          v_suffixList(v_i) := v_i;
        END LOOP;
      END IF;

      IF (v_suffixList.count>0) THEN
        FOR v_si IN 1..v_suffixList.count LOOP
          dTmp := trunc(add_months(sysDate,1),'MM');

          IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 0) THEN
            v_tableSpace := v_tableSpaceList(Mod(v_suffixList(v_si-1), v_tableSpaceList.count));
            v_indexSpace := v_indexSpaceList(Mod(v_suffixList(v_si-1), v_indexSpaceList.count));
          END IF;

          EXECUTE IMMEDIATE v_log_debugSql using vr_part_tbls_constr.REF_TABLE,v_tableSpace,v_tableSpaceList.count,'line number 147';
          commit;

          --handle pt_mode _YYYYMMDD24HH
          IF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYYMMDD24HH') >0) THEN
            WHILE (dTmp <= v_endDate) LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDDHH24')), v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDDHH24')), v_indexSpaceList.count));
              END IF;

              v_suffix := v_suffixList(v_si-1)||'_'||to_char(dTmp,'YYYYMMDDHH24');

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;

              dTmp := dTmp+1/24;
            END LOOP;
          ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYYMMDD') >0) THEN
            WHILE (dTmp <= v_endDate) LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDD')), v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDD')), v_indexSpaceList.count));
              END IF;

              v_suffix := v_suffixList(v_si-1)||'_'||to_char(dTmp,'YYYYMMDD');

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;

              dTmp := dTmp+1;
            END LOOP;
          ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYYMM') >0) THEN
            WHILE (dTmp <= v_endDate) LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_indexSpaceList.count));
              END IF;

              v_suffix := v_suffixList(v_si-1)||'_'||to_char(dTmp,'YYYYMM');

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;

              dTmp := add_months(dTmp,1);
            END LOOP;
          ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYY') >0) THEN
            WHILE (dTmp <= v_endDate) LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_indexSpaceList.count));
              END IF;

              v_suffix := v_suffixList(v_si-1)||'_'||to_char(dTmp,'YYYY');

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;

              dTmp := add_months(dTmp,12);
            END LOOP;
          ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_W_R') >0) THEN
            FOR v_w_i in 1..7 LOOP
              FOR v_r_i in 1..2 LOOP
                --deal special spacePattern
                IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                  v_tableSpace := v_tableSpaceList(Mod(v_r_i, v_tableSpaceList.count));
                  v_indexSpace := v_indexSpaceList(Mod(v_r_i, v_indexSpaceList.count));
                END IF;

                v_suffix := v_suffixList(v_si-1)||'_'||v_w_i||'_'||v_r_i;

                sptInfoList.EXTEND;
                sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                                v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
                sptInfoList(sptInfoList.last) := sptInfo;
              END LOOP;
            END LOOP;
          ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_W_24HH') >0) THEN
            FOR v_w_i in 1..7 LOOP
              FOR v_h_i in 0..23 LOOP
                --deal special spacePattern
                IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                  v_tableSpace := v_tableSpaceList(Mod(v_h_i, v_tableSpaceList.count));
                  v_indexSpace := v_indexSpaceList(Mod(v_h_i, v_indexSpaceList.count));
                END IF;

                v_suffix := v_suffixList(v_si-1)||'_'||v_w_i||'_'||v_h_i;

                sptInfoList.EXTEND;
                sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                                v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
                sptInfoList(sptInfoList.last) := sptInfo;
              END LOOP;
            END LOOP;
          ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_W') >0) THEN
            FOR v_w_i in 1..7 LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(v_w_i, v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(v_w_i, v_indexSpaceList.count));
              END IF;

              v_suffix := v_suffixList(v_si-1)||'_'||v_w_i;

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;
            END LOOP;
          ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_24HH_R') >0) THEN
            FOR v_h_i in 0..23 LOOP
              FOR v_r_i in 1..2 LOOP
                --deal special spacePattern
                IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                  v_tableSpace := v_tableSpaceList(Mod(v_r_i, v_tableSpaceList.count));
                  v_indexSpace := v_indexSpaceList(Mod(v_r_i, v_indexSpaceList.count));
                END IF;

                v_suffix := v_suffixList(v_si-1)||'_'||v_h_i||'_'||v_r_i;

                sptInfoList.EXTEND;
                sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                                v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
                sptInfoList(sptInfoList.last) := sptInfo;
              END LOOP;
            END LOOP;
          ELSE
            v_suffix := v_suffixList(v_si-1);

            sptInfoList.EXTEND;
            sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                            v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
            sptInfoList(sptInfoList.last) := sptInfo;
          END IF;

        END LOOP;
      ELSE
        dTmp := trunc(add_months(sysDate,1),'MM');
        v_tableSpace := v_tableSpaceList(Mod(1, v_tableSpaceList.count));
      	v_indexSpace := v_indexSpaceList(Mod(1, v_indexSpaceList.count));

        EXECUTE IMMEDIATE v_log_debugSql using vr_part_tbls_constr.REF_TABLE,v_tableSpace,v_tableSpaceList.count,'line number 300';
        commit;

        --handle pt_mode _YYYYMMDD24HH
        IF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYYMMDD24HH') >0) THEN
          WHILE (dTmp <= v_endDate) LOOP
            --deal special spacePattern
            IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
              v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDDHH24')), v_tableSpaceList.count));
              v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDDHH24')), v_indexSpaceList.count));
            END IF;

            v_suffix := to_char(dTmp,'YYYYMMDDHH24');

            sptInfoList.EXTEND;
            sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                            v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
            sptInfoList(sptInfoList.last) := sptInfo;

            dTmp := dTmp+1/24;
          END LOOP;
        ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYYMMDD') >0) THEN
          WHILE (dTmp <= v_endDate) LOOP
            --deal special spacePattern
            IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
              v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDD')), v_tableSpaceList.count));
              v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMMDD')), v_indexSpaceList.count));
            END IF;

            v_suffix := to_char(dTmp,'YYYYMMDD');

            sptInfoList.EXTEND;
            sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                            v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
            sptInfoList(sptInfoList.last) := sptInfo;

            dTmp := dTmp+1;
          END LOOP;
        ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYYMM') >0) THEN
          WHILE (dTmp <= v_endDate) LOOP
            --deal special spacePattern
            IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
              v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_tableSpaceList.count));
              v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_indexSpaceList.count));
            END IF;

            v_suffix := to_char(dTmp,'YYYYMM');

            sptInfoList.EXTEND;
            sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                            v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
            sptInfoList(sptInfoList.last) := sptInfo;

            dTmp := add_months(dTmp,1);
          END LOOP;
        ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_YYYY') >0) THEN
          WHILE (dTmp <= v_endDate) LOOP
            --deal special spacePattern
            IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
              v_tableSpace := v_tableSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_tableSpaceList.count));
              v_indexSpace := v_indexSpaceList(Mod(TO_NUMBER(TO_CHAR(dTmp,'YYYYMM')), v_indexSpaceList.count));
            END IF;

            v_suffix := to_char(dTmp,'YYYY');

            sptInfoList.EXTEND;
            sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                            v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
            sptInfoList(sptInfoList.last) := sptInfo;

            dTmp := add_months(dTmp,12);
          END LOOP;
        ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_W_R') >0) THEN
          FOR v_w_i in 1..7 LOOP
            FOR v_r_i in 1..2 LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(v_r_i, v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(v_r_i, v_indexSpaceList.count));
              END IF;

              v_suffix := v_w_i||'_'||v_r_i;

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;
            END LOOP;
          END LOOP;
        ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_W_24HH') >0) THEN
          FOR v_w_i in 1..7 LOOP
            FOR v_h_i in 0..23 LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(v_h_i, v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(v_h_i, v_indexSpaceList.count));
              END IF;

              v_suffix := v_w_i||'_'||v_h_i;

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;
            END LOOP;
          END LOOP;
        ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_W') >0) THEN
          FOR v_w_i in 1..7 LOOP
            --deal special spacePattern
            IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
              v_tableSpace := v_tableSpaceList(Mod(v_w_i, v_tableSpaceList.count));
              v_indexSpace := v_indexSpaceList(Mod(v_w_i, v_indexSpaceList.count));
            END IF;

            v_suffix := v_w_i;

            sptInfoList.EXTEND;
            sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                            v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
            sptInfoList(sptInfoList.last) := sptInfo;
          END LOOP;
        ELSIF(instr(vr_part_tbls_constr.PT_SCHEME_RULE,'_24HH_R') >0) THEN
          FOR v_h_i in 0..23 LOOP
            FOR v_r_i in 1..2 LOOP
              --deal special spacePattern
              IF(vr_part_tbls_constr.SPACE_DATE_PATTERN = 3) THEN
                v_tableSpace := v_tableSpaceList(Mod(v_r_i, v_tableSpaceList.count));
                v_indexSpace := v_indexSpaceList(Mod(v_r_i, v_indexSpaceList.count));
              END IF;

              v_suffix := v_h_i||'_'||v_r_i;

              sptInfoList.EXTEND;
              sptInfo := Format_PT_INFO(vr_part_tbls_constr.OWNER, vr_part_tbls_constr.REF_TABLE, vr_part_tbls_constr.DEST_OWNER, vr_part_tbls_constr.BASE_NAME||'_'||v_suffix,
                              v_suffix, v_tableSpace, v_indexSpace, 'INITIAL 5K', 'INITIAL 5K', vr_part_tbls_constr.ALIAS_NAME);
              sptInfoList(sptInfoList.last) := sptInfo;
            END LOOP;
          END LOOP;
        END IF;
      END IF;

    END LOOP;
  END get_pt_suffix;

--PROCEDURE : gen_pt_table

  PROCEDURE gen_pt_table(after_month IN NUMBER) AS
    CURSOR vc_part_tbls_is_exists(p_owner varchar2,p_tableName varchar2) IS
    SELECT 1 FROM dual where exists(select 1 from ALL_TABLES WHERE owner = p_owner AND table_name = p_tableName);

    CURSOR vc_tbl_verify(p_owner varchar2, p_tableName varchar2, p_dest_owner varchar2, p_dest_tableName varchar2) IS
    SELECT  COLUMN_NAME,DATA_TYPE,DATA_LENGTH,NULLABLE FROM ALL_TAB_COLS where owner=p_dest_owner and table_name =p_dest_tableName
    MINUS
    SELECT COLUMN_NAME,DATA_TYPE,DATA_LENGTH,NULLABLE from ALL_TAB_COLS where owner=p_owner and table_name =p_tableName;

    CURSOR vc_tbl_primary_key(p_owner varchar2,p_tableName varchar2) IS
    select owner, constraint_name,column_name, position from all_cons_columns where owner=p_owner and constraint_name=
    (select constraint_name from all_constraints where owner=p_owner and table_name=p_tableName and constraint_type='P')
    order by position;

    CURSOR vc_tbl_full_index(p_owner varchar2,p_tableName varchar2) IS
    SELECT owner, index_name, table_owner, table_name from all_indexes where table_owner = p_owner and table_name = p_tableName;

    CURSOR vc_tbl_index_cols(p_owner varchar2, p_indexName varchar2) IS
    SELECT index_owner, index_name, table_owner, table_name, column_name, column_position from all_ind_columns
    where index_owner=p_owner and index_name=p_indexName and not exists(select 1 from all_constraints where owner=p_owner and constraint_name=p_indexName) order by column_position;

    CURSOR vc_primary_verify(p_owner varchar2, p_tableName varchar2, p_dest_owner varchar2, p_dest_tableName varchar2) IS
    select owner, constraint_name,column_name, position from all_cons_columns where owner=p_owner and constraint_name=
    (select constraint_name from all_constraints where owner=p_owner and table_name=p_tableName and constraint_type='P')
    MINUS
    select owner, constraint_name,column_name, position from all_cons_columns where owner=p_dest_owner and constraint_name=
    (select constraint_name from all_constraints where owner=p_dest_owner and table_name=p_dest_tableName and constraint_type='P');

    CURSOR vc_index_verify(p_owner varchar2, p_indexName varchar2, p_dest_owner varchar2, p_dest_indexName varchar2) IS
    SELECT  column_name, column_position FROM all_ind_columns where table_OWNER=p_dest_owner and table_NAME=p_dest_indexName
    MINUS
    SELECT column_name, column_position FROM ALL_IND_COLUMNS where table_OWNER=p_owner and table_NAME=p_indexName;

    CURSOR vc_tbl_index_key(p_owner varchar2,p_tableName varchar2) IS
    SELECT owner, index_name, table_owner, table_name from all_indexes where table_owner = p_owner and table_name = p_tableName
    and index_name not in (SELECT  constraint_name FROM all_constraints where owner=p_owner and table_name=p_tableName and constraint_type='P');

    vr_tbl_index_key vc_tbl_index_key%ROWTYPE;
    vr_index_verify vc_index_verify%ROWTYPE;
    vr_primary_verify vc_primary_verify%ROWTYPE;
    vr_tbl_index_cols vc_tbl_index_cols%ROWTYPE;
    vr_tbl_full_index vc_tbl_full_index%ROWTYPE;
    vr_tbl_primary_key vc_tbl_primary_key%ROWTYPE;
    vr_tbl_verify vc_tbl_verify%ROWTYPE;
    vr_part_tbls_is_exists vc_part_tbls_is_exists%ROWTYPE;

    v_destTable VARCHAR2(40);
    v_orgTable VARCHAR2(40);
    v_destKeyName VARCHAR2(35);
    v_destKeyCols VARCHAR2(256);
    v_tableSpace varchar2(30);
    v_indexSpace varchar2(30);
    v_tableINITIAL varchar2(256);
    v_indexINITIAL varchar2(256);
    v_createTableStmt varchar2(512);
    v_createPrimaryStmt varchar2(512);
    v_insertLogSql varchar2(1024);
    v_log_tbl_existed varchar2(256);
    v_log_tbl_existed_incorrect varchar2(256);
    v_log_ind_existed varchar2(256);
    v_log_ind_existed_incorrect varchar2(256);
		v_actual_sum		NUMBER(8) :=0;
		v_exist_sum		NUMBER(8) :=0;
    spt          Spt_info;
    sptInfoList List_Spt_info;
    v_log_debugSql varchar2(1024);

  BEGIN
    DBMS_OUTPUT.ENABLE (buffer_size=>null);
    v_insertLogSql := 'insert into sd.sys_partition_create_log(object_name,object_type,err_msg,modify_date) values (:v1,:v2,:v3,sysdate)';
    v_log_tbl_existed :='Table is existed!';
    v_log_tbl_existed_incorrect := 'Table is existed,but incorrect.need to packup,and recreate! ';
    v_log_ind_existed := 'Index is existed!';
    v_log_ind_existed_incorrect := 'Index is existed,but incorrect.need to remove,and recreate!';
    v_log_debugSql := 'insert into sd.sys_partition_create_trace values(sysdate,''gen_pt_table'',:f1,:f2,null,null,null,null,null)';

    get_pt_suffix(after_month, sptInfoList);
    FOR v_i IN 1..sptInfoList.count LOOP

      spt  := sptInfoList(v_i);
      v_orgTable := spt.REF_OWNER||'.'||spt.REF_TABLE;
      v_destTable := spt.DEST_OWNER||'.'||spt.DEST_TABLE;
      v_tableSpace := spt.TABLE_SPACE;
      v_indexSpace := spt.INDEX_SPACE;
      v_tableINITIAL := spt.TABLE_INITIAL;
      v_indexINITIAL := spt.INDEX_INITIAL;

      OPEN vc_part_tbls_is_exists(spt.REF_OWNER, spt.REF_TABLE);
      FETCH vc_part_tbls_is_exists INTO vr_part_tbls_is_exists;
      IF(vc_part_tbls_is_exists%ROWCOUNT < 1) THEN
        DBMS_OUTPUT.PUT_LINE('ERROR:reference table:'||spt.REF_OWNER||'.'||spt.REF_TABLE||' is not existed!');
        EXIT;
      END IF;
      CLOSE vc_part_tbls_is_exists;

      OPEN vc_part_tbls_is_exists(spt.DEST_OWNER, spt.DEST_TABLE);
      FETCH vc_part_tbls_is_exists INTO vr_part_tbls_is_exists;
      IF(vc_part_tbls_is_exists%ROWCOUNT > 0) THEN
        OPEN vc_tbl_verify(spt.REF_OWNER, spt.REF_TABLE, spt.DEST_OWNER, spt.DEST_TABLE);
        FETCH vc_tbl_verify INTO vr_tbl_verify;
        IF(vc_tbl_verify%ROWCOUNT > 0) THEN
          --table struct incorrect
          EXECUTE IMMEDIATE v_insertLogSql USING v_destTable,1, v_log_tbl_existed_incorrect;

          OPEN vc_tbl_primary_key(spt.DEST_OWNER, spt.DEST_TABLE);
          LOOP
            FETCH vc_tbl_primary_key INTO vr_tbl_primary_key;
            EXIT WHEN vc_tbl_primary_key%NOTFOUND;
            EXECUTE IMMEDIATE 'alter table '||v_destTable||' drop constraint '||vr_tbl_primary_key.constraint_name;
            EXECUTE IMMEDIATE v_log_debugSql using 'alter table '||v_destTable||' drop constraint '||vr_tbl_primary_key.constraint_name,'line number 557';
            EXIT;
          END LOOP;
          CLOSE vc_tbl_primary_key;

          OPEN vc_tbl_full_index(spt.DEST_OWNER, spt.DEST_TABLE);
          LOOP
            FETCH vc_tbl_full_index INTO vr_tbl_full_index;
            EXIT WHEN vc_tbl_full_index%NOTFOUND;
            EXECUTE IMMEDIATE 'drop index '||vr_tbl_full_index.owner||'.'||vr_tbl_full_index.index_name;
            EXECUTE IMMEDIATE v_log_debugSql using 'drop index '||vr_tbl_full_index.owner||'.'||vr_tbl_full_index.index_name,'line number 567';
          END LOOP;
          CLOSE vc_tbl_full_index;
          EXECUTE IMMEDIATE 'alter table '||v_destTable||' rename to '||substr(substr(spt.DEST_TABLE,0,29)||'_BAK',0,30);
          dbms_output.put_line('rename stmt -->'||'alter table '||v_destTable||' rename to '||substr(substr(spt.DEST_TABLE,0,29)||'_BAK',0,30));
          --bak over,then general partion table
          v_createTableStmt :='CREATE TABLE '||v_destTable||' TABLESPACE '||v_tableSpace||' STORAGE ('||spt.TABLE_INITIAL||') as select * from '||v_orgTable||' where 1=2';
          EXECUTE IMMEDIATE v_createTableStmt;
          EXECUTE IMMEDIATE v_log_debugSql using v_createTableStmt,'line number 575';
          v_actual_sum := v_actual_sum+1;

          OPEN vc_tbl_primary_key(spt.REF_OWNER,spt.REF_TABLE);
            v_destKeyName :=null;
            v_destKeyCols :=null;
            LOOP
              FETCH vc_tbl_primary_key INTO vr_tbl_primary_key;
              EXIT WHEN vc_tbl_primary_key%NOTFOUND;
              IF (v_destKeyName IS NULL) THEN
              v_destKeyName := substr(vr_tbl_primary_key.constraint_name||'_'||spt.SUFFIX,0,30);
              END IF;
              v_destKeyCols := v_destKeyCols||vr_tbl_primary_key.column_name||',';
            END LOOP;
            IF (v_destKeyName IS NOT NULL) THEN
              v_destKeyCols := '('||substr(v_destKeyCols,0, length(v_destKeyCols)-1)||')';
              v_createPrimaryStmt :='alter table '||v_destTable||' add constraint '||v_destKeyName||' primary key '||v_destKeyCols||' using index tablespace '||spt.INDEX_SPACE||' storage ('||spt.INDEX_INITIAL||')';
              EXECUTE IMMEDIATE v_createPrimaryStmt;
              EXECUTE IMMEDIATE v_log_debugSql using v_createPrimaryStmt,'line number 594';
            END IF;
            CLOSE vc_tbl_primary_key;

            OPEN vc_tbl_index_key(spt.REF_OWNER, spt.REF_TABLE);

            LOOP
              FETCH vc_tbl_index_key INTO vr_tbl_index_key;
              EXIT WHEN vc_tbl_index_key%NOTFOUND;
              v_destKeyName :=null;
              v_destKeyCols :=null;
              v_destKeyName := spt.DEST_OWNER||'.'||substr(vr_tbl_index_key.index_name||'_'||spt.SUFFIX,0,30);
              OPEN vc_tbl_index_cols(spt.DEST_OWNER,vr_tbl_index_key.index_name);
              LOOP
                FETCH vc_tbl_index_cols INTO vr_tbl_index_cols;
                EXIT WHEN vc_tbl_index_cols%NOTFOUND;
                v_destKeyCols := v_destKeyCols||vr_tbl_index_cols.column_name||',';
              END LOOP;
              IF (v_destKeyName IS NOT NULL) THEN
                v_destKeyCols := '('||substr(v_destKeyCols,0, length(v_destKeyCols)-1)||')';
                v_createPrimaryStmt :='create index '||v_destKeyName||' on '||v_destTable||v_destKeyCols||' tablespace '||spt.INDEX_SPACE||' storage ('||spt.INDEX_INITIAL||')';
              END IF;
              EXECUTE IMMEDIATE v_createPrimaryStmt;
              EXECUTE IMMEDIATE v_log_debugSql using v_createPrimaryStmt,'line number 617';
              CLOSE vc_tbl_index_cols;
            END LOOP;
            CLOSE vc_tbl_index_key;
        ELSE
          EXECUTE IMMEDIATE v_insertLogSql USING v_destTable,1, v_log_tbl_existed;
          v_exist_sum := v_exist_sum+1;
          OPEN vc_index_verify(spt.REF_OWNER, spt.REF_TABLE, spt.DEST_OWNER, spt.DEST_TABLE);
          FETCH vc_index_verify INTO vr_index_verify;
          IF(vc_index_verify%ROWCOUNT > 0) THEN
            EXECUTE IMMEDIATE v_insertLogSql USING v_destTable, 2, v_log_ind_existed_incorrect;

            OPEN vc_tbl_primary_key(spt.DEST_OWNER, spt.DEST_TABLE);
            LOOP
              FETCH vc_tbl_primary_key INTO vr_tbl_primary_key;
              EXIT WHEN vc_tbl_primary_key%NOTFOUND;
              EXECUTE IMMEDIATE 'alter table '||v_destTable||' drop constraint '||vr_tbl_primary_key.constraint_name;
              EXECUTE IMMEDIATE v_log_debugSql using 'alter table '||v_destTable||' drop constraint '||vr_tbl_primary_key.constraint_name,'line number 634';
              EXIT;
            END LOOP;
            CLOSE vc_tbl_primary_key;

            OPEN vc_tbl_full_index(spt.DEST_OWNER, spt.DEST_TABLE);
            LOOP
              FETCH vc_tbl_full_index INTO vr_tbl_full_index;
              EXIT WHEN vc_tbl_full_index%NOTFOUND;
              EXECUTE IMMEDIATE 'drop index '||vr_tbl_full_index.owner||'.'||vr_tbl_full_index.index_name;
              EXECUTE IMMEDIATE v_log_debugSql using 'drop index '||vr_tbl_full_index.owner||'.'||vr_tbl_full_index.index_name,'line number 644';
            END LOOP;
            CLOSE vc_tbl_full_index;

            OPEN vc_tbl_primary_key(spt.REF_OWNER, spt.REF_TABLE);
            v_destKeyName :=null;
            v_destKeyCols :=null;
            LOOP
              FETCH vc_tbl_primary_key INTO vr_tbl_primary_key;
              EXIT WHEN vc_tbl_primary_key%NOTFOUND;
              IF (v_destKeyName is null) THEN
              v_destKeyName := substr(vr_tbl_primary_key.constraint_name||'_'||spt.SUFFIX,0,30);
              END IF;
              v_destKeyCols := v_destKeyCols||vr_tbl_primary_key.column_name||',';
            END LOOP;
            v_destKeyCols := '('||substr(v_destKeyCols,0, length(v_destKeyCols)-1)||')';
            v_createPrimaryStmt :='alter table '||v_destTable||' add constraint '||v_destKeyName||' primary key '||v_destKeyCols||' using index tablespace '||spt.INDEX_SPACE||' storage ('||spt.INDEX_INITIAL||')';
            EXECUTE IMMEDIATE v_createPrimaryStmt;
            EXECUTE IMMEDIATE v_log_debugSql using v_createPrimaryStmt,'line number 662';
            CLOSE vc_tbl_primary_key;

            OPEN vc_tbl_index_key(spt.REF_OWNER, spt.REF_TABLE);
            LOOP
              FETCH vc_tbl_index_key INTO vr_tbl_index_key;
              EXIT WHEN vc_tbl_index_key%NOTFOUND;
              v_destKeyName :=null;
              v_destKeyCols :=null;
              v_destKeyName := spt.DEST_OWNER||'.'||substr(vr_tbl_index_key.index_name||'_'||spt.SUFFIX,0,30);
              OPEN vc_tbl_index_cols(spt.DEST_OWNER, vr_tbl_index_key.index_name);
              LOOP
                FETCH vc_tbl_index_cols INTO vr_tbl_index_cols;
                EXIT WHEN vc_tbl_index_cols%NOTFOUND;
                v_destKeyCols := v_destKeyCols||vr_tbl_index_cols.column_name||',';
              END LOOP;
              IF (v_destKeyName is not null) THEN
                v_destKeyCols := '('||substr(v_destKeyCols,0, length(v_destKeyCols)-1)||')';
                v_createPrimaryStmt :='create index '||v_destKeyName||' on '||v_destTable||v_destKeyCols||' tablespace '||spt.INDEX_SPACE||' storage ('||spt.INDEX_INITIAL||')';
                EXECUTE IMMEDIATE v_createPrimaryStmt;
                EXECUTE IMMEDIATE v_log_debugSql using v_createPrimaryStmt,'line number 682';
              END IF;
              CLOSE vc_tbl_index_cols;
            END LOOP;
            CLOSE vc_tbl_index_key;
            CLOSE vc_index_verify;
          END IF;

          close vc_index_verify;
        END IF;
        CLOSE vc_tbl_verify;
      ELSE
        v_createTableStmt :='CREATE TABLE '||v_destTable||' TABLESPACE '||spt.TABLE_SPACE||' STORAGE ('||spt.TABLE_INITIAL||') as select * from '||v_orgTable||' where 1=2';
      	v_actual_sum := v_actual_sum+1;
        EXECUTE IMMEDIATE v_createTableStmt;
        EXECUTE IMMEDIATE v_log_debugSql using v_createTableStmt,'line number 697';

        OPEN vc_tbl_primary_key(spt.REF_OWNER, spt.REF_TABLE);
        v_destKeyName :=null;
        v_destKeyCols :=null;
        LOOP
          FETCH vc_tbl_primary_key INTO vr_tbl_primary_key;
          EXIT WHEN vc_tbl_primary_key%NOTFOUND;
          IF (v_destKeyName IS NULL) THEN
          v_destKeyName := substr(vr_tbl_primary_key.constraint_name||'_'||spt.SUFFIX,0,30);
          END IF;
          v_destKeyCols := v_destKeyCols||vr_tbl_primary_key.column_name||',';
        END LOOP;
        IF (v_destKeyName IS NOT NULL) THEN
          v_destKeyCols := '('||substr(v_destKeyCols,0, length(v_destKeyCols)-1)||')';
          v_createPrimaryStmt :='alter table '||v_destTable||' add constraint '||v_destKeyName||' primary key '||v_destKeyCols||' using index tablespace '||spt.INDEX_SPACE||' storage ('||spt.INDEX_INITIAL||')';
          EXECUTE IMMEDIATE v_createPrimaryStmt;
          EXECUTE IMMEDIATE v_log_debugSql using v_createPrimaryStmt,'line number 714';
        END IF;
        CLOSE vc_tbl_primary_key;

        OPEN vc_tbl_index_key(spt.REF_OWNER, spt.REF_TABLE);
        LOOP
          FETCH vc_tbl_index_key INTO vr_tbl_index_key;
          --dbms_output.put_line('vc_tbl_index_key begin!');
          EXIT WHEN vc_tbl_index_key%NOTFOUND;
          --dbms_output.put_line('vc_tbl_index_key get record!');
          v_destKeyName :=null;

          v_destKeyCols :=null;
          --dbms_output.put_line('vr_tbl_index_key.index_name begin substr = '||vr_tbl_index_key.index_name);
          v_destKeyName := spt.DEST_OWNER||'.'||substr(vr_tbl_index_key.index_name||'_'||spt.SUFFIX,0,30);


          OPEN vc_tbl_index_cols(spt.DEST_OWNER,vr_tbl_index_key.index_name);
          LOOP
            FETCH vc_tbl_index_cols INTO vr_tbl_index_cols;
            EXIT WHEN vc_tbl_index_cols%NOTFOUND;
            --dbms_output.put_line('vc_tbl_index_cols get record!');

            v_destKeyCols := v_destKeyCols||vr_tbl_index_cols.column_name||',';
          END LOOP;
          IF (v_destKeyName IS NOT NULL) THEN
            v_destKeyCols := '('||substr(v_destKeyCols,0, length(v_destKeyCols)-1)||')';
            v_createPrimaryStmt :='create index '||v_destKeyName||' on '||v_destTable||v_destKeyCols||' tablespace '||spt.INDEX_SPACE||' storage ('||spt.INDEX_INITIAL||')';
            EXECUTE IMMEDIATE v_createPrimaryStmt;
            EXECUTE IMMEDIATE v_log_debugSql using v_createPrimaryStmt,'line number 748';
          END IF;
          CLOSE vc_tbl_index_cols;
        END LOOP;
        CLOSE vc_tbl_index_key;
      END IF;
      CLOSE vc_part_tbls_is_exists;
    END LOOP;
    dbms_output.put_line('Need create '||sptInfoList.count||' partition tables!');
    dbms_output.put_line('actual create tables-->'||v_actual_sum);
    dbms_output.put_line('existed tables --->'||v_exist_sum);
    dbms_output.put_line('Execute completed!!!');
    commit;
  END gen_pt_table;
END DM_FNCS_TABLEBUILING;


------执行调用
declare
begin
	DM_FNCS_TABLEBUILING.gen_pt_table(1);      ----------数字代表建往后n月表
end;
static void foo(int...x)

seeyou8286

0个回复
