while ( "delimpos"  !=  0 ) do
  begin

    begin
       "id"  = cast( "tmpid"  as numeric( 18 , 0 ));

      select  "type" ,  "num" ,
      from  "tbl" 
      where  "tbl" . "id"  = : "id" 
      into : "type" ,  "num" ;

      suspend;

      when SQLCODE - 413  do
      begin

        select  "type" ,  "num" ,
        from  "tbl2" 
        where  "tbl2" . "id"  = : "tmpid" 
        into : "type" ,  "num" ;

        suspend;
      end
    end

     /* этот кусок не отрабатывает, если произошла ошибка конвертации :(((*/ 

     "delimpos"  =  "strpos" (',',  "list" );
     "tmpid"  =  "substr" ( "list" ,  0 ,  "delimpos" );
    if ( "delimpos" != 0 )
    then
    begin
       "list"  =  "trim" ( "substr" ( "list" ,  "delimpos" + 1 ,  255 ));
    end

  end