在存储过程中执行oracle循环语句

1.create or replace procedure PRO_KG_T_JOURNALX is
begin
   for j in reverse  1..800 loop
    insert into kg_t_zlhtxx .....;
      end loop;
      commit;  
end PRO_KG_T_JOURNALX;

2.create or replace procedure PRO_KG_T_JOURNALXX
is
     i int;
begin
     i :=1;
     while i<=5 loop
         insert into kg_t_zlhtxx(sheet_no) values('101');
         i :=i+1;
     end loop;
end;

create or replace procedure PRO_KG_T_JOURNAL is
  vhtid varchar2(16);
  doperate_time date;
begin
   for ht in (select sheet_no,oper_date from kg_t_zlhtxx) loop
     vhtid := ht.sheet_no;
     doperate_time := ht.oper_date;
     insert into kg_t_journal (sheet_no,htid,operate_time,operate_id,operate_type,logip)
      values (SEQ_KG_T_JOURNAL.Nextval,vhtid,doperate_time,'6666','录入合同','117.25.179.146');
      end loop;
      commit;  
end PRO_KG_T_JOURNAL;

调用存储过程

1.

begin 
  PRO_KG_T_JOURNALXX;
end;

2.

commit命令

exec PRO_KG_T_JOURNALXX;