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（参考http://johnny-gz.iteye.com/blog/1726028
），还有使用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);
  DBMS_OUTPUT.put_line('sqlerrm : ' || sqlerrm);
  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。


存储过程调用：
参数对应，最后两个为输出参数，如果要挪动参数位置，则写  参数名=>参数值
declare
  p_CallTime VARCHAR2(255);  
  p_SerialId VARCHAR2(255);  
  p_SystemNo VARCHAR2(255);   
  p_BusinessType VARCHAR2(255); 
  p_TaskType VARCHAR2(255);  
  p_TaskId VARCHAR2(255);   
  p_CustId VARCHAR2(255); 
  p_Phone VARCHAR2(255);      
  p_Content VARCHAR2(255);
  p_AgentName VARCHAR2(255);   
  p_ProdCode VARCHAR2(255);     
  p_SMachineID VARCHAR2(255);     
  p_InfoRecordID VARCHAR2(255);   
  p_RetCode varchar2(255);
  p_RetInfo varchar2(255); 
begin
  p_CallTime:='2013-03-29 14:22:44';
  p_SerialId:='E11122';
  p_SystemNo:='MDKT';
  p_BusinessType:='14';
  p_TaskType:='4';
  p_TaskId:='T332133';
  p_CustId:='C44332211';
  p_Phone:='15999979607';
  p_Content:='test';
  p_AgentName:='admin';
  p_ProdCode:=p_SystemNo;
  p_SMachineID:='M2334343';
  p_InfoRecordID:=p_TaskId;
  P_Create_Callback_Task_Ocs(p_CallTime, p_SerialId, p_SystemNo, p_BusinessType, p_TaskType, p_TaskId, p_CustId, p_Phone, p_Content, p_AgentName, p_ProdCode, p_SMachineID, p_InfoRecordID, p_RetCode, p_RetInfo);
  Dbms_Output.put_line(p_RetCode || '---' || p_RetInfo);
end;