1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
--Ouverture, Appel à l'écriture et Fermeture
create procedure Extract_data_open()
as
--Je vous épargne la recherche des répertoire et fichiers dans un table
wout := utl_file.fopen('/rep1','file1.data','w');
Extract_data_write(num_extract,wout);
.....
wout.fclose(wout);
end;
--Ecriture des données suivant un numéro d'extraction
create procedure Extract_data_write(xnum_extract, xout)
as
--Je vous épargne la boucle du cuseur
for in loop
utl_file.put_line(xout,'data1224');
.....
end loop;
Et là je souhaite suivant l'emplacement et le nom du fichiers ajouter des lignes dans le fichier exemple
if f_ret_rep_fic(xout) = '/rep1'||'file1.data' then
utl_file.put_line(xout,'bla bla bla bla');
end if;
end; |