--Reset Password
DECLARE
v_user_name VARCHAR2(30):= '&USER_NAME';
v_new_password VARCHAR2(30):= 'welcome';
v_status BOOLEAN;
BEGIN
update fnd_user set user_guid = null where user_name = v_user_name;
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'||SQLCODE||' '||SUBSTR(SQLERRM, 1, 100));
ROLLBACK;
END IF;
END;
No comments:
Post a Comment