Oracle存储过程 编译有警告,帮忙看看错在哪了?
create or replace procedure ADMIN.p_selectCourse(
p_teachId in number,
p_courseNumber in varchar2(20),
p_studentNumber in varchar2(18),
p_error out number )
is
i INTEGER;
begin
select studentMaxNumber into i from publicCourseTeach where teachId=p_teachId;
SAVEPOINT p1;
if i> 0 then
update publicCourseTeach set studentMaxNumber=studentMaxNumber-1 where teachId=p_teachId ;
insert into studentSelectCourseInfo(studentNumber,courseNumber) values(p_studentNumber,p_courseNumber) ;
commit ;
if sqlcode == 0 then
p_error:=1;
dbms_output.put_line(p_error);
else
rollback to p1;
p_error:=0;
dbms_output.put_line(p_error);
end if;
else
p_error:=-1;
dbms_output.put_line(p_error);
end if;
end ;