Oracle存储过程-写法实例
总结项目中写的存储过程例子：

Oracle存储过程基本语法 存储过程
　　1  CREATE OR REPLACE PROCEDURE 存储过程名

　　2  IS/AS

　　3  BEGIN

　　4  NULL;

　　5  EXCEIPTION;

　　6  END;

1、创建存储过程，后面可用is或者as：
create or replace procedure PRO_COMPLAIN_TEMPLATE as

2、定义变量，此处用到了%TYPE和%ROWTYPE，参考http://johnny-gz.iteye.com/blog/1726305，另外定义了一个游标，TEM_INSTANCE TEMPLATE_CUR%ROWTYPE这个类型定义必须要在游标定义之后：
NEED_DO_FOR_ZL INTEGER;
CURRENT_MAX_ID MEMO_TEMPLET.TEMPLET_ID%TYPE;
CURSOR TEMPLATE_CUR IS SELECT TEMPLET_NAME, TEMPLET_CONTENT FROM SYS_COMPLAINT_TEMPLET;
TEM_INSTANCE TEMPLATE_CUR%ROWTYPE;
3、begin开始块：
begin
4、该插入语句使用了DBLINK，还有使用DBMS_OUTPUT.put_line('打印信息')进行信息输出：
  insert into MEMO_TEMPLET (TEMPLET_ID, TEMPLET_CONTENT, TEMPLET_TYPE, TEMPLET_MEMO) (SELECT * FROM MEMO_TEMPLET@COMPANY);

  SELECT COUNT(*) INTO NEED_DO_FOR_ZL FROM SYS_COMPLAINT_TEMPLET;
  IF(NEED_DO_FOR_ZL > 0) THEN
  DBMS_OUTPUT.put_line('打印信息');
    SELECT MAX(TEMPLET_ID)+1 INTO CURRENT_MAX_ID FROM MEMO_TEMPLET;
    DBMS_OUTPUT.put_line('MEMO_TEMPLET最大ID' || CURRENT_MAX_ID);
    FOR TEM_INSTANCE IN TEMPLATE_CUR LOOP
      INSERT INTO MEMO_TEMPLET (TEMPLET_ID, TEMPLET_CONTENT, TEMPLET_TYPE, TEMPLET_MEMO) VALUES (CURRENT_MAX_ID, TEM_INSTANCE.TEMPLET_CONTENT, '7', NULL);
      CURRENT_MAX_ID := CURRENT_MAX_ID + 1;
      DBMS_OUTPUT.put_line(TEM_INSTANCE.TEMPLET_CONTENT);
    END LOOP;
  END IF;
  COMMIT;
4、exception块，使用WHEN OTHERS THEN，其中用raise可显示错误信息：
exception
WHEN OTHERS THEN
  DBMS_OUTPUT.put_line('sqlcode : ' ||sqlcode);
  raise;
  ROLLBACK;
  IF TEMPLATE_CUR%ISOPEN THEN
  CLOSE TEMPLATE_CUR;
  END IF;
  DBMS_OUTPUT.put_line('打印信息');
end;

注：关于游标的使用，如果像本例中使用for循环去遍历游标的话则不需要显式的去用open/close cursor打开和关闭游标，此处会自己处理，如果使用fetch into的话就需要显式开关游标，另外任意执行一个update操作，用隐式游标sql的属性%found,%notfound,%rowcount,%isopen观察update语句的执行情况，也可以使用来判断游标状态，如IF TEMPLATE_CUR%ISOPEN THEN。
我的异常网推荐解决方案：oracle存储过程,http://www.aiyiweb.com/oracle-develop/177537.html