Function - déclaration variable locales [Résolu]

[jollt]

Bonjour, j'ai un petit soucis de déclaration de mes variables locales. Quelqu'un peut-il m'expliquer comment ça marche?
Merci d'avance

Voici une fonction :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CREATE OR REPLACE FUNCTION get_data (
	   VAR_ID OUT INTEGER,
	   VAR_NAME OUT VARCHAR2
	   )
  RETURN AF_obj_table_Arbo AS
  v_tab AF_obj_table_Arbo := AF_obj_table_Arbo();
BEGIN
	FOR cur_cdl IN (SELECT ID, NAME FROM SOC
		         WHERE SOC_DT_SUP IS NULL AND SOC_REGROUP = 15)
	LOOP
		VAR_ID := cur_cdl.ID;
		VAR_NAME := cur_cdl.NAME;
	END LOOP;
	RETURN v_tab;
END;

Les variables VAR_ID et VAR_NAME sont déclarées comme varialbles OUT
Quand je compile, ça marche

Mais en fait j'aimerai que ces deux varialbles soient locales à la fonction et non en paramètre

J'ai fait ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CREATE OR REPLACE FUNCTION get_data ()
  RETURN AF_obj_table_Arbo AS
  v_tab AF_obj_table_Arbo := AF_obj_table_Arbo();
DECLARE
   VAR_ID INTEGER;
   VAR_NAME VARCHAR2 (100);
 
BEGIN
	FOR cur_cdl IN (SELECT ID, NAME FROM SOC
		         WHERE SOC_DT_SUP IS NULL AND SOC_REGROUP = 15)
	LOOP
		VAR_ID := cur_cdl.ID;
		VAR_NAME := cur_cdl.NAME;
	END LOOP;
	RETURN v_tab;
END;

j'ai une erreur de compilation

[mnitu]

T'as un declare en trop (sinon pas de soucis avec les variables).

[jollt]

Envoyé par mnitu

T'as un declare en trop (sinon pas de soucis avec les variables).

J'ai essayé, j'ai toujours un soucis à la compilation (un warning dont je n'arrive pas à avoir le message)

Ma fonction est la suivante :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
CREATE OR REPLACE FUNCTION AF_get_Arbo (
	   p_owner IN  VARCHAR2 DEFAULT '%',
	   VAR_RSQ_KEY_CDL OUT INTEGER,
	   VAR_RSQ_NOM_CDL OUT VARCHAR2, 
	   VAR_RSQ_KEY_DR OUT INTEGER,
	   VAR_RSQ_NOM_DR OUT VARCHAR2,
	   VAR_RSQ_PAYS_LIB OUT VARCHAR2,
	   VAR_RCTNOM OUT VARCHAR2,
	   VAR_RCTPRN OUT VARCHAR2,
	   VAR_RCTTEL OUT VARCHAR2,
	   VAR_RCTMAI OUT VARCHAR2
	   )
  RETURN AF_obj_table_Arbo AS
 
  v_tab AF_obj_table_Arbo := AF_obj_table_Arbo();
 
BEGIN
	FOR cur_cdl IN (SELECT RSQ_KEY, RSQ_NOM 
			  FROM RSQ 
		         WHERE RSQ_CLI_ID = 13 AND 
		               RSQ_DATE_SUP IS NULL AND 
			       RSQ_RGP1 IN (6,8,9,10,11)
			)
	LOOP
		VAR_RSQ_KEY_CDL := cur_cdl.RSQ_KEY;
		VAR_RSQ_NOM_CDL := cur_cdl.RSQ_NOM;
 
		FOR cur_dr IN (SELECT RSQ_KEY, RSQ_NOM 
		                 FROM RSQ 
				WHERE RSQ_CLI_ID = 13 AND 
				      RSQ_DATE_SUP IS NULL AND 
				      RSQ_MERE = VAR_RSQ_KEY_CDL
			      )
 
		LOOP
			VAR_RSQ_KEY_DR := cur_dr.RSQ_KEY;
			VAR_RSQ_NOM_DR := cur_dr.RSQ_NOM;
			VAR_RCTNOM := 'a'; 
			VAR_RCTPRN := 'b';
			VAR_RCTTEL := 'c';
			VAR_RCTMAI := 'd';
			VAR_RSQ_PAYS_LIB := 'e';
 
			v_tab.extend;
			v_tab(v_tab.last) := AF_obj_row_Arbo(VAR_RSQ_NOM_CDL,
				 VAR_RSQ_KEY_CDL, 
				 VAR_RSQ_NOM_DR,
				 VAR_RSQ_KEY_DR, 
				 VAR_RSQ_PAYS_LIB, 
				 VAR_RCTNOM, 
				 VAR_RCTPRN, 
				 VAR_RCTTEL, 
				 VAR_RCTMAI);
		END LOOP;
  END LOOP;
  RETURN v_tab;
END;

Quoi que je fasse pour supprimer les paramétres, j'ai toujours une erreur à la compile (warning).
Les différents objets appelés existe, je n'ai de soucis qu'avec ces paramêtres

[rvfranck]

Moi je ne comprends plus ; c'est un autre problème ou c'est le même?
mnitu ta demandé de supprimer le declare, tu l'as fait? ça a marché ou pas?

Code :

1
2
3
4
5
6
7
8
9
CREATE OR REPLACE FUNCTION get_data ()
  RETURN AF_obj_table_Arbo AS
  v_tab AF_obj_table_Arbo := AF_obj_table_Arbo();
   VAR_ID INTEGER;
   VAR_NAME VARCHAR2 (100);
 
BEGIN
   -- ton code
END;

Si c'est un autre problème, tu en crées un autre et tu mets le tag resolu sur celui ci.

[jollt]

C'est bien le même problème. J'ai bien supprimé le Declare, et j'ai toujours la même erreur de compilation.
Mais j'ai trouvé un autre moyen de faire en me passant de variables locales, je creuserai leproblème plus tard.

Merci en tout cas.