create procedure MyList
return (Y varchar(1024))
as
begin
 y='';
 for select ... from ... into ..:X 
 do begin
        Y=Y||:X||',';
     end
 suspend;
end;