一、创建

在SQLPLUS命令行界面创建存储过程：

SQL> create or replace procedure add_ord(p_ordid number,p_orddate date,p_custid
number,p_shipdate date,p_total number)
  2  is
  3  e_integrity exception;
  4  e_shipdate exception;
  5  pragma exception_init(e_integrity,-2291);
  6  begin
  7  if p_shipdate >= p_orddate then
  8  insert into ord values(p_ordid,p_orddate,p_custid,p_shipdate,p_total);
  9  dbms_output.put_line('operaton success');
10  else
11  raise e_shipdate;
12  end if;
13  exception
14  when dup_val_on_index then
15  raise_application_error(-20001,'the order has already exist');
16  when e_integrity then
17  raise_application_error(-20002,'the customer does not exist');
18  when e_shipdate then
19  raise_application_error(-20003,'delivery date can not earlier than the orde
r date');
20  end;
21  /

过程已创建。

二、运行

如果要在屏幕上显示出“dbms_output.put_line”中的字符串，则需要做一些设置，如下：

SQL> show serveroutput
serveroutput OFF
SQL> set serveroutput on
SQL> show serveroutput
serveroutput ON SIZE UNLIMITED FORMAT WORD_WRAPPED

紧接着在SQLPLUS中输入“EXEC”命令执行存储过程，如下：

SQL> exec add_ord(600,'02-1月-11',215,'10-1月-11',100)
operaton success

PL/SQL 过程已成功完成。

三、调试

很多时候写存储过程的时候不可能一次就编译成功的，会出现各种各样的问题，这个时候就需要程序员耐心的进行调试，在SQLPLUS中有一个命令show error可以帮助程序员找到错误的地方,假如我们把刚刚的那个例子的最后一个封号去掉看一下会报什么错。如下：

警告: 创建的过程带有编译错误。

SQL> show error
PROCEDURE ADD_ORD 出现错误:

LINE/COL ERROR
-------- -----------------------------------------------------------------
20/3     PLS-00103: 出现符号 "end-of-file"在需要下列之一时：
         ; <an identifier>
         <a double-quoted delimited-identifier> delete exists prior
         <a single-quoted SQL string>
         符号 ";" 被替换为 "end-of-file" 后继续。

找到错误，修改一下，加上个封号就OK了，当然调试的问题难易程度不同这只是举个简单的例子。重新编译一个存储过程可以用这个语句：

alter procedure prodedure_name compile;

四、查看

要想在SQLPLUS中查看已经存在的存储过程，需要写如下的一个SQL语句：

SQL> select text from all_source where name='ADD_ORD';

TEXT
--------------------------------------------------------------------------------

procedure add_ord(p_ordid number,p_orddate date,p_custid number,p_shipdate date,

p_total number)

is
e_integrity exception;
e_shipdate exception;
pragma exception_init(e_integrity,-2291);
begin
if p_shipdate >= p_orddate then
insert into ord values(p_ordid,p_orddate,p_custid,p_shipdate,p_total);
dbms_output.put_line('operation success');

TEXT
--------------------------------------------------------------------------------

else
raise e_shipdate;
end if;
exception
when dup_val_on_index then
raise_application_error(-20001,'the order has already exist');
when e_integrity then
raise_application_error(-20002,'the customer does not exist');
when e_shipdate then
raise_application_error(-20003,'delivery date can not earlier than the order dat

e');

TEXT
--------------------------------------------------------------------------------


end

已选择20行。



五、删除

最后一步了，就是%Pv