API to reset R12 passwords

DECLARE

   v_code   NUMBER;

   v_errm   VARCHAR2 (500);

BEGIN

   fnd_user_pkg.updateuserparty (x_user_name    => 'XYZ',

                                 x_owner        => 'XYZ',

                     x_unencrypted_password => 'xyz1234',

                     x_password_date          => SYSDATE + 500);

   DBMS_OUTPUT.put_line ('Password Changed !!!! ');

   COMMIT;

EXCEPTION

   WHEN OTHERS

   THEN

      v_code := SQLCODE;

      v_errm := SUBSTR (SQLERRM, 1, 500);

      DBMS_OUTPUT.put_line ('Error code ' || v_code || ': ' || v_errm);

      DBMS_OUTPUT.put_line ('Error time: ' || SYSDATE);

END;