Просмотр исходного текста страницы Посмотреть индексы в базе

Процедура
<pre>
SET TERM ^ ;

create or alter procedure PR_GET_COUNT_TABLE_RECORDS
returns (
    TABLE_NAME DM_TEXT,
    NAME DM_TEXT,
    INACTIVE_STATUS DM_ID_NULL)
as
begin

 for select R.RDB$RELATION_NAME
     from RDB$RELATIONS R
     where 1 = 1
           and R.RDB$RELATION_NAME not starting with 'VW_'
           and R.RDB$RELATION_NAME not starting with 'RDB$'
           and R.RDB$RELATION_NAME not starting with 'MON$'
     order by R.RDB$RELATION_NAME asc
     into :table_name
 do
 begin
  for select I.RDB$INDEX_NAME,
             I.RDB$INDEX_INACTIVE
      from RDB$INDICES I
      where 1 = 1
            and I.RDB$RELATION_NAME = :table_name
      order by I.RDB$INDEX_NAME asc
      into :NAME,
           :inactive_status
  do
   suspend;
 end

end^

SET TERM ; ^

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_GET_COUNT_TABLE_RECORDS TO SYSDBA;
</pre>