To Add user Responsibility like another user

DECLARE
   lc_user_name              VARCHAR2 (100) := 'ALI';
   lc_resp_appl_short_name   VARCHAR2 (100) := 'SYSADMIN';
   lc_responsibility_key     VARCHAR2 (100) := 'SYSTEM_ADMINISTRATOR';
   lc_security_group_key     VARCHAR2 (100) := 'STANDARD';
   ld_resp_start_date        DATE := TO_DATE ('25-MAR-2015');
   ld_resp_end_date          DATE := NULL;
BEGIN
   fnd_user_pkg.addresp (username         => lc_user_name,
                         resp_app         => lc_resp_appl_short_name,
                         resp_key         => lc_responsibility_key,
                         security_group   => lc_security_group_key,
                         description      => NULL,
                         start_date       => ld_resp_start_date,
                         end_date         => ld_resp_end_date);

   COMMIT;
EXCEPTION
   WHEN OTHERS
   THEN
      ROLLBACK;
      DBMS_OUTPUT.PUT_LINE (SQLERRM);
END;