/*
ora_bench_tpcb.sql
v.1.0.0


Procedure di lancio del benchmarch TPC-B

meo@bogliolo.name
*/

create or replace procedure bench_tpcb
(totcicli IN integer, scale IN integer)
IS
Aid             number;
Bid             number;
Tid             number;
delta           number(9,2);
Abalance        float;
num_random      number;
progres         integer;

begin

for progres in 1..totcicli
loop

 -- Genera random Bid
 Bid := floor(dbms_random.value(0,1*scale));

 -- Genera random Tid
 Tid := floor(dbms_random.value(0,10))+10*Bid;

 -- Genera random Aid
 Aid := floor(dbms_random.value(0,100000))+100000*Bid;

 -- Genera random il delta
 delta := dbms_random.value(-10000,10000);

 -- Esecuzione stored procedure TPC-B
 tpcb(Aid, Bid, Tid, delta, Abalance);

end loop;
end;
/