Procedure qui compile, probleme execution

Version imprimable

Salut tout le monde....

J'ai créer une procédure pl/sql. Celle-ci est compilée sans aucune erreurs !!!
Par contre lorsque je lance l'exécution de celle-ci, une erreur au niveau de mon premier curseur apparait... Quelqu'un a déjà rencontré ce problème et aurait une idée d'où cela peut venir???

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
CREATE OR REPLACE PROCEDURE frequency_product (nbYear NUMBER) IS
	CURSOR C_Staging IS
		SELECT  HostPartID, COUNT (HostPartID) AS I
		FROM Staging
		WHERE MONTHS_BETWEEN(sysdate, SalesOrderMatAvailDt) <= nbYear*12
		GROUP BY HostPartID
		ORDER BY I DESC;
	demToT NUMBER;
	threshold NUMBER := 0;
	i NUMBER := 0;
	enreg C_Staging%ROWTYPE;
BEGIN
	SELECT COUNT (HostPartID) into demToT
	FROM Staging
	WHERE MONTHS_BETWEEN(sysdate, SalesOrderMatAvailDt) <= nbYear*12;
	threshold := 80/100 * demTot;
	LOOP
		FETCH C_Staging INTO enreg;
		EXIT WHEN C_Staging%NOTFOUND;
		i := i + enreg.I;
			UPDATE Product 
				SET Frequency='High'
				WHERE HostPartID=enreg.HostPartID;
		EXIT WHEN i >= threshold;
	END LOOP;
	LOOP
		FETCH C_Staging INTO enreg;
		EXIT WHEN C_Staging%NOTFOUND;
			UPDATE Product 
				SET Frequency='Low'
				WHERE HostPartID=enreg.HostPartID;
	END LOOP;	
END;

Erreur :

Code:

1
2
3
4
5
*
ERREUR à la ligne 1 :
ORA-01001: curseur non valide
ORA-06512: à "HISTOADM.FREQUENCY_PRODUCT", ligne 18
ORA-06512: à ligne 1

En vous remerciant et vous souhaitant une agréable journée !!!

enreg n'est pas un rowtype...

essaye :

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
CREATE OR REPLACE PROCEDURE frequency_product (nbYear NUMBER) IS
	CURSOR C_Staging IS
		SELECT  HostPartID, COUNT (HostPartID) AS I
		FROM Staging
		WHERE MONTHS_BETWEEN(sysdate, SalesOrderMatAvailDt) <= nbYear*12
		GROUP BY HostPartID
		ORDER BY I DESC;
	demToT NUMBER;
	threshold NUMBER := 0;
	i NUMBER := 0;
	v_host HostPartID%TYPE;
        nb_host NUMBER;
BEGIN
	SELECT COUNT (HostPartID) into demToT
	FROM Staging
	WHERE MONTHS_BETWEEN(sysdate, SalesOrderMatAvailDt) <= nbYear*12;
	threshold := 80/100 * demTot;
	LOOP
		FETCH C_Staging INTO v_host,nb_host ;
		EXIT WHEN C_Staging%NOTFOUND;
		i := i + nb_host;
			UPDATE Product 
				SET Frequency='High'
				WHERE HostPartID=v_host;
		EXIT WHEN i >= threshold;
	END LOOP;
	LOOP
		FETCH C_Staging INTO v_host,nb_host;
		EXIT WHEN C_Staging%NOTFOUND;
			UPDATE Product 
				SET Frequency='Low'
				WHERE HostPartID=v_host;
	END LOOP;	
END;

29/08/2006, 16h46
zuzuu

Merci de m'aider c'est super sympa...

J'ai tester ton code, de meme il doit y avoir une erreur vise à vis de ta nouvelle variable (peu etre une faute d'orthographe)...
Je vais mieux regarder mais je voudrais te poser une question:

Dans mon curseur, je récupere bien des tuples avec plusieurs champs, donc pourquoi cela ne pourrait pas être un rowtype?
29/08/2006, 17h09
pifor

Le rowtype sur le curseur devrait fonctionner.

Il semble qu'on pouvait en 9i déclarer un curseur implicite et faire un fetch dessus mais que c'était un bug et qu'en 10g ce n'est plus possible.

Quelle est votre version d'Oracle ?
29/08/2006, 17h58
pifor

Dans le code il manque:
-l'ouverture du curseur qui devrait expliquer l'erreur
-la fermeture du curseur.
29/08/2006, 18h11
SheikYerbouti

Oui, vous ne pouvez utiliser l'instruction FETCH que sur un curseur ouvert (OPEN)
31/08/2006, 10h41
zuzuu

Oui c'était bien à cause du manque de OPEN CURSEUR...
C'est vraiment un oublie bete mais je n'arrivais plus à le voir à force de faire des procédures à la chaine...

Je te remercie beaucoup !!!