/****************************
取两个年月之间的所有年月放入到typ_str_tab中
written by:wonder
modified by:
****************************/
function getYearMonthBetween(prm_begin_aae002 varchar2,
prm_end_aae002 varchar2,
prm_appcode out varchar2,
prm_errmsg out varchar2) return pkg_a_comm.TYP_TAB_STR is
ltab_str pkg_a_comm.typ_tab_str;
current_aae002 date;
begin
prm_appcode := pkg_a_macro.def_ok;
prm_errmsg := '';
current_aae002 := to_date(prm_begin_aae002, 'yyyymm');
while to_char(current_aae002, 'yyyymm') <> prm_end_aae002 loop
current_aae002 := Add_months(current_aae002, 1);
ltab_str(ltab_str.count + 1) := to_char(current_aae002, 'yyyymm');
end loop;
return ltab_str;
end;
取两个年月之间的所有年月放入到typ_str_tab中
written by:wonder
modified by:
****************************/
function getYearMonthBetween(prm_begin_aae002 varchar2,
prm_end_aae002 varchar2,
prm_appcode out varchar2,
prm_errmsg out varchar2) return pkg_a_comm.TYP_TAB_STR is
ltab_str pkg_a_comm.typ_tab_str;
current_aae002 date;
begin
prm_appcode := pkg_a_macro.def_ok;
prm_errmsg := '';
current_aae002 := to_date(prm_begin_aae002, 'yyyymm');
while to_char(current_aae002, 'yyyymm') <> prm_end_aae002 loop
current_aae002 := Add_months(current_aae002, 1);
ltab_str(ltab_str.count + 1) := to_char(current_aae002, 'yyyymm');
end loop;
return ltab_str;
end;