PL-SQL code to reset application user password

1--
2DECLARE
3   v_user_name      VARCHAR2 (30) := UPPER ('AMOL');
4   v_new_password   VARCHAR2 (30) := 'welcome1';
5   v_status         BOOLEAN;
6BEGIN
7   v_status :=
8      fnd_user_pkg.ChangePassword (username      => v_user_name,
9                                   newpassword   => v_new_password);
10   IF v_status = TRUE
11   THEN
12      DBMS_OUTPUT.put_line (
13         'The password reset successfully for the User:' || v_user_name);
14      COMMIT;
15   ELSE
16      DBMS_OUTPUT.put_line (
17            'Unable to reset password due to'
18         || SQLCODE
19         || ' '
20         || SUBSTR (SQLERRM, 1, 100));
21      ROLLBACK;
22   END IF;
23END;
24/