Discussion :

[lapartdombre]

Comment faire pour appeller une procédure stockée depuis une autre procédure stockée?

[plaineR]

Un petit exemple vaut mieux que de long discours :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
create or replace procedure proc1 (param1 in varchar2) is
begin
   dbms_output.put_line (param1);
end;
/
 
create or replace procedure proc2 is
begin
   proc1 ('MESSAGE PROC2');
end;
/

[lapartdombre]

merci

[lapartdombre]

Si j'ai ma première procédure qui est

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
 
PROCEDURE P_GET_MACROPT (PO_CUR OUT Pkg_Tb_Reste.r_cursor,
                         PDI_JOURNEE_POSTALE IN DATE,
						 PNI_ID_CTC IN INTEGER)
 
IS
	v_cur Pkg_Tb_Reste.r_cursor;
BEGIN
	OPEN v_cur FOR
 
	SELECT mac.libelle_macropt
        FROM CTC, STOCK_ETABLISSEMENT se, STOCK_MACRO_PT smp, MACRO_PT mac
        WHERE CTC.id_ctc = PNI_ID_CTC
		  AND smp.id_macro_pt = mac.id_macro_pt
          AND smp.id_stock_etablissemen = se.id_stock_etablissemen
          AND se.journee_postale = PDI_JOURNEE_POSTALE
          AND CTC.date_suppression IS NULL
          AND se.date_suppression IS NULL
		 ORDER BY mac.ordre ASC, mac.LIBELLE_MACROPT ASC;
 
	PO_CUR := v_cur;
END P_GET_MACROPT;

ET que je veux appeller cette procédure dans une autre et boucler sur le le curseur via un loop ou autre moyen comment faire???

[lapartdombre]

Comment faire pour récupérer les enregistrement contenu dans le curseur?

[lapartdombre]

Un petit exemple vaut mieux que de long discours :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
create or replace procedure proc1 (param1 in varchar2) is
begin
   dbms_output.put_line (param1);
end;
/
 
create or replace procedure proc2 is
begin
   proc1 ('MESSAGE PROC2');
end;
/

ET si tu avais un paramètre de sortie dans ta procédure proc1, comment tu aurais fait l'appel de ta procédure?

[plaineR]

De la même manière :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
create or replace procedure proc1 (param1 out varchar2) is 
begin 
   param1 := 'MESSAGE PROC1';
end; 
/ 
 
create or replace procedure proc2 is 
  v_mess varchar2(100);
begin 
   proc1 (v_mess);
   dbms_output.put_line (v_mess);
end; 
/