执行完毕，但带有警告
set serveroutput on;
create or replace procedure cha3(reader in varchar)
as
type varchar (50);
allow number(10);
"借阅数" number(10);
begin
select "读者类别编号" into type from "读者" where "读者号"=reader;
select count(*) into "借阅量" from "借阅" where "读者号"=reader;
select "允许借阅数量" into allow from "读者类别" where "读者类别编号"=type;
if
"阅读量"<allow
then
dbms_output.put_line('可以续借');
else
dbms_output.put_line('不可以续借');
end if;
END;
警告很正常，只要能执行完毕就行。