ALTER TABLE PARAMFORNE ADD DTREACONSIMPXML DATE
/

BEGIN
   FOR C_PARAMFORNE IN (SELECT CDFORNECED
                          FROM PARAMFORNE
                         WHERE NVL(IDREACONSIMPXML, 'N') = 'S')
   LOOP
      UPDATE PARAMFORNE
         SET DTREACONSIMPXML = TRUNC(SYSDATE)
       WHERE CDFORNECED = C_PARAMFORNE.CDFORNECED;
   END LOOP;
   
   COMMIT;
END;
/
