diff --git a/PRS/PRS_PAC.SRC b/PRS/PRS_PAC.SRC index 5f295a4f..97d0390e 100644 --- a/PRS/PRS_PAC.SRC +++ b/PRS/PRS_PAC.SRC @@ -2881,9 +2881,6 @@ AS PROCEDURE personen_vervangers_schonen AS - v_errormsg VARCHAR2(1000); - oracle_err_num NUMBER; - oracle_err_mes VARCHAR2(200); v_count_del NUMBER(10); BEGIN v_count_del := 0; @@ -2893,16 +2890,10 @@ AS WHERE prs_collega_vervaldatum < TRUNC(SYSDATE); v_count_del := SQL%ROWCOUNT; - fac.writelog ('PRS_COLLEGA_SCHONEN', 'S', 'Vervangers/#geschoond: ' || TO_CHAR (v_count_del), ''); - COMMIT; - EXCEPTION - WHEN OTHERS + IF v_count_del > 0 THEN - oracle_err_num := SQLCODE; - oracle_err_mes := SUBSTR (SQLERRM, 1, 100); - v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; - fac.writelog ('PRS_COLLEGA_SCHONEN', 'E', v_errormsg, ''); - COMMIT; + fac.writelog ('PRS_COLLEGA_SCHONEN', 'S', 'Vervangers/#geschoond: ' || TO_CHAR (v_count_del), ''); + END IF; END; END prs;