Need Help on Plsql!

Question

Hi,
I am trying to Write a Pl/sql Script for Updating the object Count Status While dropping a user/Schema. i really don't know about the plsql Scripting, i am in learning stage i used below Script
set serveroutput on;
declare
test26 varchar2(100);
begin
for test1 in (select count(*) out from dba_objects where owner='TEST08')
loop
if test1.out <= 0
then
dbms_output.put_line('done');
elsif test1.out >= 0 then
select count(*) out into test26 from dba_objects where owner='TEST08';
dbms_output.put_line(test1.out);
end if;
end loop;
end;
i am getting the Result(Show Only the Current Count Status), but the Problem is , not Continuously updating the result. i need the result for every 15 seconds it should show the Count status of the Schema i.e 1456 after 15second 1359,1247,1001,997,551,201,55,......
Please Advice....
Thanks
Shan

Answer 1

You can use dbms_application_info.set_session_longops (from another session in your case as you are monitoring DDL operations which are visible to other sessions).
Otherwise the long running processes should be "instrumented" to provide progress feedback using dbms_application_info.set_session_longops.
DECLARE
        rindex    BINARY_INTEGER;
        slno      BINARY_INTEGER;
        totalwork number;
        sofar     number;
        obj       BINARY_INTEGER;
        st date;
        et date;
        chkfreq int := 3; ---- How frequently to poll in seconds
BEGIN
rindex := dbms_application_info.set_session_longops_nohint;
sofar := 0;
-- totalwork := 5; ---- determine total work that need to be done
select count(*)
     into totalwork
     from dba_objects
     where owner='TEST08';
WHILE sofar < totalwork LOOP
    st := sysdate;
    et := st + (1/(24*3600)) * chkfreq;
    while (st <= et) loop
        select sysdate into st from dual;
    end loop;
--  sofar := sofar + 1;  ---- check how much work has been done
  select totalwork - count(*)
     into sofar
     from dba_objects
     where owner='TEST08';
  dbms_application_info.set_session_longops(rindex, slno,
    'Operation Somthing', obj, 0, sofar, totalwork, 'table', 'tables');
END LOOP;
END;
/The progress can be monitored using yet another session, using v$session_longops.
select * from v$session_longops where sid = <monitoring sessions SID>;vr,
Sudhakar B.