Trims leading and trailing spaces and control characters from a string.
function ibec_Trim(S : string): string;
execute IBEBlock returns (proc_name varchar(31), proc_src varchar(255)) as begin for select rdb$procedure_name, rdb$procedure_source from rdb$procedures order by rdb$procedure_name into :proc_name, :proc_src do begin proc_src = ibec_Trim(ibec_Copy(proc_src, 1, 255)); suspend; end end