log file oracle
CREATE OR REPLACE PROCEDURE "WRITELOG" (LOGLEVEL IN VARCHAR2, LOGCONTEXT IN VARCHAR2, LOGMESSAGE IN VARCHAR2) AUTHID CURRENT_USER AS F1 UTL_FILE.FILE_TYPE; PRAGMA AUTONOMOUS_TRANSACTION; LOG_DIR VARCHAR2; LOG_FILENAME VARCHAR2; BEGIN LOG_DIR := 'MYLOG_DIR'; LOG_FILENAME := 'mylog'; F1 := UTL_FILE.FOPEN(LOG_DIR, TO_CHAR(SYSDATE,'YYYY-MM-DD') || '_' || LOG_FILENAME ||'.log','a'); UTL_FILE.PUT_LINE(F1, TO_CHAR(SYSDATE,'DD-MM-YYYY HH:MI:SS AM') || ' - [' || LOGLEVEL || '] ' || LOGCONTEXT || ': ' || LOGMESSAGE); UTL_FILE.FCLOSE(F1); EXCEPTION WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE('ERROR: ' || TO_CHAR(SQLCODE) || SQLERRM); IF UTL_FILE.IS_OPEN(F1) THEN UTL_FILE.FCLOSE(F1); END IF; END;
