Discussion :

[Maglight]

J'ai un cursor c1 dont les champs sont TOTO1, TOTO2, TOTO3,..... TOTOX
J'aurai aimé savoir si il y a moyen facilement de faire une boucle qui me permettrait de stocker grace à DBMS_OUTPUT.PUTLINE(c1.TOTO_) du type :

Code :

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

1
2
3
4
while i<=X
loop
 DBMS_OUTPUT.PUTLINE(c1.TOTOi);
end loop;

J'ai cru comprend en lisant diverses choses, qu'il fallait créer un tableau mais je n'arrive pas à le faire ?
Si quelqu'un pouvait me montrer un exemple concret et simple, ce serait super sympa.
Merci d'avance.

[SheikYerbouti]

Merci d'indiquer un titre plus explicite !

[VinceTlse]

Il faudra surement que tu fasses du PL/SQL dynamique.
Tu as des exemples dans le guide PL/SQL de SheikYerbouti il me semble.

[VinceTlse]

Reeur de ma part, ce n'est pas le "guide PL/SQL" mais "Le SQL Dynamique natif"

http://sheikyerbouti.developpez.com/execute_immediate/

[SheikYerbouti]

Vous pouvez aussi vous appuyer sur l'article suivant:
http://sheikyerbouti.developpez.com/dynamic/dynamic.htm

Récupérez les sources et consultez le package PKG_DYNAMIC, notament la procédure Get_Struct().

[vlah79]

while i<=X
loop
DBMS_OUTPUT.PUTLINE(c1.TOTOi);
end loop;

utilise plutot le code suivant:

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
 
CURSOR C_curseur IS
SELECT ...
FROM ...
WHERE ...
 
V_curseur  C_curseur%TYPE (ou %RAWTYPE, je ne suis plus sur);
 
BEGIN
OPEN C_curseur
 
Fetch C_curseur
INTO V_curseur;
 
While C_curseur%FOUND
   DBMS_OUTPUT.PUTLINE(V_curseur.variable);
END;
END;

Attention, si le nombre de données est important, on peut exploser le buffer de la fonction DBMS_OUTPUT.PUTLINE. Ce buffer ne peut dépasser 1000 000 (byte? caractères?). Il faut mieux utiliser la fonction fnd_file.put_line.

edit: désolé

[LeoAnderson]

Merci d'éditer votre message pour rajouter les balises [ code ] qui améliorent de beaucoup la lisibilité ! ;-)

[plaineR]

while i<=X
utilise plutot le code suivant:

CURSOR C_curseur IS
SELECT ...
FROM ...
WHERE ...

V_curseur C_curseur%TYPE (ou %RAWTYPE, je ne suis plus sur);

BEGIN
OPEN C_curseur

Fetch C_curseur
INTO V_curseur;

While C_curseur%FOUND
DBMS_OUTPUT.PUTLINE(V_curseur.variable);
END;
END;
Attention, si le nombre de données est important, on peut exploser le buffer de la fonction DBMS_OUTPUT.PUTLINE. Ce buffer ne peut dépasser 1000 000 (byte? caractères?). Il faut mieux utiliser la fonction fnd_file.put_line.

Je crois que Madlight demandait comment éviter de préciser toutes les colonnes quand elles se nomment colX où X est un entier.

Par ailleurs avant de poster merci de vérifier votre code, afin de ne pas égarer la personne que vous aidez (ou les personnes qui liront le post à l'avenir) :
1. Vous faites une boucle infinie.
2. Je ne connais pas le package fnd_file, n'est-ce pas plutôt utl_file ? Dans ce cas, les conditions d'utilisation n'ont rien à voir avec DBMS_OUTPUT.
3.

V_curseur C_curseur%TYPE (ou %RAWTYPE, je ne suis plus sur);

C'est rowtype

[vlah79]

1. Vous faites une boucle infinie.

je pensais que la commande suivante me permettais de sortir de la boucle. Me suis je trompé?

Code :

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

While C_curseur%FOUND

2. Je ne connais pas le package fnd_file, n'est-ce pas plutôt utl_file ? Dans ce cas, les conditions d'utilisation n'ont rien à voir avec DBMS_OUTPUT.

la fonction DBMS_OUTPUT est, comme je le dis limité en taille et cela peut poser des problèmes lors d'extractions de données importante.

la fonction utl_file ne fonctionne que dans les répertoires paramétrés dans Oracle (paramètre utl_file_dir). Surtout, il faut gérer l'ouverture et ka fermeture du fichier.


La package fnd_file permet d'utiliser les fonction utl_file sur le fichier de sortie du traitement (sans gérer l'ourverture et la fermeture du fichier). ainsi, son utilisation en est facilité. La gestion du fichier de sortie se fait sans problème:

Code :

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

1
2
3
4
 
fnd_file.put_line(FND_FILE.OUTPUT,'cette ligne apparaitra dans le fichier OUT du traitement');
fnd_file.put_line(FND_FILE.LOG 
,'cette ligne apparaitra dans le fichier LOG du traitement');

