select A.X, B.NAME
from A
left join B on B.ID in (A.X)
where A.ID=:ID

create or alter procedure GETLIST
(
  STR TTEXT4096
)
returns
(
  ID TICODE
)
as
declare i ticode;
declare val ttext1024;
begin
  if (coalesce(str, '') = '') then
    exit;

  i = 1;
  while (i <= char_length(str) + 1) do
  begin
    if ((substring(str from i for 1) = ',') or (i = char_length(str) + 1)) then
    begin
      val = substring(str from 1 for i - 1);
      if (val > '') then
      begin
        id = cast(val as integer);
        suspend;
      end
      str = substring(str from i + 1);
      i = 1;
    end
    i = i + 1;
  end
end