create table test(
id integer,
name char( 10 ));

insert into test values ( 1 ,'Vasja');
insert into test values ( 1 ,'Kolja');
insert into test values ( 2 ,'Mi6a');
insert into test values ( 2 ,'Anja');
insert into test values ( 2 ,'Vova');

set term !!;
create procedure testp
returns (id integer, name varchar( 32765 ))
as
 declare variable tmp char( 10 );
begin
for select distinct id 
 from test 
 into id
 do begin 
 name='';
 for select name 
  from test 
  where id=:id 
  into tmp
  do name=name||:tmp;
 suspend;
end
end
!!
set term;!!
 
select * from testp;