DECLARE
   CURSOR C_REGL210ECF IS
      SELECT NRSEQREGL210, CDREGL210, DSREGL210, DTINI, DTFIM, IDTIPOL210, DSFORMULA,
             NRORG, IDATIVO, DTINCLUSAO, DTULTATU,     
             NRORGINCLUSAO, CDOPERINCLUSAO, NRORGULTATU, CDOPERULTATU   
        FROM REGL210ECF
       ORDER BY CDREGL210;      
   R_REGL210ECF C_REGL210ECF%ROWTYPE;   
BEGIN 
   OPEN C_REGL210ECF;
   EXECUTE IMMEDIATE 'DELETE FROM REGL210ECF';
   EXECUTE IMMEDIATE 'ALTER TABLE REGL210ECF DROP COLUMN CDREGL210';
   EXECUTE IMMEDIATE 'ALTER TABLE REGL210ECF ADD CDREGL210 VARCHAR(10)';
   LOOP
      FETCH C_REGL210ECF INTO R_REGL210ECF;
      EXIT
         WHEN
            C_REGL210ECF%NOTFOUND;

         INSERT INTO REGL210ECF (NRSEQREGL210, CDREGL210, DSREGL210, DTINI, DTFIM, IDTIPOL210, DSFORMULA,
                                 NRORG, IDATIVO, DTINCLUSAO, DTULTATU, 
                                 NRORGINCLUSAO, CDOPERINCLUSAO, NRORGULTATU, CDOPERULTATU) 
                         VALUES (R_REGL210ECF.NRSEQREGL210,
                                 R_REGL210ECF.CDREGL210,
                                 R_REGL210ECF.DSREGL210,
                                 R_REGL210ECF.DTINI,
                                 R_REGL210ECF.DTFIM,
                                 R_REGL210ECF.IDTIPOL210,
                                 R_REGL210ECF.DSFORMULA,
                                 R_REGL210ECF.NRORG,
                                 R_REGL210ECF.IDATIVO,
                                 R_REGL210ECF.DTINCLUSAO,
                                 R_REGL210ECF.DTULTATU,
                                 R_REGL210ECF.NRORGINCLUSAO,
                                 R_REGL210ECF.CDOPERINCLUSAO,
                                 R_REGL210ECF.NRORGULTATU,
                                 R_REGL210ECF.CDOPERULTATU);
         COMMIT;                        
   END LOOP;
   CLOSE C_REGL210ECF;
END;
/