导数据后，避免ID重复，全部序列增加10000

create or replace procedure pro_Supplement_Leave_Mapping1   AS
  CURSOR TEMP_CUR IS
  select SEQUENCE_NAME from user_sequences 
  where 1=1 
  and SEQUENCE_NAME not like 'SQ_PRICE%';
  V_SEQUENCE_NAME VARCHAR2(4000);
  STRSQL VARCHAR2(4000);
  nm number(1);
  n number(10);
  --P_VALUE  VARCHAR2(4000);
begin

  For TEMP_CUR_RECORD in TEMP_CUR loop
    V_SEQUENCE_NAME := TEMP_CUR_RECORD.SEQUENCE_NAME;
    BEGIN
     nm:=1; 
     n:=1;
     loop
     --P_VALUE := '(select max(id) from  '||v_tablename || ' where rownum=1)';
     if nm=1 then
       STRSQL :='ALTER SEQUENCE '||V_SEQUENCE_NAME||' INCREMENT BY 10000';
       execute immediate STRSQL;
     --STRSQL :='insert into SEQCESHI(table_name,column_name,maxid)values('''||v_tablename||''','''||v_column||''','||P_VALUE||')';
     elsif nm=2 then 
       --STRSQL :='SELECT '||V_SEQUENCE_NAME||'.NEXTVAL FROM DUAL';
       execute immediate 'SELECT '||V_SEQUENCE_NAME||'.NEXTVAL FROM DUAL' into n;
     else 
       STRSQL :='ALTER SEQUENCE '||V_SEQUENCE_NAME||' INCREMENT BY 1';
       execute immediate STRSQL;   
     end if;
     nm:=nm+1;
     exit when nm>3;
     end loop;
     commit;
    END;
  end loop;
end pro_Supplement_Leave_Mapping1;