DECLARE
  v_rindex     PLS_INTEGER;
  v_slno       PLS_INTEGER;
  v_totalwork  NUMBER;
  v_sofar      NUMBER;
  v_obj        PLS_INTEGER;
BEGIN
  v_rindex     := DBMS_APPLICATION_INFO.set_session_longops_nohint;
  v_sofar     := 0;
  v_totalwork := 10;

  WHILE v_sofar < 10 LOOP
    -- Do some work
    DBMS_LOCK.sleep(5);
    v_sofar := v_sofar + 1;
    DBMS_APPLICATION_INFO.set_session_longops(rindex      => v_rindex,
                                              slno        => v_slno,
                                              op_name     => 'Batch Load',
                                              target      => v_obj,
                                              context     => 0,
                                              sofar       => v_sofar,
                                              totalwork   => v_totalwork,
                                              target_desc => 'BATCH_LOAD_TABLE',
                                              units       => 'rows processed');
  END LOOP;
END;

SQL> desc dbms_Application_info

CREATE TABLE TEST
(
TEST_ID NUMBER(9),
TEST_DESC VARCHAR(30),
TEST_DATE DATE,
UserID VARCHAR(15)
);

CREATE OR REPLACE PROCEDURE TEST_PROC
AS
BEGIN
/* Registering Module and Action both */
DBMS_APPLICATION_INFO.SET_MODULE
(
module_name => ‘TEST_PROC’,
action_name => ‘Adding records’
);

INSERT INTO TEST(TEST_ID,TEST_DESC,TEST_DATE)
SELECT ROWNUM, TABLE_NAME, SYSDATE
FROM USER_TABLES
WHERE ROWNUM < 10;

DBMS_APPLICATION_INFO.SET_MODULE(null,null);

/* Registering only Action */
DBMS_APPLICATION_INFO.SET_ACTION(action_name => ‘Update Records’);

UPDATE TEST
SET UserID = USER
WHERE TEST_ID < 10;

DBMS_APPLICATION_INFO.SET_ACTION(null);

END;
/

SQL> exec test_proc

SQL> SELECT Action, Fetches, Executions, Rows_PRocessed
2 FROM v$Sqlarea
3 WHERE Module = ‘TEST_PROC’
4 OR Action = ‘Update Records’
5 /