oracle过程希望大家给我帮助

Question

create or replace procedure prc_ibss_data_collect
        --Created : 2007-6-23
--Purpose : ibss系统采集
--Last modified time : 
--Version : 0.0.1
is
   coursor  c_b9i is
              SELECT * 
      FROM t114_interface 
     where flag = 0;
   v_b9i       c_b9i%rowtype;
      
begin
       
       open c_b9i;
       loop
               fetch c_b9i
               into v_b9i;
       exit when c_b9i%notfound;   insert into t114_interface_log
  values
(
 v_b9i.SNO,
 v_b9i.ACTION,
 v_b9i.ACTIONDATE,
 v_b9i.CUSTNMANE,
 v_b9i.OLDCUSTNAME,
         v_b9i.UNIT,
 v_b9i.OLDUNIT,
 v_b9i.ALIAS,
 v_b9i.NUM,
 v_b9i.OLDNUM,
         v_b9i.ADDR,
                 v_b9i.OLDADDR,
         v_b9i.TELTYPE,
 v_b9i.OLDTELTYPE,
 v_b9i.UNITTYPE,
 v_b9i.OLDUNITTYPE,
         v_b9i.COUNTY,
 v_b9i.SRCTYPE,
         v_b9i.CUSTPW,
 v_b9i.OLDCUSTPW,
 v_b9i.FLAG,
 v_b9i.ON_114,
 v_b9i.GETDATA_DATE,
 v_b9i.GEOID,
         v_b9i.INTER_MEMO,
 v_b9i.PRODUCTTYPE,
         sysdate);
 delete from t114_interface where current of c_b9i;
   end loop;
   close c_b9i;
   commit;
 
end;我是个新手希望大家耐心给于提示
我这个过成有编译错误,希望大家给我提示~~~~~
//鲜明的是错误提示7/19     PLS-00103: 出现符号 "IS"在需要下列之一时：
         :=.(@%;notnullrangedefault
         character52/4     PLS-00103: 出现符号 "end-of-file"在需要下列之一时：
         beginfunction
         packagepragmaprocedureform

Answer 1

谢谢了,是我的错
 不过还有个问题我已经解决了,当要使用 delete from t114_interface where current of c_b9i;
 时候游标要定义  for update通过的过程:
create or replace procedure prc_ibss_data_collect
        --Created : 2007-6-23
--Purpose : ibss系统采集
--Last modified time : 
--Version : 0.0.1
is
   cursor  c_b9i is
              SELECT * 
      FROM t114_interface 
     where flag = 0 for update;
   v_b9i       c_b9i%rowtype;
      
begin
       
       open c_b9i;
       loop
               fetch c_b9i
               into v_b9i;
       exit when c_b9i%notfound;   insert into t114_interface_log
  values
(
 v_b9i.SNO,
 v_b9i.ACTION,
 v_b9i.ACTIONDATE,
 v_b9i.CUSTNAME,
 v_b9i.OLDCUSTNAME,
         v_b9i.UNIT,
 v_b9i.OLDUNIT,
 v_b9i.ALIAS,
 v_b9i.NUM,
 v_b9i.OLDNUM,
         v_b9i.ADDR,
                 v_b9i.OLDADDR,
         v_b9i.TELTYPE,
 v_b9i.OLDTELTYPE,
 v_b9i.UNITTYPE,
 v_b9i.OLDUNITTYPE,
         v_b9i.COUNTY,
 v_b9i.SRCTYPE,
         v_b9i.CUSTPW,
 v_b9i.OLDCUSTPW,
 v_b9i.FLAG,
 v_b9i.ON_114,
 v_b9i.GETDATA_DATE,
 v_b9i.GEOID,
         v_b9i.INTER_MEMO,
 v_b9i.PRODUCTTYPE,
         sysdate);
 delete from t114_interface where current of c_b9i;
   end loop;
   close c_b9i;
   commit;
 
end;
/