Discussion :

[Hobbi1]

Bonjour,

Je dois extraire des données d'une table et les mettre dans un fichier en fonction de la valeur d'1 des colonnes.

J'ai donc fais un curseur pour parcourir la table et je génère un nom de fichier pour chacune des valeurs de la colonne et je le stocke dans une collection.

Mon problème est de retrouver le pointeur du fichier déjà créé et ouvert pour écrire dans le bon fichier lorsqu'une valeur se représente après la première fois

Voici une partie du code, celle qui est concernée par le problème

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
DECLARE
CURSOR c_lecture_traces(date_limite_purge IN DATE) 
IS SELECT DATE_TRACE__TMS, COMPO_INIT__CHR, TECHNO__CHR, 
          NIVEAU_TRACE__CHR, COMPO_TRACE__CHR, TYP_COUCHE__CHR, 
          NOM_ETAPE__CHR, TYP_COMPO__CHR, MESSAGE_CODE__CHR, 
          MESSAGE_TEXTE__CHR, DESC_EXCEPTION__CHR, DETAILS__CHR, 
          FONCTION_APPELEE__CHR, FONCT_NUM_LIGNE__ENT, MESSAGE_DATE_RECEP__TMS, 
          MESSAGE_NOM_QUEUE__CHR, DATE_CREAT__DTE, NOM_CREATEUR__CHR, 
          DATE_MODIF__DTE, NOM_MODIF__CHR
   FROM   LOG_TRACES
   WHERE  DATE_TRACE__TMS < date_limite_purge ;
 
   -- l'idée ici est de stocker le pointeur du fichier en fonction du nom du fichier
   TYPE TYPE_INFOS_FICHIER IS TABLE OF UTL_FILE.FILE_TYPE INDEX BY VARCHAR2(100) ;
   infos_fichier TYPE_INFOS_FICHIER ;
 
BEGIN
    -- Recherche de la date limite de conservation des traces
    SELECT TRUNC(SYSDATE-5) INTO date_purge FROM dual;
 
    -- Lecture de toutes les traces avant la date de purge
    FOR lecture_colonnes IN c_lecture_traces (date_purge+1)
    LOOP
        date_trace := TO_CHAR(lecture_colonnes.DATE_TRACE__TMS, 'YYYYMMDD');
        serveur := TRIM(lecture_colonnes.NOM_CREATEUR__CHR);
	composant := TRIM(lecture_colonnes.COMPO_INIT__CHR);
 
	nom_fichier := COMPOSANT || '-' || date_trace || '-' || serveur ;
 
        IF infos_fichier.EXISTS(nom_fichier) = FALSE THEN
		    infos_fichier(nom_fichier) := UTL_FILE.FOPEN( 'LOG_EXTRACTDIR', nom_fichier, 'W', 32767 ) ;
        END IF;
 
....

Et l'erreur est :

ORA-29283: invalid file operation

Merci de votre aide.

[sgora]

Le moyen de pointer sur un fichier, c'est le file handle que te retourne le fopen, si tu dois ouvrir dix fichiers, tu dois stocker dix file handle différents dans un tableau PL/SQL que je te conseille d'indexer par un nombre (ton nom_fichier dans la procédure, je le sens pas) et qui contiendra la correspondance avec le type de données que tu veux écrire dans chaque fichier.

Ah, l'erreur que tu rencontres peut aussi être due au fait que tu ne possède pas les droit suffisants au niveau système pour écrire dans le répertoire choisi.

Mais bon, c'est pas simple ton truc...

Je te conseillerais plutôt de trier la table par la colonne considérée dans ton curseur, et de tester cette valeur dans ta boucle. Tu sais alors que quand tu change de valeur de colonne, tu dois fermer le fichier en cours et en ouvrir un autre, ce qui fait que tu ne gères plus qu'un fichier à la fois.

[Hobbi1]

Merci Sgora
J'ai testé mais le problème est que la table est très grosse et j'ai explosé le TBS TEMP.

En faisant d'autres tests, j'ai aussi réussi à exploser le nombre de pointeur (50 il me semble).

Donc la solution que j'ai retenu est de stocker les noms de fichier dans un tableau, de vérifier l'existence. Si le nom existe, j'ouvre le fichier an ajout sinon je l'ouvre en écriture. Et je le ferme à chaque fois.
Ca m'oblige à ouvrir/fermer à chaque fois mais ca fonctionne bien