testthreshold.sql

来自「pl/sql中记log的函数」· SQL 代码 · 共 24 行

declare
pCTX PLOG.LOG_CTX := PLOG.init ( pSECTION => 'testThreshold',
     pLEVEL => PLOG.LDEBUG,
     pLOG4J => TRUE,
     pLOGTABLE => TRUE,
     pOUT_TRANS => TRUE,
     pALERT => FALSE,
     pTRACE => FALSE,
     pDBMS_OUTPUT => TRUE);
loopCount INTEGER := 1;
begin
while loopCount <= 5 loop
	pCTX.DBMS_PIPE_NAME := 'THRESHOLD_TEST' || TO_CHAR(loopCount);
	PLOG.DEBUG  (pCTX, 'this is a test debug message');
	PLOG.INFO   (pCTX, 'this is a test info message');
	PLOG.WARN   (pCTX, 'this is a test warning message');
	PLOG.ERROR  (pCTX, 'this is a test error message');
	PLOG.FATAL  (pCTX, 'this is a test fatal message');
	loopCount := loopCount + 1;
end loop;
end;
/
exit;