[plaineR]

je pensais que la commande suivante me permettais de sortir de la boucle. Me suis je trompé?

Code :

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

While C_curseur%FOUND

Il manque un fetch dans votre boucle while

La package fnd_file permet d'utiliser les fonction utl_file sur le fichier de sortie du traitement (sans gérer l'ourverture et la fermeture du fichier). ainsi, son utilisation en est facilité. La gestion du fichier de sortie se fait sans problème:

A partir de quelle version? J'ai testé sur une 9i, j'ai l'erreur suivante :

Code :

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

1
2
3
4
5
ERROR at line 1:
ORA-06550: line 2, column 21:
PLS-00201: identifier 'FND_FILE.OUTPUT' must be declared
ORA-06550: line 2, column 3:
PL/SQL: Statement ignored

De plus je ne le trouve dans aucune doc...

[EDIT] Après quelques recherches sur le net, il semble qu'il s'agisse d'un package d'Oracle Appli. [/EDIT]

[vlah79]

Tout a fait, c'est un package d'Oracle.

je ne sais pas si je puis le faire mais voici une partie du code source:

déclaration

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
CREATE OR REPLACE package FND_FILE AUTHID CURRENT_USER as
/* $Header: AFCPPIOS.pls 115.5 2002/02/08 19:51:59 nbhambha ship $ */
 
 
LOG		constant number := 1;
OUTPUT		constant number := 2;
 
UTL_FILE_ERROR  exception;
 
PRAGMA exception_init(UTL_FILE_ERROR, -20100);
 
procedure PUT(WHICH in number, BUFF in varchar2);
 
procedure PUT_LINE(WHICH in number, BUFF in varchar2);
 
procedure NEW_LINE(WHICH in number, LINES in natural := 1);
 
procedure PUT_NAMES(P_LOG in varchar2, P_OUT in varchar2, P_DIR in varchar2);
 
procedure RELEASE_NAMES(P_LOG in varchar2, P_OUT in varchar2);
 
procedure GET_NAMES(P_LOG in out varchar2, P_OUT in out varchar2);
 
procedure CLOSE;
 
end FND_FILE;
/

focntion PUT_LINE

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
38
39
40
41
42
43
44
45
procedure PUT_LINE(WHICH in number, BUFF in varchar2) is
   temp_file     varchar2(255);  -- used for messages
   user_error    varchar2(255);         -- to store translated file_error
begin
   if WHICH = FND_FILE.LOG then
      temp_file := LOG_FNAME;
      utl_file.put_line(F_LOG, BUFF);
      utl_file.fflush(F_LOG);
    elsif WHICH = FND_FILE.OUTPUT then
      temp_file := OUT_FNAME;
      utl_file.put_line(F_OUT, BUFF);
      utl_file.fflush(F_OUT);
   end if;
 
   exception
      when UTL_FILE.INVALID_FILEHANDLE then
         -- first time this could be file not open case
         -- try opening temp files and write
         WRITE_BUFF(WHICH, 'PUT_LINE', BUFF);
 
      when UTL_FILE.INVALID_OPERATION then
         fnd_message.set_name('FND', 'CONC-FILE_ERROR');
         fnd_message.set_token('TEMP_FILE', temp_file, FALSE);
         user_error := substrb(fnd_message.get, 1, 255);
 
         fnd_message.set_name('FND','CONC-TEMPFILE_INVALID_OPERATN');
         fnd_message.set_token('TEMP_FILE', temp_file, FALSE);
	 fnd_message.set_token('TEMP_DIR', TEMP_DIR, FALSE);
	 fnd_log.message(FND_LOG.LEVEL_ERROR, 'fnd.plsql.fnd_file.put_line.invalid_operatn', FALSE);
         raise_application_error(-20100, user_error);
 
      when UTL_FILE.WRITE_ERROR then
         fnd_message.set_name('FND', 'CONC-FILE_ERROR');
         fnd_message.set_token('TEMP_FILE', temp_file, FALSE);
         user_error := substrb(fnd_message.get, 1, 255);
 
         fnd_message.set_name('FND', 'CONC-TEMPFILE_WRITE_ERROR');
         fnd_message.set_token('TEMP_FILE', temp_file, FALSE);
	 fnd_message.set_token('TEMP_DIR', TEMP_DIR, FALSE);
	 fnd_log.message(FND_LOG.LEVEL_ERROR, 'fnd.plsql.fnd_file.put_line.write_error', FALSE);
         raise_application_error(-20100, user_error);
 
      when others then
         raise;
end PUT_LINE;

les experts comprendront

PS: désolé pour l'oubli du fetch

[vlah79]

Par contre, comment à tu lancer ta commande? Avec shell, Je pense qu'il faut définir le fichier de sortie/log pour que cela marche (un traitement oracle Appli le fait automatiquement)