Package Example

Simple Package and Package Body
================================

create or replace package pack1 is
v_ann_sal employees.salary%TYPE;
function f_inn_sal(p_eno employees.employee_id%TYPE) return boolean;
procedure p_ann_sal(p_eno employees.employee_id%TYPE);
end;
/

create or replace package body pack1 is
function f_inn_sal(p_eno employees.employee_id%TYPE)
return boolean
is
begin
update test1 set salary=salary+100 where employee_id=p_eno;
return true;
end f_inn_sal;
procedure p_ann_sal(p_eno employees.employee_id%TYPE)
is
begin
select salary*12 into v_ann_sal from test1 where employee_id=p_eno;
dbms_output.put_line('New salary is: '||v_ann_sal);
end p_ann_sal;
end;
/

SQL> exec pack1.p_ann_sal(100);
New salary is: 289200

PL/SQL procedure successfully completed.