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;
No comments:
Post a Comment