-- #############################################################################################
--
-- %Purpose: Show Number of Rows per Block for a Table (Only for Oracle7 ROWID)
--
-- #############################################################################################
--
set echo off
set feedback off
set verify off
set showmode off
set pagesize 5000
set linesize 500
--
ACCEPT l_table CHAR PROMPT 'Tablename: '
--
spool show_rows_per_block_ora7.lst
ttitle left 'Table Rows Per Block' -
skip 2
--
SELECT   SUBSTR(T.ROWID,1,8)  || '-' ||
         SUBSTR(T.ROWID,15,4)  "Block",
         COUNT(*) "Rows_Per_Block"
FROM     &&l_table T
WHERE    ROWNUM  <  2000
GROUP BY SUBSTR(T.ROWID,1,8) || '-' || SUBSTR(T.ROWID,15,4);
spool off;