API to Rollback Work in Progress Transactions

DECLARE

   CURSOR c1

   IS

      SELECT *

        FROM hr_api_transactions

       WHERE status = 'W';

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         hr_transaction_api.rollback_transaction (i.transaction_id);

         COMMIT;

      EXCEPTION

         WHEN OTHERS

         THEN

            DBMS_OUTPUT.put_line (i.transaction_id || ':  ' || SQLERRM);

      END;

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line ('Main Exception: ' || SQLERRM);

END;