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 47 48 49 50 51 52 53 54 55 56
|
SQL> create or replace package test
2 Is
3 id number;
4 function f return number;
5 end;
6 /
Package crÚÚ.
SQL> create or replace package body test is
2 l_id number;
3 Function f return number
4 Is
5 begin
6 l_id := 1;
7 id := l_id+1;
8 return l_id;
9 end;
10 --
11 Begin
12 id := Null;
13 End;
14 /
Corps de package crÚÚ.
SQL>
SQL> set autoprint on
SQL> variable h_id number
SQL> exec :h_id := test.id;
ProcÚdure PL/SQL terminÚe avec succÞs.
H_ID
----------
SQL> exec :h_id := test.f;
ProcÚdure PL/SQL terminÚe avec succÞs.
H_ID
----------
1
SQL> exec :h_id := test.id;
ProcÚdure PL/SQL terminÚe avec succÞs.
H_ID
----------
2 |
Partager