Reset/update Password in Oracle Apps R12

DECLARE

   RetVal   BOOLEAN;

   NewPwd   VARCHAR2 (200) := 'welcome123';

   CURSOR c_user

   IS

      SELECT user_name

        FROM fnd_user

       WHERE employee_id IS NOT NULL

             AND (end_date IS NULL OR end_date > SYSDATE);

BEGIN

   FOR r_user IN c_user

   LOOP

      RetVal := APPS.FND_USER_PKG.CHANGEPASSWORD (r_user.user_name, NewPwd);

      COMMIT;

   END LOOP;

END;