批量修改Oracle序列值的預存程序

　使用Oracle序列來產生表主索引值的時候 ，可能會碰到會根據主索引值來修改相應序列的值。

    下面預存程序P_MODIFY_SEQUENCES完成這一目的。

　 r:=F_MODIFY_SEQUENCE('SE_DATATYPE','T_DATATYPE','DDID');
     r:=F_MODIFY_SEQUENCE('SE_DATAITEM','T_DATAITEM','ITEMID');

把這個修改成要修改的序列名及對應表名和主鍵名，支援多序列。 create   or   replace   procedure  P_MODIFY_SEQUENCES  is
-- 更新各序列值
str_sql  varchar2 ( 4000 );
r boolean;

function  F_MODIFY_SEQUENCE(sequenceName  varchar2 ,taleName  varchar2 ,keyF  varchar2 ) return  boolean
is
  LastValue  integer ;
  f_sql  varchar2 ( 4000 );
  Next_num  number ;
  Max_num  number ;
begin
 f_sql: = ' select max( ' || keyF || ' ) from  ' || taleName;
  execute  immediate f_sql  into  Max_num;
  if (Max_num  is   not   null )  then
      Next_num: = Max_num + 1 ;
     f_sql: = ' alter sequence  ' || sequenceName || '  increment by 1 nocache ' ;
      execute  immediate f_sql;
      -- f_sql:='select '||sequenceName||'.nextval from dual';
      -- execute immediate f_sql;
     f_sql: = ' alter sequence  ' || sequenceName || '  increment by 1 nocache ' ;
      execute  immediate f_sql;
 
     loop
      f_sql: = ' select  ' || sequenceName || ' .nextval from dual ' ;
       execute  immediate f_sql  into  LastValue;
       -- select SE_DATATYPE.nextval into LastValue from dual;    
       exit   when  LastValue  >=  Next_num  -   1 ;
      f_sql: = ' select  ' || sequenceName || ' .nextval from dual ' ;
       execute  immediate f_sql  into  LastValue;    
       -- select SE_DATATYPE.nextval into LastValue from dual;
      end  loop;  
     f_sql: = ' alter sequence  ' || sequenceName || '  increment by 1 cache 20 ' ;
      execute  immediate f_sql;
  end   if ;
  commit ;
  return  true;
 Exception
     when  others  then
             return  false; 
end  F_MODIFY_SEQUENCE;


begin  
     r: = F_MODIFY_SEQUENCE( ' SE_DATATYPE ' , ' T_DATATYPE ' , ' DDID ' ); 
     r: = F_MODIFY_SEQUENCE( ' SE_DATAITEM ' , ' T_DATAITEM ' , ' ITEMID ' ); 
end  P_MODIFY_SEQUENCES;
/