---不带参数的存储过程

CREATE OR REPLACE PROCEDURE pk_pat()

AS

--定义变量

num1 number(10);

datetime1date;

begin

--赋值变量

---给datetime1 赋值一个近七天的一个随机事件。

select to_date(TRUNC(DBMS_RANDOM.VALUE(to_number(to_char(trunc(sysdate-7),'J')),to_number(to_char(trunc(sysdate+1),'J')))),'J')+DBMS_RANDOM.VALUE(1,3600)/3600 into datetime1 from dual;

num1 :=100;

--循环插入100条数据

while num1>0 loop

insert ……；--插入语句

end loop;

end;