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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| SQL> create or replace package mon_pkg is
2 ma_variable varchar2(10);
3 procedure p1;
4 procedure p2;
5 end mon_pkg;
6 /
Package créé.
SQL> create or replace package body mon_pkg is
2 procedure p1 is
3 begin
4 dbms_output.put_line ('Ici P1');
5 end p1;
6
7 procedure p2 is
8 begin
9 dbms_output.put_line ('Ici P2');
10 end p2;
11
12 begin
13 dbms_output.put_line ('Initialisation');
14 ma_variable := 'ma_valeur';
15 end mon_pkg;
16 /
Corps de package créé.
SQL> set serveroutput on
SQL> exec mon_pkg.p1;
Initialisation
Ici P1
Procédure PL/SQL terminée avec succès.
SQL> exec mon_pkg.p1;
Ici P1
Procédure PL/SQL terminée avec succès.
SQL> exec mon_pkg.p2;
Ici P2
Procédure PL/SQL terminée avec succès.
SQL> |
Partager