関数特性
言語: PLPGSQL
戻り値: integer
sequenceSetValue (seq_id, seq_origin, ev_seqno, last_value) シーケンス seq_id を新規値 last_value に設定します。declare
p_seq_id alias for $1;
p_seq_origin alias for $2;
p_ev_seqno alias for $3;
p_last_value alias for $4;
v_fqname text;
begin
-- ----
-- シーケンスの完全修飾名(Fully Qualified Name)を獲得
-- ----
select slon_quote_brute(PGN.nspname) || '.' ||
slon_quote_brute(PGC.relname) into v_fqname
from sl_sequence SQ,
"pg_catalog".pg_class PGC, "pg_catalog".pg_namespace PGN
where SQ.seq_id = p_seq_id
and SQ.seq_reloid = PGC.oid
and PGC.relnamespace = PGN.oid;
if not found then
raise exception 'Slony-I: sequence % not found', p_seq_id;
end if;
-- ----
-- 新規値に更新
-- ----
execute 'select setval(''' || v_fqname ||
''', ''' || p_last_value || ''')';
insert into sl_seqlog
(seql_seqid, seql_origin, seql_ev_seqno, seql_last_value)
values (p_seq_id, p_seq_origin, p_ev_seqno, p_last_value);
return p_seq_id;
end;