Re: RV: Consultar Secuencias

>>
>> Estimada Lista:
>> Se podrá a través de una sentencia SQL saber todas las
>> secuencias que están creadas y cual es su valor actual ?
>>
>> La idea es crear un script para que aquellas secuencias que estén corridas
>> poder corregirlas.
>>
>> Desde ya les agradezco.
>>
>>
>>
>> Atte.
>> ___________________________
>> ASC Daniel Ferrer
>> Gerente de Sistemas - CTD SRL
>> Rosario - La República 7414
>> Tel: 0341-459 4848
>> mailto:sistemas(at)ctd(dot)com(dot)ar
>> ___________________________
>>
>>
>
>
>
>

Hola espero te sirva, es una funcion que escribi al vuelo e imprime
todas las secuencias con sus respectivos ultimos valores:

CREATE OR REPLACE FUNCTION obtenersecuencias() RETURNS void AS $$
DECLARE
sec_names RECORD;
row RECORD;
secuencia refcursor;
BEGIN
FOR sec_names IN select relname from pg_class where relkind = 'S' LOOP
OPEN secuencia FOR EXECUTE 'SELECT * FROM ' || sec_names.relname;
FETCH secuencia INTO row;
CLOSE secuencia;

RAISE NOTICE 'secuencia = %, last_val = %',row.sequence_name,
row.last_value;

END LOOP;

END;
$$ LANGUAGE plpgsql;

--
Saludos,

Julio Cesar Sánchez González.

--
Ahora me he convertido en la muerte, destructora de mundos.
Soy la Muerte que se lleva todo, la fuente de las cosas que vendran.

www.sistemasyconectividad.com.mx http://darkavngr.blogspot.com/