create or replace package S02_ZFRZPT_YS_MID is procedure start_cal(strgranularity in varchar2, dtinputdt in varchar2); procedure add_jydsxx_pt_mid (dtinputdt in varchar2); end S02_ZFRZPT_YS_MID;
Package右側文件:spa
create or replace package body S02_ZFRZPT_YS_MID is procedure start_cal(strgranularity in varchar2, --1日,2,3,4:月;5:季;6:半年;7:年 dtinputdt in varchar2) as begin --註釋 add_jydsxx_pt_mid(dtinputdt); end; procedure add_jydsxx_pt_mid(dtinputdt in varchar2) as begin delete from s02_jydsxx_pt_mid t where t.statisticdate = dtinputdt; commit; end; end S02_ZFRZPT_YS_MID;