--一个简单输出字符串的pl/sql语句
create or replace procedure smpl_output is
begin
--Hello World!必须用单引号，
--是字符，不是字符串
dbms_output.put_line('Hello World!');
end;

sql>set serveroutput on;--设置可以输出
sql>exec smpl_output;--i调用存储过程

===第二个例子（有定义部分和执行部分），这个是基于Oracle中自带的emp==

--有定义和执行部分的存储过程
declare
--定义变量
v_ename varchar2(5);
begin
--执行部分，&是一个地址符表示用户输入员工工号给no后就将该值传递给empno了
select ename into v_ename from emp where empno=&no;
--在控制台上输出用户名
dbms_output.put_line('用户名:'||v_ename);
end;

==第三个例子输入工号，输出员工姓名和薪资（此处限定返回的结果集只是一条，如果是多条的话，就必须使用游标了）==

--有定义和执行部分的存储过程
--输入员工工号，就可以从emp表中查出员工姓名和员工薪资
--并输出查询到的员工姓名和薪资
declare
--定义部分
v_ename varchar2(5);
v_sal number(7,2);
begin
--执行部分
select ename,sal into v_ename,v_sal from emp where empno=&no;
--输出员工姓名和薪资到控制台
dbms_output.put_line('员工姓名：'||v_ename||'，员工薪资：'||v_sal);
end;

==第四部分，关于例外处理，有时候，操作如果没有按正常的控制结构走，出现了例外，而我们刚好有一些特殊的业务逻辑放到例外中处理很合适=

--有定义、执行部分及例外处理部分的存储过程
--输入员工工号，就可以从emp表中查出员工姓名和员工薪资
--并输出查询到的员工姓名和薪资
declare
--定义部分
v_ename varchar2(5);
v_sal number(7,2);
begin
--执行部分
select ename,sal into v_ename,v_sal from emp where empno=&no;
--输出员工姓名和薪资到控制台
dbms_output.put_line('员工姓名：'||v_ename||'，员工薪资：'||v_sal);
--异常处理部分
exception
--如果找不到数据
when no_data_found then
--就输出错误信息！
dbms_output.put_line('找不到数据！');
end;