Problème procédure PL/SQL

Version imprimable

Bonjour,

Ma procédure ne fonctionne pas mais je ne sais pas pourquoi. Je pense que le problème vient de la syntaxe...

Voilà ma procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
create or replace PROCEDURE DividendCalcul IS
DECLARE
	fDiv FLOAT;
	sLabel VARCHAR2(32);
 
	CURSOR data_cur IS SELECT r1.Label, r1.DIVIDEND_VALUE-r2.DIVIDEND_VALUE FROM (SELECT HISTO_INDEX.DIVIDEND_VALUE, INDEX_TABLE.LABEL, INDEX_TABLE.INDEX_ID FROM HISTO_INDEX, INDEX_TABLE WHERE HISTO_INDEX.INDEX_ID=INDEX_TABLE.INDEX_ID AND HISTO_INDEX.DATE_ID=(SELECT MAX(DATE_ID) FROM HISTO_INDEX) AND INDEX_TABLE.TYPE='Index' ORDER BY INDEX_TABLE.INDEX_ID) r1, (SELECT HISTO_INDEX.DIVIDEND_VALUE, INDEX_TABLE.LABEL, INDEX_TABLE.INDEX_ID FROM HISTO_INDEX, INDEX_TABLE WHERE HISTO_INDEX.INDEX_ID=INDEX_TABLE.INDEX_ID AND DATE_ID=(SELECT MAX(DATE_ID) FROM HISTO_INDEX WHERE HISTO_INDEX.DATE_ID NOT IN (SELECT MAX(DATE_ID) FROM HISTO_INDEX)) AND INDEX_TABLE.TYPE='Index' ORDER BY INDEX_TABLE.INDEX_ID) r2 WHERE r1.INDEX_ID=r2.INDEX_ID;
BEGIN
	OPEN data_cur;
	FETCH data_cur INTO sLabel, fDiv;
 
	UPDATE DIFF_TABLE SET DIFF_VALUE=fDiv WHERE LABEL=sLabel;
 
	EXIT WHEN data_cur%NOTFOUND;
 
	CLOSE data_cur;
END;

09/02/2009, 21h20
mnitu

Sur un poste similaire au votre Tom Kyte donne un réponse de ce type:
«*Ma voiture ne démarrerais pas. Maintenant on est quitte, nous avons partagé le même niveau de détails concernant nos problèmes*»

Autrement dit ce quoi précisément votre problème: erreur à la création, erreur à l'exécution, pas d'erreur mais le résultat n'est pas celui attendu (vous attendez quoi), ou encore ... ?

Bon je suis assez d'accord avec mnitu...
Ceci dit je pense qu'effectivement c'est un pb de syntaxe, préfère les boucles for au open plus simple à coder.
Donc peut être qq choses comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
CREATE OR REPLACE PROCEDURE DividendCalcul IS
	CURSOR data_cur IS SELECT r1.label, r1.DIVIDEND_VALUE-r2.DIVIDEND_VALUE as fdiv
        FROM (SELECT HISTO_INDEX.DIVIDEND_VALUE, INDEX_TABLE.LABEL, INDEX_TABLE.INDEX_ID
             FROM HISTO_INDEX, INDEX_TABLE
             WHERE HISTO_INDEX.INDEX_ID=INDEX_TABLE.INDEX_ID
             AND HISTO_INDEX.DATE_ID=(SELECT MAX(DATE_ID) FROM HISTO_INDEX)
             AND INDEX_TABLE.TYPE='Index') r1,
             (SELECT HISTO_INDEX.DIVIDEND_VALUE, INDEX_TABLE.LABEL, INDEX_TABLE.INDEX_ID
             FROM HISTO_INDEX, INDEX_TABLE
             WHERE HISTO_INDEX.INDEX_ID=INDEX_TABLE.INDEX_ID
             AND DATE_ID=(SELECT MAX(DATE_ID) FROM HISTO_INDEX WHERE HISTO_INDEX.DATE_ID NOT IN (SELECT MAX(DATE_ID) FROM HISTO_INDEX))
             AND INDEX_TABLE.TYPE='Index') r2
             WHERE r1.INDEX_ID=r2.INDEX_ID;
BEGIN
	for c in data_cur loop
	UPDATE DIFF_TABLE SET DIFF_VALUE=c.fdiv WHERE LABEL=c.label;
	end loop;
END;

PS1: j'ai viré les order by inutiles dans une sous-requête jointe
PS2: potentiellement si ta requête renvoie bcp de lignes tente une syntaxe ensembliste plutôt qu'un curseur
PS3: Et le commit ?

11/02/2009, 09h12
guizaniseifislam

Veuillez préciser l'erreur d'abord 8O
17/02/2009, 16h58
puck78

Sans précision sur l'erreur, pas évident...

Pour ma part, je mettrais le EXIT juste après le FETCH et non après le UPDATE.
Sinon c'est vrai que les boucles FOR sont d'une syntaxe plus "simple".
17/02/2009, 23h48
skuatamad

Au fait pas de DECLARE après create procedure ...
Je viens d'éditer mon post pour corriger :aie:
18/02/2009, 09h53
GoLDoZ

Bonjour.

Le "EXIT WHEN NOT%FOUND" doit être placé juste après le FETCH.