Oracle中调用带有返回参数的存储过程

--创建测试表

create table EMP (EMPNO number , ENAME varchar2(32) );

insert into EMP (EMPNO ,ENAME) values (10,'张三');

insert into EMP (EMPNO ,ENAME) values (20,'小马');

insert into EMP (EMPNO ,ENAME) values (30,'小米');

insert into EMP (EMPNO ,ENAME) values (40,'小明');

--创建存储过程

 CREATE OR REPLACE PROCEDURE PROC_TEST(V_STR      IN VARCHAR,
                                      UPD_ROWS   OUT NUMBER,
                                      INSET_ROWS OUT NUMBER) IS

  UPDATE_ROWS NUMBER(10) := 0;
  INSERT_ROWS NUMBER(10) := 0;
  CURSOR CURSOR_EMP IS
    SELECT EMPNO, ENAME FROM EMP;
  CUR_EMP_OBJ CURSOR_EMP%ROWTYPE;
BEGIN
  ---循环的第一种写法
  FOR CUR_EMP_OBJ IN CURSOR_EMP LOOP
 
    UPDATE EMP E
       SET E.ENAME = E.ENAME || '1'
     WHERE E.EMPNO = CUR_EMP_OBJ.EMPNO;
     
    UPDATE_ROWS := UPDATE_ROWS + 1;
  END LOOP;

  UPD_ROWS   := UPDATE_ROWS;--返回更新的条数
  INSET_ROWS := 10; --返回插入的条数

  DBMS_OUTPUT.PUT_LINE('UPDATE_ROWS:' || UPDATE_ROWS);
  COMMIT;
  --异常处理
EXCEPTION
  WHEN OTHERS THEN
    BEGIN
      ROLLBACK;
      RAISE_APPLICATION_ERROR(-20002,
                              '执行异常：' || SQLCODE || '],原始错误信息是[' || SQLERRM || '].');
    END;
END;

--调用测试存储过程方法一在commnd 窗口中执行

SQL> set serveroutput on
SQL> var return_up_rows number;
SQL> var return_inset_rows number;
SQL> exec  PROC_TEST('AAAA',:return_up_rows,:return_inset_rows);

--调用测试存储过程方法二

DECLARE
  V_STR             VARCHAR2(10) := 'AAA';
  RETURN_UP_ROWS NUMBER(10);
  RETURN_INSET_ROWS NUMBER(10);
BEGIN

  PROC_TEST(V_STR,RETURN_UP_ROWS, RETURN_INSET_ROWS);
 
  DBMS_OUTPUT.PUT_LINE('更新条数：' || RETURN_UP_ROWS);
  DBMS_OUTPUT.PUT_LINE('插入条数：' || RETURN_INSET_ROWS);
END;