日志

--日志

PROCEDURE WRITE_ETL_LOG(I_V_DATE_NUM IN NUMBER,
I_V_START_TIME IN CHAR,
I_V_STOP_TIME IN CHAR,
I_V_STATUS IN NUMBER,
I_V_SUBSYS_CODE IN NUMBER,
I_V_PROG_NAME IN VARCHAR2,
I_V_ERR_CODE IN VARCHAR2,
I_V_ERR_MSG IN VARCHAR2,
I_V_RMK IN VARCHAR2) IS
V_LOG_ID NUMBER(32);
BEGIN
SELECT SEQ_ETL_LOG.NEXTVAL INTO V_LOG_ID FROM DUAL;

INSERT INTO RPT_ETL_LOG
(LOG_ID,
DT_KEY,
START_TM,
STOP_TM,
STT_CODE,
SUBSYS_CODE,
PRG_NM,
ERR_CODE,
ERR_MSG,
RMK)
VALUES
(V_LOG_ID,
I_V_DATE_NUM,
TO_DATE(I_V_START_TIME, 'YYYYMMDDHH24MISS'),
TO_DATE(I_V_STOP_TIME, 'YYYYMMDDHH24MISS'),
I_V_STATUS,
I_V_SUBSYS_CODE,
I_V_PROG_NAME,
I_V_ERR_CODE,
I_V_ERR_MSG,
I_V_RMK);

COMMIT;

EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END WRITE_ETL_LOG;