Oracle创建序列存储过程

create or replace procedure createSequence(tableName in varchar2) is
indexStart number ;
cou number ;
tName varchar2(200);
str varchar2(8000);
begin
tName:= tableName;
str:= 'select count(*) as int from tab where tname=upper('''|| tName||''')' ;
dbms_output.put_line(str);
execute immediate str into cou ;
if cou>0 then
begin
str:= 'select nvl(max(id),0)+1 from ' || tableName ;
execute immediate str into indexStart ;
str:='create sequence SEQUENCE_' || tName || ' minvalue 1 maxvalue 999999999999999999999999999 start with '|| indexStart ||' increment by 1 nocache';
dbms_output.put_line(str);
execute immediate str;
end;
end if ;
end createSequence;

SELECT SEQUENCE_TABLENAME.NEXTVAL FROM DUAL;