create or replace package test_pkg as
-- 'SIGNATURE PUBLIQUE' DES FUNCTIONS ET PROCEDURES
function Tst01 (pRayon in number) return varchar2;
end test_pkg;
/
create or replace package body test_pkg as
-- 'SIGNATURE PRIVEE' DES FUNCTIONS ET PROCEDURES
function Tst02 (pValue in number) return number;
-- DEFINITION PREALABLE DES CONSTANTS
cPi NUMBER := 3.14 ;
-- DEFINITION DE Tst01
-- L'ordre n'a plus d'importance la signature en debut
-- de package body. Ici, Tst02 est connu
function Tst01 (pRayon in number) return varchar2 is
begin
return 'La surface du cercle de rayon ' || pRayon || ' vaut ' || Tst02(pRayon);
end Tst01;
-- DEFINITION DE Tst02
-- Il s'agit d'une definition stritement privee valide
-- uniquement au sein de ce package body
function Tst02 (pValue in number) return number is
begin
return cPi * power(pValue,2);
end Tst02;
end test_pkg;
/
Partager