1.99. storeset( integer, text )

関数特性

言語: PLPGSQL

戻り値: bigint

人の読む事ができるコメント set_comment の付いているセット set_id に対して STORE_SET 事象を生成します。

declare
	p_set_id			alias for $1;
	p_set_comment			alias for $2;
	v_local_node_id			int4;
begin
	-- ----
	-- 中枢構成のロックを取得
	-- ----
	lock table sl_config_lock;

	v_local_node_id := getLocalNodeId('_schemadoc');

	insert into sl_set
			(set_id, set_origin, set_comment) values
			(p_set_id, v_local_node_id, p_set_comment);

	return createEvent('_schemadoc', 'STORE_SET', 
			p_set_id, v_local_node_id, p_set_comment);
end;