ORCL_PROC

转载于： http://www.cnblogs.com/hero4china/articles/base_rule_oracle_procedure.html

--遍历游标处理后更新到表。遍历游标有几种方法，用for语句是其中比较直观的一种。

 
FOR rec IN cur_1 LOOP 
  UPDATE 表名
  SET rmb_amt_sn = rec.rmb_amt_sn,usd_amt_sn = rec.usd_amt_sn 
   WHERE area_code = rec.area_code 
   AND CMCODE = rec.CMCODE 
   AND ym = is_ym; 
END LOOP; 

COMMIT; 

 

--错误处理部分。OTHERS表示除了声明外的任意错误。SQLERRM是系统内置变量保存了当前错误的详细信息。 

EXCEPTION 

   WHEN OTHERS THEN 
      vs_msg := 'ERROR IN xxxxxxxxxxx_p('||is_ym||'):'||SUBSTR(SQLERRM,1,500);

 
   ROLLBACK; 

   --把当前错误记录进日志表。 

   INSERT INTO LOG_INFO(proc_name,error_info,op_date) 
   VALUES('xxxxxxxxxxx_p',vs_msg,SYSDATE); 
   COMMIT; 
   RETURN; 

END;

以下： http://blog.csdn.net/x125858805/article/details/7581806

 

3. CREATE OR REPLACE PROCEDURE CHANGE_SALARY(P_EMPNO IN NUMBER DEFAULT 7788,P_RAISE NUMBER DEFAULT 10)   
6.         AS  
7.          V_ENAME VARCHAR2(10);   
8. V_SAL NUMBER(5);   
9.         BEGIN  
10.         SELECT ENAME,SAL INTO V_ENAME,V_SAL FROM EMP WHERE EMPNO=P_EMPNO;   
11.          UPDATE EMP SET SAL=SAL+P_RAISE WHERE EMPNO=P_EMPNO;   
12.          DBMS_OUTPUT.PUT_LINE('雇员'||V_ENAME||'的工资被改为'||TO_CHAR(V_SAL+P_RAISE));   
13. COMMIT;   
14.         EXCEPTION   
15.          WHEN OTHERS THEN  
16.         DBMS_OUTPUT.PUT_LINE('发生错误，修改失败！');   
17.         ROLLBACK;   
18.         END;  

EXECUTE CHANGE_SALARY(7788,80)  

 

EXECUTE CHANGE_SALARY(P_RAISE=>80,P_EMPNO=>7788);

累了 明天看