Oracle存储过程，统计Oracle当前用户下所有表中的记录数

create or replace procedure tj_data is  
  -- 当前存储过程用到的变量
  v_tableName VARCHAR2(100);
  v_sql   varchar2(200);
  v_count integer;
  -- 获取当前数据库中的所有表
  CURSOR TABLE_LOOP IS SELECT Table_name FROM User_tables;

  BEGIN
    -- 打开游标
    OPEN TABLE_LOOP;
      LOOP
        FETCH TABLE_LOOP INTO v_tableName;
          EXIT WHEN TABLE_LOOP %NOTFOUND;
               v_sql:= "select count(1) from "||v_tableName;
               execute immediate v_sql into v_count;
               dbms_output.put_line(v_tableName||":"||v_count);
      END LOOP;
     CLOSE TABLE_LOOP;
end tj_data;