Query to Update EBS Profile Values for All Users at the User Level

set serveroutput on;

DECLARE

l_success  BOOLEAN;

    CURSOR uid IS

    SELECT user_id from fnd_user;

BEGIN

dbms_output.disable;

 dbms_output.enable(100000);

FOR i IN uid LOOP

        l_success := FND_PROFILE.save('ICX_FORMS_LAUNCHER','http://xxx.xxxx.xxx:8000/forms/frmservlet?config=jws','USER',i.user_id);

        IF l_success

THEN

 DBMS_OUTPUT.put_line('---');

 DBMS_OUTPUT.put_line('Profile Updated successfully ');

DBMS_OUTPUT.put_line('---');

 ELSE

  DBMS_OUTPUT.put_line('---');

 DBMS_OUTPUT.put_line('Profile Update Failed . Error:'||sqlerrm);

 DBMS_OUTPUT.put_line('---');

 END IF;

  commit;

 end loop;

end;

/