Pb avec Execute IMMEDIATE et bloc dynamique

Version imprimable

Bonjour à tous,

Je me retrouve depuis plusieurs longues et interminables heures devant un problème que je ne sais résoudre.

J'ai créé une procédure stockée dans l'un de mes packages et je voudrais suivant l'enregistrement dans ma table appeler dynamiquement la procédure stockée associée.

Pour cela, je crée le morceau de code suivant :
Code:

1 2 3 ps_query := 'BEGIN :1 := ' || rec_regle.contenu_regle || '(:2 , :3 , :4, :5, :6, :7, :8, :9, cp_tCritere, 1); END;'; EXECUTE IMMEDIATE ps_query USING OUT num_ligne,rec_regle.id_sous_regle, rec_regle.balise_xml_deb, rec_regle.balise_xml_fin, pv_flux_xml_csv, num_ligne, pv_user_id, pv_task_id, pv_id_modele;
Le problème que je rencontre c'est au sujet de cp_tCritere qui est un tableau d'enregistrements qui crée une erreur lors du Execute Immediate en renvoyant une erreur de type : 'l'identificateur 'CP_TCRITERE' doit être déclaré' alors que ce dernier est déclaré correctement dans la procédure qui contient notamment l'appel dynamique ci dessus.

Je rajouterai que j'ai essayé de le passer dans le USING (comme pr tous les autres parametres) mais cela me renvoie une erreur du type 'instruction SQL' non valide.

Comment se fait il qu'il ne soit pas reconnu à l'interieur du bloc dynamique que je souhaite executer ?

Quelle solution proposeriez vous ?

merci d'avance... :roll:

:tagcode:

l'execute immediate ne voit pas tes variables externes. c'est un block autonome.

Code:

1
2
3
4
5
6
7
8
9
10
11
DECLARE
	TYPE TAB_V IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;   
    varr TAB_V;
 BEGIN
 	varr(1) := 1;
    varr(2) := 2;
 	FOR i IN 1..2 LOOP DBMS_OUTPUT.PUT_LINE(varr(i)); END LOOP;
 END;
 
1
2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
BEGIN      
EXECUTE IMMEDIATE 'DECLARE
	TYPE TAB_V IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;   
    varr TAB_V;
 BEGIN
 	varr(1) := 1;
    varr(2) := 2;
 	FOR i IN 1..2 LOOP DBMS_OUTPUT.PUT_LINE(varr(i)); END LOOP;
 END;';
 END;
 
 1
 2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 DECLARE
 TYPE TAB_V IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;   
    varr TAB_V;
 BEGIN      
EXECUTE IMMEDIATE 'BEGIN
 	varr(1) := 1;
    varr(2) := 2;
 	FOR i IN 1..2 LOOP DBMS_OUTPUT.PUT_LINE(varr(i)); END LOOP;
 END;';
 END;
 ORA-06550: line 2, COLUMN 3:
PLS-00201: IDENTIFIER 'VARR' must be declared
ORA-06550: line 2, COLUMN 3:
PL/SQL: STATEMENT ignored
ORA-06550: line 3, COLUMN 5:

28/02/2008, 13h50
ouaouane

oui mais...

Je te remercie pr la rapidité de ta réponse et concernant ce que tu as écrit je suis a 100% d'accord avec toi. Seulement, si je déclare mon tableau a l'interieur de mon bloc autonome je n'aurai plus le contenu de mon tableau jusque la rempli par les lignes précédant ce Exexcute Immediate, dans ma procédure.
L'idéal alors serait de le sortir du bloc autonome et utiliser le USING comme pr les autres variables ci dessus afin qu'il soit reconnu.

Seulement le USING apparemment ne reconnait pas mon tableau en tant que tableau justement... Et me renvoie une erreur 'Instruction sql non valide'...

je suis donc tjs bloqué ! :oops:

Ok, si tu veux récupérer les données de ce tableau :
Crée le type en base (dans les spec d'un package).

exemple :

Code:

1
2
3
4
5
6
CREATE OR REPLACE PACKAGE STO_PKG_AFFECT_STOCK
AS
	TYPE REC_STOCK IS RECORD(DATE_CDE DATE, QTE NUMBER);
	TYPE TAB_STOCK IS TABLE OF REC_STOCK INDEX BY BINARY_INTEGER;   
	T_STOCK TAB_STOCK;
END;

Code:

1
2
3
4
5
6
7
8
9
 BEGIN      
	sto_pkg_affect_stock.T_STOCK.DELETE;
EXECUTE IMMEDIATE 'BEGIN
 	sto_pkg_affect_stock.T_STOCK(1).qte := 5;
 	sto_pkg_affect_stock.T_STOCK(2).qte := 50;
    FOR i IN 1..2 LOOP DBMS_OUTPUT.PUT_LINE(''inside:''||sto_pkg_affect_stock.T_STOCK(i).qte); END LOOP;
 END;';
     FOR i IN 1..2 LOOP DBMS_OUTPUT.PUT_LINE('Outside:'||sto_pkg_affect_stock.T_STOCK(i).qte); END LOOP;
 END;

Vu que la variable de package est par session, tu peux y accéder dans l'execute, comme hors de l'execute. Par contre, faut penser à l'effacer

Résultat :

Code:

1
2
3
4
inside:5
inside:50
Outside:5
Outside:50

28/02/2008, 15h05
ouaouane

C'est l'idée sur laquelle je venais de penser justement...
Je vais déjà faire un essai avec ce que j'ai en tête et voir ce que ca donne...

En tous les cas merci bcp pr ta réactivité ! Et bravo pr comprendre aussi rapidement les problématiques ! :)

Signé un tit débutant qui respecte l'expert ! ;)
28/02/2008, 16h08
ouaouane

A première vue, ca a l'air de fonctionner !!! je fais faire une rafale de tests en esperant que tout cela tienne le choc ! ;)

Encore merci pour les conseils ! C d'ailleurs ainsi qu'il fallait procéder !

Ouaouane