テーブル件数カウント

-- 結果を画面表示する
set serveroutput on
-- 出力バッファ変更　※デフォルトは2000バイト
SET SERVEROUTPUT ON SIZE 1000000

declare
-- テーブル名変数定義
tname varchar2(100);
-- テーブル件数変数定義
tcount number;
-- テーブル件数取得SQL変数定義
count_sql varchar2(300);

begin
for tab_rec in (select * from tab) loop
tname := tab_rec.tname;
count_sql := 'select count(*) from ' || tname;
execute immediate count_sql into tcount;
dbms_output.put_line( tname || ',' || tcount );
end loop;
end;
/