select * from emp;
set serveroutput on
create or replace procedure pro3(eno number)
as
v_zsal number;
begin
select sal+nvl(comm,0) into v_zsal from emp where empno= eno;
dbms_output.put_line('员工'||eno||'工资和佣金的和:'|| v_zsal);
exception
when no_data_found then
dbms_output.put_line('无此员工');
end;
exec pro3(7499)
set serveroutput on
create or replace procedure pro4(dno number)
as
aa VARCHAR2(20);
bb VARCHAR2(20);
begin
select dname,loc into aa,bb from dept where deptno= dno;
dbms_output.put_line('部门名称'||aa||'部门位置'||bb );
end;
exec pro4(20)

更改素数题目
declare
sushu number;
b number:=0;
begin
sushu:= &shu;
for i in 2..9 loop
for n in 2..sushu loop
if sushu/i = n then
b:=b+1;
end if;
end loop;
end loop;
if b>=1 then dbms_output.put_line('不是');
else dbms_output.put_line('是');
end if;
end;