ALTER TABLE PARASUPRI ADD (
  IDBLOQALTSOLAUT VARCHAR2(1) DEFAULT NULL NULL
)
/
BEGIN
  FOR C_PARASUPRI IN (SELECT CDFILIAL, IDBLOQALTNEC
								FROM PARASUPRI)
  LOOP
    UPDATE PARASUPRI 
       SET IDBLOQALTSOLAUT = C_PARASUPRI.IDBLOQALTNEC 
     WHERE CDFILIAL        = C_PARASUPRI.CDFILIAL;
  END LOOP;
  COMMIT;
END;
/
ALTER TABLE PARASUPRI ADD CONSTRAINT CKC_IDBLOQALTSOLAUT CHECK (IDBLOQALTSOLAUT IN ('S', 'N'))