8.120. storeset(integer, text)

    declare
    	p_set_id			alias for $1;
    	p_set_comment		alias for $2;
    	v_local_node_id		int4;
    begin
    	-- ----
    	-- Grab the central configuration lock
    	-- ----
    	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::text, v_local_node_id::text, p_set_comment::text);
    end;