Erreur ORA-06550 PL/SQL

Version imprimable

Salut à tous,
en exécutant mon code ci-dessous sur TOAD (Version 9.6.1.1) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
declare
cursor c_releve is
select distinct * from ODG_TRENTE_COMPTE;
begin
    for r in c_releve
    Loop
        spool r.compte ||'.csv';
            select detail from w_releve w, ODG_TRENTE_COMPTE o
            where w.compte=o.compte
            order by compte,ligne;
        spool off;
    end loop;
end;
/

J'ai l'erreur suivante au niveau de la ligne concernant la création du spool :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
ORA-06550: line 8, column 15:
PLS-00103: Encountered the symbol "R" when expecting one of the following:
 
   := . ( @ % ;
The symbol ":=" was substituted for "R" to continue.
ORA-06550: line 12, column 15:
PLS-00103: Encountered the symbol "OFF" when expecting one of the following:
 
   := . ( @ % ;
The symbol ":=" was substituted for "OFF" to continue.

19/01/2015, 20h36
Waldar

En effet, spool est une commande SQL*Plus, mais pas PL/SQL.
Elle n'est donc pas comprise dans ce dernier.

Regardez du côté du paquetage UTL_FILE.

Merci Waldar pour ta réponse rapide.
Je viens d’exécuter le code sur SQL*PLUS et j'ai toujours l'erreur ci-dessous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Connecté à :
Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - 64bit Production
 
        spool r.compte ||'.csv';
              *
ERROR à la ligne 9 :
ORA-06550: line 9, column 15:
PLS-00103: Encountered the symbol "R" when expecting one of the following:
:= . ( @ % ;
The symbol ":=" was substituted for "R" to continue.
ORA-06550: line 13, column 15:
PLS-00103: Encountered the symbol "OFF" when expecting one of the following:
:= . ( @ % ;
The symbol ":=" was substituted for "OFF" to continue.
 
 
SQL>

Tu ne peux pas utiliser la commande spool sur un bloc PLSQL (c'est une commande sqlplus)

essaie ça :

Code:

1
2
3
4
5
 
--Créer le directory pointé sur le chemin (/x/y/z ou c:\x\y ...) cible pour la génération des fichiers
CREATE DIRECTORY my_directory AS '/x/y/z';
--Donner les droits d'accès à ton utilisateur
GRANT READ,WRITE ON my_directory TO utilisateur;

Code:

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
38
39
40
 
DECLARE
   fileh   UTL_FILE.file_type;
 
   CURSOR c_releve
   IS
      SELECT DISTINCT *
                 FROM odg_trente_compte;
 
   CURSOR c_detail (p_compte IN VARCHAR2)
   IS
      SELECT   detail
          FROM w_releve w
         WHERE w.compte = p_compte
      ORDER BY compte, ligne;
BEGIN
   FOR r IN c_releve
   LOOP
      --Ouvrir un fichier sur le répertoire créer précédemment pour le compte en cours
      fileh := UTL_FILE.fopen ('MY_DIRECTORY', r.compte || '.csv', 'w');
 
      --Boucler sur le détail du compte
      FOR d IN c_detail (r.compte)
      LOOP
         --Ecrir le détail ligne par ligne
         UTL_FILE.put_line (fileh, d.detail);
      END LOOP;
 
      UTL_FILE.fclose (fileh);
   END LOOP;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line (   'Exception: SQLCODE='
                            || SQLCODE
                            || '  SQLERRM='
                            || SQLERRM
                           );
      RAISE;
END;

20/01/2015, 09h22
islamov2000

N'oublions pas que le fichier se crée au niveau serveur en utilisant UTL_FILE.