批量修改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 );