fonction : retourner un table of

Bonjour à tous

je dois creer une fonction qui retourne un tableau de record :
mais sqldevelloper me refuse la compilation en disant que j'utilise un type avant sa declaration :

un petit detail : la fonction devra faire partie d'un package.
Je suppose que je devrais le declarer(le type TABLEEMPLOYES) dans la specification?
mais je cree mes fonctions indivduellement puis je bidouillerai pour ensuite faire le package. Comment resoudre ce probleme?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CREATE OR REPLACE
FUNCTION LISTEREMPLOYES( pNomPro IN PROJETS.NOMPRO% TYPE)
RETURN TABLEEMPLOYES AS
TYPE TABLEEMPLOYES IS TABLE OF EMPLOYES% ROWTYPE INDEX BY BINARY_INTEGER;
vTableEployes TABLEEMPLOYES;
BEGIN
 
  SELECT * INTO vtableeployes
  FROM EMPLOYES
  WHERE NUMSECU IN (SELECT NUMSECU
                    FROM EMPPRO
                    WHERE NUMPRO IN (SELECT NUMPRO
                                     FROM PROJETS
                                     WHERE NOMPRO = pNomPro));
  RETURN vtableeployes;
  EXCEPTION
  WHEN NO_DATA_FOUND THEN RAISE_APPLICATION_ERROR(-20051,'Personne n est associé a ce projet');
                          RETURN NULL;
  WHEN OTHERS THEN DBMS_OUTPUT.PUTLINE('ERREUR: '||SQLCODE||SQLERRM);
                   RETURN NULL;
END LISTEREMPLOYES;

CREATE OR REPLACE PACKAGE PKG_TEST IS TYPE TYP_TAB_EMP IS TABLE OF EMP%ROWTYPE ; FUNCTION Affiche_lignes Return TYP_TAB_EMP ; END; / create or replace package body PKG_test as FUNCTION Affiche_lignes Return TYP_TAB_EMP IS Tlignes PKG_TEST.TYP_TAB_EMP ; Cursor C_EMP is Select * From EMP ; Begin Open C_EMP ; Fetch C_EMP BULK COLLECT into Tlignes ; Close C_EMP ; Return( Tlignes ) ; End ; END; / Declare Tlignes PKG_TEST.TYP_TAB_EMP ; Begin Tlignes := PKG_TEST.Affiche_lignes ; For i IN Tlignes.first..Tlignes.last Loop dbms_output.put_line( Rpad( Tlignes(i).ename, 25 ) || ' --> ' || To_char( Tlignes(i).sal ) ) ; End loop ; End ; /