uso do dbms_application_info

CREATE OR REPLACE Package pkg_teste
Is
     
       PROCEDURE pteste;

End pkg_teste;

CREATE OR REPLACE Package Body pkg_teste
Is
       Procedure pteste
       is
         vfano integer:= to_number(to_char(sysdate,'yyyy'));
         vi varchar2(90):= to_char( sysdate, 'dd/mm/yyyy hh24:mI:ss' );
         ic pls_integer;
       begin
      
           dbms_application_info.set_module( module_name => 'pkg_teste',action_name => 'pteste ini>'||vi);        
           -- dbms_application_info.set_action(action_name => '');
           -- dbms_application_info.set_client_info(client_info => '');  
           -- count(*)|| ' de '|| count(*)over() per                                             
           
           -- codigo ...

             
            vi := vi ||' fim> '||  to_char( sysdate, 'dd/mm/yyyy hh24:mI:ss' );
            dbms_application_info.set_action(action_name => 'fim'|| vi );
             
       Exception 
            When Others Then     
                 begin
                     rollback;
                     Raise_Application_Error (SQLCODE,'ERRO Others '||SQLERRM);
                 end;
       end pteste;

End pkg_teste;