1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
create or replace procedure maj_mbd is
fichier varchar2(200) := 'NEW2.TXT';
dossier varchar(30) := 'dir_temp';
Pointeur UTL_FILE.FILE_TYPE;
Tampon varchar2(50) ;
Erreur exception;
Msg varchar2(256) ;
begin
begin
Pointeur := UTL_FILE.FOPEN(dossier, fichier, 'R') ;
exception
When OTHERS Then
Msg := SQLERRM || ' [' || dossier || '] -> ' || fichier;
Raise Erreur ;
end ;
Begin
Loop
UTL_FILE.GET_LINE( fichier, Tampon );
update MATBALE
set LADATE=sysdate,
ID=777,
where CODE = Tampon;
commit;
end loop ;
exception
when NO_DATA_FOUND Then
UTL_FILE.FCLOSE(fichier) ;
end;
exception
when Erreur Then
UTL_FILE.FCLOSE(fichier);
update TABLE_ERREUR set COMMENTAIRE='ERREUR' where CODE=Tampon;
end ; |
Partager