create or replace procedure p_gift8_lottery(v_phone_number in varchar2,
v_tone_id in varchar2,
v_tone_code in varchar2,
v_tone_name in varchar2,
v_tone_type in number,
v_num out varchar2, --序列号
v_iswin out number, --是否中奖 0未中,1中奖
v_gift out number --几等奖。
) is
v_this_month varchar2(20); --本月时间
v_black_count number; --是否在黑名单中
v_gift_rate1 number; --一等奖数量
v_gift_rate2 number; --二等奖数量
v_gift_rate3 number; --三等奖数量
v_gift_rate4 number; --四等奖数量
v_gift_rate5 number; --五等奖数量
v_gift_rate4_dmax number; --四等奖每日上限数量
v_gift_rate5_dmax number; --五等奖每日上限数量
v_temp_count number;
v_temp_amount number;
v_temp_num number;
TYPE T_VARRAY IS VARRAY(2) OF NUMBER;
TYPE T_VARRAY_VARRAY IS VARRAY(21) OF T_VARRAY;
V_VAR T_VARRAY_VARRAY := T_VARRAY_VARRAY(T_VARRAY(1, 5),T_VARRAY(6, 10));--二维数组的使用
errno number; --异常编码
errterm varchar2(1000); --异常信息
begin
--本月时间
v_this_month := to_char(sysdate, 'yyyymm');
v_gift_rate1 := 1;
v_gift_rate2 := 3;
v_gift_rate3 := 15;
v_gift_rate4 := 60;
v_gift_rate5 := 600;
v_gift_rate4_dmax := 2; --4等奖每日限额
v_gift_rate5_dmax := 20; --5等奖每日限额
-- raise_application_error('-20002', 'you can not change the data !');--可以主动抛出异常
--为了控制中奖次数需要再建一个中奖信息统计表。
--如果中奖,修改中奖记录表
select ceil(dbms_random.value(0, 10000000)) ||
ceil(dbms_random.value(0, 8)) || ceil(dbms_random.value(0, 8))
|| ceil(dbms_random.value(0, 8)) into v_random_num from dual;--未中奖随机码
if v_gift = 1 then
select t.one into v_temp_count from t_rbt_gift9_result t for update;
if v_temp_count < v_gift_one then
update t_rbt_gift9_result t set t.one = (t.one + 1) where t.id = 1;
--1等奖随机码
select ceil(dbms_random.value(0, 10000000)) || '999' into v_random_num from dual;
else
v_gift := 0;
end if;
insert into t_rbt_gift9_info (ID,phone_number,gift,create_time,random_num)
values(seq_rbt_gift9_info.nextval,v_phone_number,v_gift,sysdate,v_random_num);
elsif v_gift = 2 then
......
end if;
commit;
exception
--异常处理
when others then
errno := sqlcode;
errterm := sqlerrm;
begin
rollback;
insert into T_RBT_JOB_LOGS
values
(SEQ_JOB_LOG.Nextval,
errno,
errterm,
'p_gift8_lottery',
sysdate);
v_gift := 0;--0等奖
v_result:='100003';
select ceil(dbms_random.value(0, 10000000)) ||
ceil(dbms_random.value(0, 8)) || ceil(dbms_random.value(0, 8))
|| ceil(dbms_random.value(0, 8)) into v_random_num from dual;--未中奖随机码
insert into t_rbt_gift9_info (ID,phone_number,gift,create_time,random_num)
values(seq_rbt_gift9_info.nextval,v_phone_number,v_gift,sysdate,v_random_num);
commit;
end;
end p_gift8_lottery;
declare
v_phone_number varchar2(20);
v_tone_id varchar2(20);
v_tone_code varchar2(20);
v_tone_name varchar2(20);
v_tone_type number;
v_num varchar2(20);--序列号
v_iswin number;--是否中奖 0未中,1中奖
v_gift number;--几等奖。
i number:=0;
begin
v_phone_number := '152800123123';
v_tone_id := '333';
v_tone_code:='421421';
v_tone_name:='aab';
v_tone_type :=3;
for i in 1..1000
loop
/*执行你的pro*/
p_gift8_lottery(v_phone_number,v_tone_id,v_tone_code,v_tone_name,v_tone_type,v_num,v_iswin,v_gift);
/*dbms_output.put_line('vnum: ' || v_num);
dbms_output.put_line('v_iswin: ' || v_iswin);
dbms_output.put_line('v_gift: ' || v_gift);
dbms_output.put_line('=============='|| i ||'============');*/
end loop;
end;