set serveroutput on
accept num prompt ''請輸入一個數字;
declare
pnum number:=#
begin
if pnum = 0 then dbms_output.put_line('您輸入的數字是0');
elsif pnum =1 then dbms_output.put_line('您輸入的是1');
elsif pnum =2 then dbms_output.put_line('您輸入的是2 ');
else dbms_output.put_line('其他數字');
end if;
end;
set serveroutput on
declare
emp_rec emp%rowtype;
begin
select * into emp_rec emp where empno=7839;
dbms_output.put_line(emp_rec.ename||'的薪水是'||emp_rec.sal);
end;
set serveroutput on
declare
pename emp.ename%type;
psal emp.sal%type;
begin
select ename,sal into pename,psal from emp where empno=7839;
dbms_output.put_line(pename||'的薪水是'||psal);
end;
set serveroutoput on
declare
cursor cemp is select empname empjal from emp
pempno emp.empno% type;
pempname emp.empname%type ;
begin
--打開光標
open cmep ;
