set serveroutput on;
declare
cursor cu is
select tname テーブル from tab where tabtype = 'TABLE' order by tname;
recct number;
begin
-- テーブルレコード件数一覧表示
dbms_output.put_line('=====================================================');
dbms_output.put_line('テーブルレコード件数一覧');
dbms_output.put_line('=====================================================');
dbms_output.put_line('テーブル 件数');
dbms_output.put_line('-----------------------------------------------------');
for cu_rec in cu loop
execute immediate 'select count(*) from ' || cu_rec.テーブル into recct;
dbms_output.put_line(
rpad(cu_rec.テーブル, 40) || ' ' ||
to_char(recct, '999,999,999')
);
end loop;
dbms_output.put_line('=====================================================');
end;
/