Oracle带输入、输出参数的存储过程返回受影响的行数SQL%ROWCOUNT


		Oracle带输入、输出参数的存储过程返回受影响的行数SQL%ROWCOUNT
 
[sql] 
CREATE OR REPLACE PROCEDURE PROC_UPDATE_TEMP(P_DAYS       IN NUMBER, --执行天数  
                                             P_ROWS       OUT VARCHAR2, --返回受影响的行数  
                                             P_IS_SUCCESS OUT BOOLEAN) --返回成功与否  
 AS  
  V_NOW        DATE := TRUNC(SYSDATE);  
  V_BEGIN_DATE DATE;  
  V_SECOND     NUMBER;  
  I            INT := 0;  
  
BEGIN  
  
  /*  WHILE I < P_DAYS LOOP  
    UPDATE T_TEMP  
       SET TEMP_STATUS = '01', TEMP_FLAG = '0'  
     WHERE CREATE_TIME >= V_NOW - I  
       AND CREATE_TIME < V_NOW + 1 - I;  
    COMMIT;  
    I = I + 1;  
  END LOOP;*/  
  
  FOR I IN 0 .. P_DAYS LOOP  
    BEGIN  
      V_BEGIN_DATE := SYSDATE;  
      UPDATE T_TEMP  
         SET TEMP_STATUS = '01', TEMP_FLAG = '0'  
       WHERE CREATE_TIME >= V_NOW - I  
         AND CREATE_TIME < V_NOW + 1 - I;  
      P_IS_SUCCESS := TRUE;  
      V_SECOND     := (SYSDATE - V_BEGIN_DATE) * 24 * 60 * 60;  
      --返回受影响的行数：SQL%ROWCOUNT  
      P_ROWS := SQL%ROWCOUNT || '行被更新，耗时：' || TRUNC(V_SECOND, 2) || '秒';  
      DBMS_OUTPUT.PUT_LINE(P_ROWS);  
      
      COMMIT;  
    EXCEPTION  
      WHEN NO_DATA_FOUND THEN  
        NULL;  
        P_IS_SUCCESS := FALSE;  
    END;  
  END LOOP;  
END PROC_UPDATE_TEMP;  
[sql] 
--调用存储过程  
DECLARE  
  -- Boolean parameters are translated from/to integers:   
  -- 0/1/null <--> false/true/null   
  P_IS_SUCCESS BOOLEAN;  
  P_ROWS       VARCHAR2(200);  
BEGIN  
  -- Call the procedure  
  PKG_STL_UPDATE_BILL_DATA.PROC_STL_UPDATE_TRUNC(P_DAYS       => 0,  
                                                 P_ROWS       => P_ROWS,  
                                                 P_IS_SUCCESS => P_IS_SUCCESS);  
  -- Convert false/true/null to 0/1/null   
  --:P_IS_SUCCESS := SYS.DIUTIL.BOOL_TO_INT(P_IS_SUCCESS);  
  dbms_output.put_line(P_ROWS);  
  dbms_output.put_line(SYS.DIUTIL.BOOL_TO_INT(P_IS_SUCCESS));  
END;  
[sql] 
--SQL%ROWCOUNT用法  
BEGIN  
  UPDATE T_JOB T SET T.JOB_ID = NULL WHERE T.ID = '2013';  
  
  IF (SQL%ROWCOUNT != 1) THEN  
    RAISE_APPLICATION_ERROR(-20001, '没有成功修改到记录');  
  END IF;  
END;