231:
232:
233: IF(TRACE_TYPE < 20) THEN -- < 20 reserved for sql trace levels
234:
235: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,TRACE_TYPE,'');
236:
237: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928) OR (TRACE_TYPE=10941)) THEN
238: DBMS_SYSTEM.SET_EV(SESSION_ID_G,SERIAL#_G,TRACE_TYPE,1,'');
239: ELSE
234:
235: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,TRACE_TYPE,'');
236:
237: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928) OR (TRACE_TYPE=10941)) THEN
238: DBMS_SYSTEM.SET_EV(SESSION_ID_G,SERIAL#_G,TRACE_TYPE,1,'');
239: ELSE
240: null;
241: -- log message , should never fall thru to this branch.
242: END IF;
290:
291:
292: IF(TRACE_TYPE < 20) THEN -- < 20 reserved for sql trace levels
293:
294: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,0,'');
295: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928)) THEN
296: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,0,'');
297: ELSIF (TRACE_TYPE=10941) THEN
298: -- level 8 stands for "Store data in db and Stop"
292: IF(TRACE_TYPE < 20) THEN -- < 20 reserved for sql trace levels
293:
294: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,10046,0,'');
295: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928)) THEN
296: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,0,'');
297: ELSIF (TRACE_TYPE=10941) THEN
298: -- level 8 stands for "Store data in db and Stop"
299: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,8,'');
300:
295: ELSIF ((TRACE_TYPE=10053) OR (TRACE_TYPE=10928)) THEN
296: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,0,'');
297: ELSIF (TRACE_TYPE=10941) THEN
298: -- level 8 stands for "Store data in db and Stop"
299: DBMS_SYSTEM.SET_EV(SESSION_ID,SERIAL#,TRACE_TYPE,8,'');
300:
301: END IF;
302:
303: END;
357: TRACE_ON BOOLEAN;
358: BEGIN
359:
360: IF(TRACE_TYPE < 20) THEN
361: DBMS_SYSTEM.READ_EV(10046,EVENT_LEVEL);
362: ELSIF TRACE_TYPE=10941 THEN
363: IF PROF_FLAG='Y' THEN
364: EVENT_LEVEL:=1;
365: ELSE
365: ELSE
366: EVENT_LEVEL:=0;
367: END IF;
368: ELSE
369: DBMS_SYSTEM.READ_EV(TRACE_TYPE,EVENT_LEVEL);
370: END IF;
371:
372: IF EVENT_LEVEL > 0 THEN
373: TRACE_ON:= TRUE;
382: EVENT_LEVEL NUMBER:=0;
383: BEGIN
384:
385: IF(TRACE_TYPE < 20) THEN
386: DBMS_SYSTEM.READ_EV(10046,EVENT_LEVEL);
387: ELSIF TRACE_TYPE=10941 THEN
388: IF PROF_FLAG='Y' THEN
389: EVENT_LEVEL:=1;
390: ELSE
390: ELSE
391: EVENT_LEVEL:=0;
392: END IF;
393: ELSE
394: DBMS_SYSTEM.READ_EV(TRACE_TYPE,EVENT_LEVEL);
395: END IF;
396:
397: RETURN EVENT_LEVEL;
398: