循环($ROWTYPE,%TYPE，SQL%ROWCOUNT....)

create or replace procedure insert_student
is
 i number:=0;
begin
   while i<=5000 loop
   insert into student values(student_seq.nextval,'bbb','d','1236547');
   i:=i+1;
   end loop;
   commit;
end;

begin
  insert_student;
end;

create or replace procedure hire_date(
empid in number
)
is
  name emp.ename%TYPE;
  sal  emp.sal%TYPE;
begin
  select ename,sal
  into name,sal
  from emp
  where empno=empid;
  dbms_output.put_line(name);
  dbms_output.put_line(sal);
end;

begin
  hire_date(7876);
end;

 create or replace procedure hire_date1(
 empid in number
 )
 is
   emp_record emp%ROWTYPE;
 begin
   select *
   into emp_record
   from emp
   where empno=empid;
   dbms_output.put_line(emp_record.ename);
   dbms_output.put_line(emp_record.sal);
   dbms_output.put_line(emp_record.empno);
 end;

create or replace procedure rowcount (
empid number
)
is
delenum number;
begin
  delete emp
  where empno=empid;
  delenum:=SQL%ROWCOUNT;
  commit;
  dbms_output.put_line(delenum);
end;

set serveroutput on;
begin
  rowcount(7369);
end;

begin
  insert into student values(student_seq.nextval,'a','m','1223565');
  savepoint a;
  insert into student values(student_seq.nextval,'a','m','1223565');
  savepoint b;
  insert into student values(student_seq.nextval,'a','m','1223565');
  savepoint c;
  insert into student values(student_seq.nextval,'a','m','1223565');
  savepoint d;
   rollback to savaepoint b;
  commit;
end;

begin
  insert into student values(0000,'a','m','1223565');
  savepoint a;
  insert into student values(1111,'a','m','1223565');
  savepoint b;
  insert into student values(2222,'a','m','1223565');
  savepoint c;
  insert into student values(3333,'a','m','1223565');
  savepoint d;
  rollback to savaepoint b;
  commit;
end;

set serveroutput on;
declare
  i number:=1;
begin
  loop
  dbms_output.put_line(i);
  i:=i+1;
  exit when i>=20;
  end loop;
end;

set serveroutput on;
declare
i number:=0;
begin
  for i in 1..10  loop
  dbms_output.put_line(i);
  end loop;
end;

set serveroutput on;
begin
  for i in 1..10  loop
  dbms_output.put_line(i);
  end loop;
end;