Discussion :

[Eckson]

Salut,

En fait j'ai une procédure qui me fournit un SYS_REFCURSOR comme ceci PROCEDURE (parametre1, parametre2, OUT paremetre3) avec parametre3 comme SYS_REFCURSOR

Code :

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

1
2
3
4
5
6
7
8
9
 Valeur4 TABLE%ROWTYPE
 
 LOOP
 FECTH parametre3 INTO Valeur4 
 EXIT WHEN paremetre3%NOTFOUND
 '
 '
 '
 END LOOP;

j'ai une erreur invalid cursor et précisément sur la ligne EXIT WHEN paremetre3%NOTFOUND et je n'arrive pas à comprendre pourquoi cette erreur. Faut dire que suis derrière un formulaire et donc je ne peux faire de BULK COLLECT INTO....

Cela déterminera la beauté de mon weekend
Merci de votre collaboration

[mnitu]

Personne ne peut debugger des morceaux de code générique!

[Eckson]

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
PROCEDURE procedure IS
 
 
   al_button            NUMBER; 
   parametre1         VARCHAR2(200);
   parametre2         VARCHAR2(200);
   parametre3         VARCHAR2(200);
   parametre4         VARCHAR2(200);        
 
   curInfoCam         SYS_REFCURSOR;
   excErr                 EXCEPTION;
 
   maligne              TABLE%ROWTYPE;
 
 
 BEGIN
 
       TEST.fonction(parametre1, parametre2,curInfoCam,
                        parametre3,parametre4);                
    IF vchrCodRetou <> '0' THEN
       RAISE excErr;
    END IF; 
 
 	IF vchrMsgTrait = '0' THEN 
 
     LOOP	
	FETCH curInfoCam INTO maligne;
	EXIT WHEN curInfoCam%NOTFOUND;	
 
	IF maligne.CAM_DAT_FABRC >= datdebutVerif THEN           
	NULL;
	END IF;
    END LOOP;
 
	EXCEPTION
	WHEN NO_DATA_FOUND THEN
	msg_alert('Code d''état : valeur non valide', 'E', TRUE);
	WHEN OTHERS THEN
	CGTE$OTHER_EXCEPTIONS;
 
END;