Package左侧文件：
create or replace package CALL_DETAILS is
strdatarange varchar2(1) := ‘1‘;
numrow_num number(5) := 1;
numcol_num number(5) := 1;
total_currency varchar2(2) := ‘01‘;
strgranularity_five varchar2(1) := ‘4‘;
procedure start_cal(strgranularity in varchar2,
--1日,2,3,4:月；5：季；6：半年；7：年
dtinputdt in varchar2);
end CALL_DETAILS;
Package右侧文件：
create or replace package body CALL_DETAILS is
procedure start_cal(strgranularity in varchar2,
dtinputdt in varchar2) is
begin
if strgranularity = ‘4‘ then
--注释
RH_TRUST_ZJXTJH.start_cal(strgranularity, dtinputdt);
end if;
commit;
end;
end CALL_DETAILS;
原文：http://www.cnblogs.com/liudi1992/p/4340511.html