OeBS : Пакетная смена паролей на тестовый OeBS

-- Пакетная смена паролей в OeBS
-- Выполняется под apps
begin
DECLARE
CURSOR c_users IS
SELECT user_name FROM fnd_user
-- Выставлем фильтр на пользователей, если нужны все пользователи, условие комментируем
where user_name like '%NAME%';
v_user c_users%ROWTYPE;
v_success BOOLEAN;
BEGIN
OPEN c_users;
FETCH c_users
INTO v_user;
WHILE c_users%FOUND
LOOP
v_success := apps.fnd_user_pkg.changepassword(v_user.user_name,'q123456');
-- Выставляем желаемый пароль
COMMIT;
IF v_success != TRUE
THEN
dbms_output.put_line('Failed to set password for user ' ||v_user.user_name);
END IF;
FETCH c_users
INTO v_user;
END LOOP;
CLOSE
c_users;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
dbms_output.put_line('Error');
END;
end;