Discussion :

[romuald07]

Bonjour à tous.
Comment faire pour passer une variable de type nested table à une procédure d'un package?

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
CREATE OR REPLACE PACKAGE BODY package1 is
  type tabVarchar2 is table of varchar2(100) index by binary_integer;
  monTab tabVarchar2;
  procdure proc1
  is 
  begin
  monTab(0):='valeur1';
  package2.proc2('var1','var2',monTab);
  end proc1;
end package1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
CREATE OR REPLACE PACKAGE package2 is
       type tabVarchar2 is table of varchar2(100) index by binary_integer;
       procedure proc2(p_var1 varchar2,p_var2 varchar2,p_tab in tabVarchar2)
       is
       begin
       ......code
       end proc2
end package2

ce code génére une erreur à la compilation : PLS-00306 numéro ou types d'arguments erronés dans l'appel à 'proc2'

Merci pour vos réponses.

[McM]

Il suffit de mettre la déclaration du type dans le spec du package et pas dans le body.

[plaineR]

Il faut utiliser le type créé dans package2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
CREATE OR REPLACE PACKAGE BODY package1 is
monTab package2.tabVarchar2;
procdure proc1
is 
begin
monTab(0):='valeur1';
package2.proc2(monTab);
end proc1;
end package1

[romuald07]

Merci pour votre aide mais cela ne marche pas....

[McM]

Donne le code exact et complet de tes packages (il n'y a pas les spec).

[plaineR]

Merci pour votre aide mais cela ne marche pas....

Qu'est ce que ça veut dire ça ne marche pas ? Il faut qu'on devine l'erreur ?

[plaineR]

Inspire-toi de cet exemple qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
SQL> create or replace package pack1 is
  2     type tabVarchar2 IS TABLE of varchar2(100) INDEX BY binary_integer;
  3     procedure proc1 (t tabVarchar2);
  4  end;
  5  /
Package créé.
 
SQL> create or replace package body pack1 is
  2    procedure proc1 (t tabVarchar2) is
  3    begin
  4      null;
  5    end;
  6  end;
  7  /
Corps de package créé.
 
SQL> create or replace package pack2 is
  2    procedure proc2;
  3  end;
  4  /
Package créé.
 
SQL> create or replace package body pack2 is
  2     tab2 pack1.tabVarchar2;
  3     procedure proc2 is
  4     begin
  5        pack1.proc1(tab2);
  6     end;
  7  end;
  8  /
Corps de package créé.

[romuald07]

C'est ça marche.
Mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
CREATE OR REPLACE PACKAGE BODY package1 IS
  type tabVarchar2 IS TABLE of varchar2(100) INDEX BY binary_integer;
  monTab package2 .tabVarchar2;
  procdure proc1
  IS 
  begin
  monTab(0):='valeur1';
  package2.proc2('var1','var2',monTab);
  end proc1;
end package1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
CREATE OR REPLACE PACKAGE package2 IS
       type tabVarchar2 IS TABLE of varchar2(100) INDEX BY binary_integer;
       procedure proc2(p_var1 varchar2,p_var2 varchar2,p_tab IN tabVarchar2)
       IS
       begin
       ......code
       end proc2
end package2

Merci pour vos réponses.