例如如下 存储过程包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;
/
--结算
--***********************************************
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;
/
PROCEDURE TKSP_ACC_BALANCE_FIRST;
end TK_CEN_ACC;