SQL>
SQL> declare
2 l_owner varchar2(30) default 'SYS';
3 l_cnt number default 0;
4 begin
5 dbms_application_info.set_client_info( 'owner='||l_owner );
6
7 for x in ( select * from all_objects where owner = l_owner )
8 loop
9 l_cnt := l_cnt+1;
10 dbms_application_info.set_action( 'processing row ' || l_cnt );
11 end loop;
12 end;
13 /
PL/SQL procedure successfully completed.