Script To Reset Password for Oracle Apps from backend

DECLARE
  v_user_name        VARCHAR2(30) := upper('XXC05');         --XXC05 is username of my oracle Apps.
  v_new_password VARCHAR2(30) :=  'XXC05';
  v_status                BOOLEAN;
BEGIN
  v_status := fnd_user_pkg.ChangePassword ( username => v_user_name, newpassword =>  v_new_password); 
  IF v_status =true THEN
    dbms_output.put_line ('The password reset successfully for the User:'||v_user_name);
    COMMIT;
  ELSE
    DBMS_OUTPUT.put_line ('Unable to reset password due to'||SQCODE||chr(9)||SQLERRM);
    ROLLBACK;
  END IF;
END;