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;