probleme de PL/SQL sur 10g

bonjour à tous,

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

Code:

---

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 :calim2:

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

Nicolas.

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:

---

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:

---

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

---

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

Citation:

---

Envoyé par NGasparotto

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 ?

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

Code:

---

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:

---

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;

Normal :
FOPEN prend un VARCHAR comme premier argument.

Code:

---

1 2 3

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

---

Code:

---

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', ...);

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:

---

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:

---

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:

---

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???

Salut,

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

Code:

---

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:

---

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

---

effectivement c'est la solution.

merci