Step by Step to change all FND_USER password using Pl/sql

Step by Step to change all  FND_USER  password without old password using pl/sql

 DECLARE
   x   BOOLEAN;
   CURSOR c_user
   IS
      SELECT *
  FROM fnd_user
 WHERE     NVL (end_date, SYSDATE + 1) > SYSDATE
       AND user_name NOT IN
              ('ANONYMOUS',
               'AUTOINSTALL',
               'CONCURRENT MANAGER',
               'FEEDER SYSTEM',
               'GUEST',
               'INITIAL SETUP',
               'APPSMGR',
               'SYSADMIN',
               'WIZARD',
               'IEXADMIN',
               'ASGADM',
               'MOBILEADM',
               'IBE_GUEST',
               'OP_SYSADMIN',
               'OP_CUST_CARE_ADMIN',
               'PORTAL30',
               'PORTAL30_SSO',
               'ASGUEST',
               'IBE_ADMIN',
               'IBEGUEST',
               'IRC_EXT_GUEST',
               'IRC_EMP_GUEST',
               'INDUSTRY DATA',
               'ASADMIN',
               'XML_USER',
               'ORACLE12.0.0',
               'ORACLE12.1.0',
               'ORACLE12.2.0',
               'ORACLE12.3.0',
               'ORACLE12.4.0',
               'ORACLE12.5.0',
               'ORACLE12.6.0',
               'ORACLE12.7.0',
               'ORACLE12.8.0',
               'ORACLE12.9.0',
               'AME_INVALID_APPROVER');
BEGIN
   FOR i IN c_user
   LOOP
      BEGIN
         x  := fnd_user_pkg.ChangePassword ( username      => i.user_name,
                                             newpassword   => 'welcome'   );
                                            
      --  dbms_output.put_line('password sucessfully changed for' || i.user_name);
      EXCEPTION
         WHEN OTHERS THEN
        DBMS_OUTPUT.put_line ( 'Error encountered while restting password for users and the Error Detail is ' || SQLERRM);
      END;
   END LOOP;
END;