Adding Resonponsibility to User using user script

DECLARE

   v_user_name        VARCHAR2 (20) := '&Enter_User_Name';

   v_req_resp_name    VARCHAR2 (50) := '&Enter_Required_Responsibility';

   v_description      VARCHAR2 (100) := 'Adding Responsibility to user using script';

   v_appl_shrt_name   VARCHAR2 (20);

   v_appl_name        VARCHAR2 (50);

   v_resp_key         VARCHAR2 (50);

BEGIN

   SELECT fav.application_short_name,

          fav.application_name,

          frv.responsibility_key

     INTO v_appl_shrt_name, v_appl_name, v_resp_key

     FROM FND_APPLICATION_VL fav, FND_RESPONSIBILITY_VL frv

    WHERE frv.application_id = fav.application_id

          AND frv.responsibility_name = v_req_resp_name;

   fnd_user_pkg.addresp (username         => v_user_name,

                         resp_app         => v_appl_shrt_name,

                         resp_key         => v_resp_key,

                         security_group   => 'STANDARD',

                         description      => v_description,

                         start_date       => SYSDATE,

                         end_date         => NULL);

   COMMIT;

   DBMS_OUTPUT.put_line ('The responsibility ' || v_req_resp_name || ' is added to the user ' || v_user_name);

EXCEPTION

   WHEN OTHERS THEN

      DBMS_OUTPUT.put_line ('Responsibility IS NOT added due to ' || SQLCODE || '; ' || SUBSTR (SQLERRM, 1, 250));

      ROLLBACK;

END;