Parcours de Sys_refcursor

Version imprimable

23/05/2014, 03h41
Eckson

Parcours de Sys_refcursor
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:

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
23/05/2014, 09h44
mnitu

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

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
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;