--規範
create or replace package test_pkg is  --test_pkg為包名
procedure showMessage;  --宣告一個過程
function myAdd(x in number,y in number) return number; --宣告函式
end test_pkg;


--主體
create or replace package body test_pkg is --包名必須一致
procedure showMessage is    --實現規範中的過程
begin
dbms_output.put_line('建立一個簡單的包！'); --列印字串用單引號括起來
end showMessage;

function myAdd(x in number,y in number) --實現函式
return number is
mySum number:=1;
begin
mySum:=x+y;
return mySum;
end myAdd;
end test_pkg;


--呼叫包，這個僅測試用
set serveroutput on
declare 
testSum number:=1;
begin
test_pkg.showMessage;
testSum:=test_pkg.myAdd(10,11);
dbms_output.put_line(testSum);
end;