Automating Oracle Oracle Tips by Mike Ault

SEE CODE DEPOT FOR FULL SCRIPTS
--
tab_name        VARCHAR2(64);
rows          NUMBER;
string               VARCHAR2(255);
cur           INTEGER;
ret           INTEGER;
row_count        NUMBER;
com_string        VARCHAR2(255);
--
PROCEDURE write_out(
  par_name  IN VARCHAR2,
  par_value IN NUMBER,
  rep_ord   IN NUMBER,
  m_date    IN DATE,
  par_delta IN NUMBER) IS
 BEGIN
  INSERT INTO Remote DBA_running_stats VALUES(
   par_name,par_value,rep_ord,m_date,par_delta
  );
 END;
--
BEGIN
OPEN get_tab_count (owner_name);
LOOP
        FETCH get_tab_count INTO tab_name, rows;
        tab_name:=owner_name||'.'||tab_name;
        IF rows=0 THEN
        rows:=1;
        END IF;
EXIT WHEN get_tab_count%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('Table name: '||tab_name||' rows: '||to_cha
(rows));
DBMS_REVEALNET.GET_COUNT(tab_name,row_count);
   IF row_count=0 THEN
        row_count:=1;
   END IF;

---

For more information on this topic, I recommend Don Burleson's latest book "Oracle Tuning: The Definitive Reference".  You can buy it direct from the publisher for 50%-off and get instant access to the code depot of Oracle tuning scripts:

Expert Remote DBA BC is America's oldest and largest Remote DBA Oracle support provider.  Get real Remote DBA experts, call BC Remote DBA today.