例如如下 存储过程包CREATE OR REPLACE PACKAGE BODY "TK_CEN_ACC" IS--***********************************************
--结算
--***********************************************
PROCEDURE TKSP_ACC_BALANCE_FIRST AS
   ERROR_NO NUMBER;
   ERROR_MSG VARCHAR2(200);BEGIN
  COMMIT;
  INSERT INTO ZY_CARD_SELL_ERR
         SELECT CARD_NO, CARD_SERIAL, CARD_TYPE, SELL_TIME, DEPT_NO, TERMINAL, OPCARD_NO, DEPOSIT, VALIDTIME_START, VALIDTIME_END, CARD_NAME, UNIT, ADDRESS, TEL, ID_NO, NOTE, BALANCE_FLAG, IS_DISPOSED, IS_ACC, TAC_CODE,SYSDATE, PAY_TYPE
   FROM ZY_CARD_SELL_TODAY A WHERE A.BALANCE_FLAG=0 AND EXISTS (SELECT * FROM ZY_CARD_SELL B WHERE A.CARD_NO=B.CARD_NO);
  DELETE ZY_CARD_SELL_TODAY A WHERE A.BALANCE_FLAG=0 AND EXISTS (SELECT * FROM ZY_CARD_SELL B WHERE A.CARD_NO=B.CARD_NO);    COMMIT;
  EXCEPTION
  WHEN OTHERS THEN
    ROLLBACK;
    ERROR_NO := SQLCODE;
    ERROR_MSG := SUBSTR(SQLERRM,1,100);
    INSERT INTO ZY_ERROR_INFO VALUES( 'TKSP_ACC_BALANCE_FIRST',SYSDATE,'(' || ERROR_NO || '):' || ERROR_MSG);
END;
END;
/