Reset sequence values in PostgreSQL

reset_sequences.sql

do $$
declare
	r record;
	lMaxId bigint;
	dbName text := 'devel';
begin
	for r in with seq as (
		select
			table_name,
			column_name,
			substring(substring(column_default from position(chr(39) in column_default) + 1) from 1 for position(chr(39) in substring(column_default from position(chr(39) in column_default) + 1)) - 1 ) as sequence_name
		from
			information_schema.columns
		where
			table_catalog = dbName
			and column_default like 'nextval%')
		select
			table_name,
			column_name,
			sequence_name,
			'SELECT MAX(' || quote_ident(column_name) || ') FROM ' || quote_ident(table_name) AS max_id
		from
			seq
	LOOP
		EXECUTE r.max_id INTO lMaxId;
		RAISE NOTICE 'trying to set % to %', r.sequence_name, lMaxId;
		EXECUTE FORMAT('SELECT setval(%L, %s)', r.sequence_name, lMaxId);
	END LOOP;

end $$;