The following lines contain the word 'select', 'insert', 'update' or 'delete':
JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
sqltxt := 'SELECT a.SESSION_ID,b.serial#,b.status,c.object_name,a.ORACLE_USERNAME,'||
' a.OS_USER_NAME,a.PROCESS FROM v$locked_object a, v$session b, all_objects c '||
' WHERE c.OBJECT_NAME LIKE ''BSC%'' AND c.OBJECT_ID=a.OBJECT_ID AND b.sid=a.SESSION_ID'||
' AND c.OWNER = '''|| l_oracle_schema||'''';
sqltxt := 'SELECT * FROM BSC_CURRENT_SESSIONS';
sqltxt := 'SELECT * FROM bsc_sys_init ';
sqltxt := 'SELECT * FROM BSC_MESSAGE_LOGS ';