CREATE OR REPLACE PROCEDURE remplissage IS

Cursor cur1 is select BUREAUDOUANIER, REGIMEDOUANIER, NUMDECLARATION, CENTRERC, REGISTRECOMMERCE, AGREMENT, REPERTOIRE from entete;


BEGIN
for record_1 in cur1 loop
insert into entete (
BUREAUDOUANIER1,
REGIMEDOUANIER1,
NUMDECLARATION1,
CENTRERC1,
REGISTRECOMMERCE1,
AGREMENT1,
REPERTOIRE1)values (cur1.BUREAUDOUANIER, cur1.REGIMEDOUANIER, cur1.NUMDECLARATION, cur1.CENTRERC, cur1.REGISTRECOMMERCE, cur1.AGREMENT, cur1.REPERTOIRE );
end loop;
--commit;
END;
/