loop
	fetch rc into r;
	return next r;
	end loop;

CREATE OR REPLACE FUNCTION test_get()
  RETURNS SETOF record AS
'declare
	var_get_id int4;
	var_get_count int4;
	rc REFCURSOR;
	r record;
begin
	update vw_sms_del set vw_msg_status = vw_msg_status + 1000000;
	insert into tesmegets default values;
	var_get_id := currval(''tesmegets_id_get_seq'');
	update tesmegets set timediff = datediff(''second'', get_date, localtimestamp) where id_get = var_get_id-1;

	update tmsg_sms set msg_status = msg_status + 10000, get_id = var_get_id 
	from vw_sms_get where tmsg_sms.msg_id = vw_sms_get.msg_id;

	GET DIAGNOSTICS var_get_count = ROW_COUNT;

	update tesmegets set get_count = var_get_count where id_get = var_get_id;

	if var_get_count = 0 then var_get_count := 0;
	end if;

	var_get_count:=1;	
	
	IF  var_get_count=0 then
		OPEN rc FOR SELECT 0 AS msg_id, ''no data'' AS msg_to, '''' AS msg_text, 0 AS codepage, 0 AS smsc_id;
	ELSE
		OPEN rc FOR SELECT msg_id, msg_to, msg_text, msg_cp as codepage, smsc_id FROM tmsg_sms/* WHERE (get_id = var_get_id)*/;
	END IF;

	--RETURN rc;

	loop
	fetch rc into r;
  
	if (not FOUND)
	then
	exit;
	end if;
  
	return next r;
	end loop;

return;

end;'
  LANGUAGE 'plpgsql' VOLATILE;