存储过程 求大神帮忙 编译出错 提示 PLS-00103: 出现符号 "end-of-file"在需要下列之一
create or replace procedure GroupPartRefond(groupid in integer,grouppeocount in integer, resout out integer) is
grouppassaccount integer;
mincou integer;
v_pt_id integer;
v_cou integer;
v_sql_str clob;
cursor a_cursor is
select pt.id,count(pi.id) cou from plane_timetable pt right join seats_info si on si.planetimetableid =pt.id
right join passenger_info pi on pi.seatsid =si.id
where pi.gid= groupid and pi.isdelete='0' and si.isdelete='0' and pt.isdelete='0' and pi.name is null group by pt.id;
b_cursor RefCursor.t_Refcursor;
BEGIN
open a_cursor;
loop
fetch a_cursor into v_pt_id,v_cou;
exit when a_cursor%notfound;
v_sql_str :=v_sql_str+ 'union select id, gid, name, gender, age, idnumber, passport, seatsid,phonenum,seatnumber,ptname,rownum from (
select pi.id, pi.gid, pi.name, pi.gender, pi.age, pi.idnumber, pi.passport, pi.seatsid,pi.phonenum,si.seatnumber,pt.ptname
from passenger_info pi left join seats_info si on pi.seatsid =si.id left join plane_timetable pt on si.planetimetableid =pt.id
where pi.gid='+groupid+ ' and pi.isdelete='||0||' and si.isdelete='||0||' and pt.isdelete='||0||' and (pi.name='' or pi.name is null) and pt.id='+v_pt_id+' order by pi.id desc) where rownum <= '+mincou+' ';
end loop;
close a_cursor;
v_sql_str:= substr(v_sql_str,1,5);
OPEN b_cursor FOR v_sql_str;
begin
select min(cou) into mincou from (
select pt.id,count(pi.id) cou from plane_timetable pt right join seats_info si on si.planetimetableid =pt.id
right join passenger_info pi on pi.seatsid =si.id
where pi.gid= groupid and pi.isdelete='0' and si.isdelete='0' and pt.isdelete='0' and pi.name is null group by pt.id);
select count(id) into grouppassaccount from group_passenger where gid =groupid;
if(grouppassaccount<=(grouppeocount-mincou)) then
--update group_info set gpeocounts = v_gpeocounts,where gid = v_gid,
-- resout:=3;
open b_cursor;
loop
fetch b_cursor into v_pt_id,v_cou;
exit when b_cursor%notfound;
resout:=6;
end loop;
close b_cursor;
else
resout:=4;
end if;
end GroupPartRefond;
PROCEDURE LJTEST.GROUPPARTREFOND 编译错误
错误:PLS-00103: 出现符号 "end-of-file"在需要下列之一时:
( begin case
declare end exception exit for goto if loop mod null pragma
raise return select update while with <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
continue close current delete fetch lock insert open rollback
savepoint set sql execute commit forall merge pipe purge
行:47
文本:end GroupPartRefond;