Discussion :

[turican2]

bonjour à tous,

j'ai hérité d'une jolie BD en oracle 9i avec un PL/SQL qui tournait du feu de dieu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  PROCEDURE EcritStatusDansFichier(Repertoire CHAR, Status INTEGER) IS
 
  w_id UTL_FILE.FILE_TYPE; 
 
  BEGIN
      w_id := UTL_FILE.FOPEN(Repertoire, 'Status.txt', 'w');
      UTL_FILE.PUT_LINE(w_id, TO_CHAR(Status));
      UTL_FILE.FCLOSE(w_id);
 
  EXCEPTION
      WHEN OTHERS THEN
           Trace('>>EcritStatusDansFichier: Erreur lors écriture dans fichier status');
  END EcritStatusDansFichier;

je constate après migration vers une base en 10g que plus rien ne s'ecrit jamais dans ce fichier. Quand je regarde la FAQ du site: http://sheikyerbouti.developpez.com/...e=Chap8#L8.2.5 une ligne me fait très très peur:
" Ouverture d'un fichier Oracle 8i, 9i"

dois ré écrire les fonctions et procédue pour la 10g????

help

[NGasparotto]

Comment as-tu migre ? Est-ce que le repertoire a bien ete declare (DBA_DIRECTORIES) ? Existe ? Existe avec les bons droits ?

Nicolas.

[turican2]

ouille ouille, je ne connais pas le DBA_DIRECTORIES

moi j'ai intégré à ma base un package que j'ai intégré par le user SYS:

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
 
CREATE OR REPLACE PACKAGE Banc AS
  PROCEDURE EcritStatusDansFichier(Repertoire CHAR, Status INTEGER);
END Banc;
/
 
CREATE OR REPLACE PACKAGE BODY Banc AS
PROCEDURE EcritStatusDansFichier(Repertoire CHAR, Status INTEGER) IS
 
  w_id UTL_FILE.FILE_TYPE; 
 
  BEGIN
      w_id := UTL_FILE.FOPEN(Repertoire , 'Status.txt', 'w');
      UTL_FILE.PUT_LINE(w_id, TO_CHAR(Status));
      UTL_FILE.FCLOSE(w_id);
 
  EXCEPTION
      WHEN OTHERS THEN
           Trace('>>EcritStatusDansFichier: Erreur lors écriture dans fichier status');
  END EcritStatusDansFichier;
END Banc;
/

ensuite cette procédure est régulièrement appelé

Code :

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

1
2
 
Banc.EcritStatusDansFichier('&3', status);

[Invité]

La réponse est déjà là :

Est-ce que le repertoire a bien ete declare (DBA_DIRECTORIES) ? Existe ? Existe avec les bons droits ?

http://oracle.developpez.com/faq/?page=4-9#directory

Est-ce que les users courants ont les droits sur ce package de SYS ?

[turican2]

donc non je n'avais pas ça j'ai donc fait:

Code :

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

1
2
3
 
CREATE OR REPLACE DIRECTORY REPERTOIRE AS 'E:\APP';
GRANT WRITE to banc;

maintenant j'ai fait un test sur mon fichier status.txt

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
 
  PROCEDURE EcritStatusDansFichier(Rep CHAR, Status INTEGER) IS
 
  w_id UTL_FILE.FILE_TYPE; 
 
  BEGIN
      w_id := UTL_FILE.FOPEN(REPERTOIRE, 'Status.txt', 'w');
      UTL_FILE.PUT_LINE(w_id, TO_CHAR(Status));
      UTL_FILE.PUT_LINE(w_id, 'test');
      UTL_FILE.FCLOSE(w_id);
 
  EXCEPTION
      WHEN OTHERS THEN
           Trace('>>EcritStatusDansFichier: Erreur lors écriture dans fichier status');
  END EcritStatusDansFichier;

cette ligne: w_id := UTL_FILE.FOPEN(REPERTOIRE, 'Status.txt', 'w'); semble ne plus compilé pourtant mon utilisateur a eu un grant write on directory REPERTOIRE to monUSER;

[McM]

Normal :
FOPEN prend un VARCHAR comme premier argument.

Code :

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

1
2
3
PROCEDURE EcritStatusDansFichier(Rep CHAR, STATUS INTEGER) IS
 ..
      w_id := UTL_FILE.FOPEN(REPERTOIRE, 'Status.txt', 'w');

Code :

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

1
2
3
PROCEDURE EcritStatusDansFichier(Rep CHAR, STATUS INTEGER) IS
 ..
      w_id := UTL_FILE.FOPEN(Rep , 'Status.txt', 'w');

et tu appelles la procédure avec
EcritStatusDansFichier('REPERTOIRE', ...);

[turican2]

j'ai peut etre dans ce cas mal compris le fonctionnement de "DBA_DIRECTORIES"

C'est mon utilisateur SYS qui a généré la commande:

Code :

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

1
2
CREATE OR REPLACE DIRECTORY REPERTOIRE AS 'E:\APP';
GRANT READ, WRITE ON DIRECTORY REPERTOIRE TO banc;

je pensais de là que banc pouvait utiliser REPERTOIRE comme on utiliserait un SYNONYM

quand je fais:

Code :

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

BancPK.EcritStatusDansFichier('&3', 'REPERTOIRE');

je vois dans mes logs trace, qu'il essaie d'utiliser le repertoire 'REPERTOIRE' et non la localisation systeme.

Pourtant ma procedure semble conforme à ce qui a été dit plus haut:

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
PROCEDURE EcritStatusDansFichier(Repertoire CHAR, Status INTEGER) IS
 
  w_id UTL_FILE.FILE_TYPE; 
  ChaineBis   VARCHAR2(10000);
 
  BEGIN
      w_id := UTL_FILE.FOPEN(Repertoire, 'Status.txt', 'w');
'Status.txt', 'w');
      UTL_FILE.PUT_LINE(w_id, TO_CHAR('un commentaire a ecrire'));
      UTL_FILE.FCLOSE(w_id);
 
  EXCEPTION
      WHEN OTHERS THEN
           Trace('>>EcritStatusDansFichier: Erreur lors écriture dans fichier status');
  END EcritStatusDansFichier;

ce que je m'explique assez mal c'est pourquoi cette procedure fonctionne sous oracle 9i et pas sous oracle 10g???

[cpt_aimless]

Salut,

Je pense que le problème provient plus de l'appel de tes variables systèmes ORACLE. Elles doivent être entre cote '.

Code :

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

1
2
3
CREATE OR REPLACE DIRECTORY CST_REPERTOIRE_ORCALE AS 'Ton repertoire sur tes HDD ou lecteur réseau';
GRANT READ, WRITE ON DIRECTORY CST_REPERTOIRE_ORCALE TO ton_user;
GRANT all privileges ON DIRECTORY CST_REPERTOIRE_ORCALE TO ton_user;

Bon, on est large avec les droits, mais si ça marche après tu pourras restreinte comme tu le souhaites.

Et ensuite, tu mets les cotes :

Code :

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

1
2
 
w_id := UTL_FILE.FOPEN('CST_REPERTOIRE_ORCALE', Fichier, 'r', 3000);

[turican2]

effectivement c'est la solution.

merci