258:
259:
260: IF(TRACE_TYPE < 20) THEN -- < 20 reserved for sql trace levels
261:
262: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,TRACE_TYPE,'');
263:
264: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928) OR (TRACE_TYPE=10941)) THEN
265: DBMS_SYSTEM.SET_EV(SESSION_ID_G,SERIAL#_G,TRACE_TYPE,1,'');
266: ELSE
261:
262: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,TRACE_TYPE,'');
263:
264: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928) OR (TRACE_TYPE=10941)) THEN
265: DBMS_SYSTEM.SET_EV(SESSION_ID_G,SERIAL#_G,TRACE_TYPE,1,'');
266: ELSE
267: null;
268: -- log message , should never fall thru to this branch.
269: END IF;
317:
318:
319: IF(TRACE_TYPE < 20) THEN -- < 20 reserved for sql trace levels
320:
321: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,0,'');
322: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928)) THEN
323: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,0,'');
324: ELSIF (TRACE_TYPE=10941) THEN
325: -- level 8 stands for "Store data in db and Stop"
319: IF(TRACE_TYPE < 20) THEN -- < 20 reserved for sql trace levels
320:
321: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,0,'');
322: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928)) THEN
323: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,0,'');
324: ELSIF (TRACE_TYPE=10941) THEN
325: -- level 8 stands for "Store data in db and Stop"
326: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,8,'');
327:
322: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928)) THEN
323: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,0,'');
324: ELSIF (TRACE_TYPE=10941) THEN
325: -- level 8 stands for "Store data in db and Stop"
326: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,8,'');
327:
328: END IF;
329:
330: END;
384: TRACE_ON BOOLEAN;
385: BEGIN
386:
387: IF(TRACE_TYPE < 20) THEN
388: DBMS_SYSTEM.READ_EV(10046,EVENT_LEVEL);
389: ELSIF TRACE_TYPE=10941 THEN
390: IF PROF_FLAG='Y' THEN
391: EVENT_LEVEL:=1;
392: ELSE
392: ELSE
393: EVENT_LEVEL:=0;
394: END IF;
395: ELSE
396: DBMS_SYSTEM.READ_EV(TRACE_TYPE,EVENT_LEVEL);
397: END IF;
398:
399: IF EVENT_LEVEL > 0 THEN
400: TRACE_ON:= TRUE;
409: EVENT_LEVEL NUMBER:=0;
410: BEGIN
411:
412: IF(TRACE_TYPE < 20) THEN
413: DBMS_SYSTEM.READ_EV(10046,EVENT_LEVEL);
414: ELSIF TRACE_TYPE=10941 THEN
415: IF PROF_FLAG='Y' THEN
416: EVENT_LEVEL:=1;
417: ELSE
417: ELSE
418: EVENT_LEVEL:=0;
419: END IF;
420: ELSE
421: DBMS_SYSTEM.READ_EV(TRACE_TYPE,EVENT_LEVEL);
422: END IF;
423:
424: RETURN EVENT_LEVEL;
425: