set pages 500
DECLARE
v_max NUMBER(10) := 0;
v_desc varchar2(50);
BEGIN
FOR t IN (SELECT * FROM dba_sequences@DBLINK_BASE_PRODUCCION.EQUIPOREMOTO.LOCAL
WHERE SEQUENCE_OWNER = 'NOMBRE_ESQUEMA')Loop
dbms_output.put_line('Eliminando secuencia '|| t.sequence_name||'...');
v_desc := 'DROP SEQUENCE '|| t.sequence_name;
EXECUTE IMMEDIATE 'DROP SEQUENCE '|| t.sequence_name;
EXECUTE IMMEDIATE 'CREATE SEQUENCE '|| t.sequence_name ||' INCREMENT BY
1 START WITH '|| (t.last_number + 1);
dbms_output.put_line('Secuencia '|| t.sequence_name||' recreada.');
END LOOP;
END;