存储过程:
create or replace procedure pro_test (retCode out number, retMsg out varchar2)
vcrm v_prod_inst%ROWTYPE;
use_cursor ref_cursor_type;
vunit recharge.unit%TYPE;
vsummoney recharge.recharge_money%TYPE;
vsumlen flow_detail.length%TYPE;
vsumflow flow_detail.sum_flow%TYPE;
vsumd acct_book.init_value%TYPE;
vonline prod_use_daily.is_online%TYPE;
retCode := 0;
vonline := 0;
--获取号码
loop
if (vsumlen>0 or vsumflow>0) then
end if;
if (vsummoney>0 or vsumlen>0 or vsumflow>0 or vsumd>0) then
(S_prod_use_daily.Nextval,to_char(sysdate,'YYYYMMDD'),vcrm.accnbr,vcrm.id,vcrm.REGION_CODE,vsummoney,vunit,'B',vsumflow,vsumlen,vsumd,vonline,'E',sysdate);
end if;
end loop;
close use_cursor;
commit;
exception
end ;
定时任务: