Erreur exécution procédure stockée

Version imprimable

Bonjour tout le monde, voici le corps de ma procédure stockée qui doit comparer les paramètres d'entrée/sortie de 2 packages.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CREATE OR REPLACE PROCEDURE COMPARE_PARAMS_PACKS (ARG OUT VARCHAR2 ) IS
   PROC_NAME VARCHAR2(100);
   CURSOR GET_PROC_NAME IS SELECT procedure_name from all_procedures where owner = 'THERIAQUE' order by 1;
   BEGIN
   OPEN GET_PROC_NAME;
   LOOP
      FETCH GET_PROC_NAME INTO PROC_NAME;
      EXIT WHEN GET_PROC_NAME%NOTFOUND;
      	IF PROC_NAME IS NOT NULL THEN
			SELECT ARGUMENT_NAME INTO ARG
			FROM all_arguments 
			where owner = 'THERIAQUE' AND PACKAGE_NAME ='PACK_THERIAQUE_API'
			AND DATA_TYPE not in ('PL/SQL RECORD', 'REF CURSOR')
			MINUS 
			SELECT ARGUMENT_NAME
			FROM all_arguments 
			where owner = 'THERIAQUE' AND PACKAGE_NAME ='OLD_PACK_THERIAQUE_API' AND OBJECT_NAME=PROC_NAME
			AND DATA_TYPE not in ('PL/SQL RECORD', 'REF CURSOR')
			ORDER BY 1;
		END IF;
	  END LOOP;
   CLOSE GET_PROC_NAME;
END;

Je crois que la syntaxe est correct mais une erreur est généré lors de l'exécution.
Est ce que quequ'un pourrait m'aider à détecter la source l'anomalie.
Merci d'avance pour votre précieuse collaboration.
Cordialement.

23/02/2009, 12h59
Bluedeep

Peut être qu'en donnant le libellé de l'erreur, ça aiderait, non ?

L'erreur est :

Code:

1
2
3
ORA-01422: l'extraction exacte ramène plus que le nombre de lignes demandé
ORA-06512: à "THERIAQUE.COMPARE_PARAMS_PACKS", ligne 10
ORA-06512: à ligne 7

Il me semble que tu as une erreur dans cette requête :

Code:

1
2
3
4
5
6
7
8
9
10
SELECT ARGUMENT_NAME INTO ARG
			FROM all_arguments 
			WHERE owner = 'THERIAQUE' AND PACKAGE_NAME ='PACK_THERIAQUE_API'
			AND DATA_TYPE NOT IN ('PL/SQL RECORD', 'REF CURSOR')
			MINUS 
			SELECT ARGUMENT_NAME
			FROM all_arguments 
			WHERE owner = 'THERIAQUE' AND PACKAGE_NAME ='OLD_PACK_THERIAQUE_API' AND OBJECT_NAME=PROC_NAME
			AND DATA_TYPE NOT IN ('PL/SQL RECORD', 'REF CURSOR')
			ORDER BY 1;

elle te retourne plus d'un enregistrement, tout simplement.

23/02/2009, 14h19
mercure07

Oui vous avez raison, j'ai bien testé cela. Avez vous une idée pour changer cela et obtenir les résultats escomptés.
23/02/2009, 14h28
Z3phur

Vous pouvez essayer avec un deuxième curseur en lui passant un paramètre en l'occurrence 'PROC_NAME'
23/02/2009, 14h54
GoLDoZ

Bonjour.

Les paramètres d'entrée/sortie concernent les procédures. Deux procédures pouvant avoir les mêmes paramètres d'entrée/sortie, vous avez deux solutions:
- soit vous voulez comparer les paramètres procédure par procédure et dans ce cas, vous devez ajouter le paramètre procédure dans votre requête (comme indiqué par Z3phur);
- soit vous souhaitez juste lister la différence entre les deux packages, et dans ce cas vous ajoutez un distinct à votre requête.
23/02/2009, 15h25
mercure07

En fait j'ai ajouté le nom de la procédure puisque je veux comparer procédure par procédure c'est pour cela au début j'ai listé les procédures dans un curseur et j'ai fait le parcours de ce curseur et j'ai passé le nom de la procédure en paramètre dans la requête. Mais parait il la requête renvoi plusieurs lignes.

Dans la mesure ou vous savez quels packages comparer, il est inutile de parcourir toutes les procédures (ce que fait votre curseur).
Je vous propose une autre vision des choses qui devrait régler votre souci.

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
CREATE OR REPLACE PROCEDURE compare_params_packs (arg OUT VARCHAR2)
IS
   CURSOR get_proc_name
   IS
      SELECT argument_name, object_name
        FROM all_arguments
       WHERE owner = 'THERIAQUE'
         AND package_name = 'PACK_THERIAQUE_API'
         AND data_type NOT IN ('PL/SQL RECORD', 'REF CURSOR')
      MINUS
      SELECT argument_name, object_name
        FROM all_arguments
       WHERE owner = 'THERIAQUE'
         AND package_name = 'OLD_PACK_THERIAQUE_API'
         AND data_type NOT IN ('PL/SQL RECORD', 'REF CURSOR');
 
   arg_name    VARCHAR2 (30);
   proc_name   VARCHAR2 (30);
BEGIN
   OPEN get_proc_name;
 
   LOOP
      FETCH get_proc_name
       INTO arg_name, proc_name;
 
      EXIT WHEN get_proc_name%NOTFOUND;
      DBMS_OUTPUT.put_line ('Procédure:' || proc_name || ' - argument:' || arg_name);
   END LOOP;
 
   CLOSE get_proc_name;
END;

;)

23/02/2009, 17h21
mercure07

Je vous remercie infiniment pour cette solution lumineuse. ça marche à merveille.