See also set_sequence.txt for inspiration

A nice dynamic solution but what about the following:

– select the max value from the table
Select the max_value into lMaxVal from table;
–select the sequence number from the sequence
Select sequence_name.nextval into lSeqNr from dual;
– change the increment of the sequence
Execute immediate (‘alter sequence sequence_name increment by ‘||( lMaxVal-lSeqNr));
– select a value from the sequence
select sequence_name.next_val into lSeqNr from dual;
– reset the increment of the sequence
Execute immediate (‘alter sequence sequence_name increment by 1′);

If you implement this in your package you do not have to recreate/grant etc on the sequence and the sequence would not create
invalid objects.

Cheers Marcos