execute block
returns (TABLE_NAME varchar(31))
as
declare variable VAL varchar(31);
begin
  for select RDB$RELATION_NAME
      from RDB$RELATIONS
      where (coalesce(RDB$SYSTEM_FLAG, 0) = 0) and (RDB$RELATION_TYPE = 0)
      order by 1
      into :TABLE_NAME
   do begin
      VAL = null;
      execute statement 'select first 1 skip 1 1 from '||:TABLE_NAME into :VAL;
      if (VAL = 1)
         then suspend;
      end
end