DO $$DECLARE r record;
BEGIN
	FOR r in select distinct(REGEXP_REPLACE(REGEXP_REPLACE(column_default,'nextval\(''',''),'_id_seq''::regclass\)',''))as tabela from information_schema.columns where table_schema = 'cb' and column_default ~'nextval'
    LOOP

		EXECUTE 'ALTER TABLE '|| r.tabela || ' ADD controle_id  character varying(80)';

	END LOOP;
END$$;