API to Enable User

DECLARE

   l_session_id   NUMBER := USERENV ('sessionid');

   CURSOR c1

   IS

      SELECT *

        FROM fnd_user

       WHERE user_name = 'BIJOY';

BEGIN

   FOR i IN c1

   LOOP

      BEGIN

         fnd_user_pkg.EnableUser (username => i.user_name);

         COMMIT;

         DBMS_OUTPUT.put_line (i.user_name || ' has been Enabled / Updated !!!');

      EXCEPTION

         WHEN OTHERS

         THEN

            DBMS_OUTPUT.

             put_line (

                  'Inner Exception: '

               || i.user_name

               || ' -'

               || SUBSTR (SQLERRM, 1, 1000));

      END;

   END LOOP;

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line ('Failed' || SUBSTR (SQLERRM, 1, 1000));

END;