Déclaration UTL_File procédure

**stos** · 22/05/2006, 18h42

Bonjour à tous,

Je suis en train d'écrire une procédure stockée qui doit écrire dans un fichier.

Voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
CREATE OR REPLACE PROCEDURE Extraction (Rq Varchar2, FileName Varchar2, TypeOuverture Varchar2) IS
 
f_file UTL_FILE.FILE_TYPE;
v_file_location VARCHAR2(256) := 'EXPORT';
 
BEGIN
DBMS_OUTPUT.PUT_LINE('lvglkhv'); 
 
--ouverture du fichiers de sortie
f_file := UTL_FILE.FOPEN(v_file_location, FileName, TypeOuverture, 4000);
/*
...
*/
UTL_FILE.UTL_FILE.FCLOSE (f_file);
END;
/

Là oracle n'est pas content du tout, il me dit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
SQL>  @extraction
 
Avertissement : Procédure créée avec erreurs de compilation.
 
SQL> show err
Erreurs pour PROCEDURE EXTRACTION :
 
LINE/COL ERROR
-------- ----------------------------------------------------
13/1     PL/SQL: Statement ignored
13/10    PLS-00302: Le composant 'UTL_FILE' doit être déclaré

Je pense avoir bien déclaré mon fichier, surtout que je fais comme ça dans des blocs anonymes et que cela marche...

Des idées?

Amicalement,
Stos

**jlucch** · 22/05/2006, 19h27

Je suggère tout d'abord de vérifier l'existance du package.

Pour cela, Il suffit d'executer via SQLPLUS et sous le compte system la requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 select status,object_type, owner,object_name from dba_objects where object_name='UTL_FILE';

Si la requete ne renvoi pas : 1 pkg + 1 pkg_body + 1 public synonyme alors il faudra lancer le script :

[FONT=Courier]{ORACLE_HOME}/rdbms/admin/utlfile.sql[/FONT]

**jlucch** · 22/05/2006, 19h39

La Procédure qui devrait marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 CREATE OR REPLACE PROCEDURE Extraction    (Rq Varchar2, FileName Varchar2, TypeOuverture Varchar2) is
 nom_fichier varchar2(100);
   fic_file utl_file.file_type;
v_file_location VARCHAR2(256) := 'EXPORT';
BEGIN
DBMS_OUTPUT.PUT_LINE('lvglkhv'); 
--ouverture du fichiers de sortie 
fic_file:=utl_file.fopen(v_file_location, FileName,TypeOuverture);
utl_file.put_line(fic_file,'DEBUT ');
utl_file.new_line(fic_file);
utl_file.put_line(fic_file,' FIN ');
utl_file.new_line(fic_file);
utl_file.fclose(fic_file);
    exception
  when no_data_found
   then dbms_output.put_line('no_data_found'||sqlerrm);
  when utl_file.invalid_operation
   then dbms_output.put_line('Impossible ecrire fichier : proteger en ecriture'||sqlerrm);
  when utl_file.internal_error
   then dbms_output.put_line('erreur interne'||sqlerrm);
  when utl_file.invalid_filehandle
   then dbms_output.put_line('invalid_filehandle '||sqlerrm);
         utl_file.fclose(fic_file);
  when utl_file.invalid_mode
   then dbms_output.put_line('invalid_mode'||sqlerrm);
  when utl_file.invalid_path
   then dbms_output.put_line('invalid_path :'||sqlerrm);
  when utl_file.read_error
   then dbms_output.put_line('read_error'||sqlerrm);
  when utl_file.write_error
   then dbms_output.put_line('write_error : '|| sqlerrm);
  when value_error
   then dbms_output.put_line('value_error'||sqlerrm);
  when others
   then dbms_output.put_line('Autre :'||sqlerrm);
 END;