procedure(...)

tmp, somevariable varchar(xxx) - variables
somecondition integer - input parameter
result varchar(xxxx) - output parameter
tmp='';
for select somecolumn from sometable
where somefield = :somecondition
into :somevariable do begin
tmp=:tmp||:somevariable;
end
result = tmp;
suspend
end