Need a procedure to check reserve words are in uppercase or not?

Question

Hi All,
i am using oracle 11g,
my question is  i wanted to create procudure and i  am passing a sql query as input parameter  and there i am using lots of oracle reserve keywords. but i need to check if  those reserve keywords are  not in uppercase
it should show error message and error line.  suppose my query is like below and it should show which line error is?
SELECT FINDING_LEVEL_ID 
,PROTOCOL_SETUP_ID
,FLV_LAST_MODIFIED_BY
,FLV_LAST_MODIFIED_ON
  FROM empb
Where EXISTS (SELECT 1
          FROM dept  a
         Where a.PROTOCOL_SETUP_ID = b.PROTOCOL_SETUP_ID
           AND PROTOCOL_LAST_MODIFIED_ON >
               to_date(ms_sra_get_max_date_fnc('N'
                                              ,'SGMGBI')
                      ,'DD-MON-YYYY HH24:MI:SS'));
suppose error is there in where key word  so it should show errorline and error message, but error message is common for every line.
please help me
Thanks
Damby

Answer 1

913349 wrote:
Hello Ramin,
but i need as dyanamic,i cant write always select exist from dual or select 'select' where  from dual .
anyway i need to pass as parameter.
Thanks
Damby
I don't read other posts , I gave you only example... If you have table  with this words you should replace RS to your table name. And write pl/sql code for procedure.
with rs(a) as
select 'WHERE' FROM DUAL UNION ALL
select 'FROM' FROM DUAL UNION ALL
select 'EXISTS' FROM DUAL UNION ALL
select 'SELECT' FROM DUAL
select a.a,
       substr(s,REGEXP_instr(upper(s),a,1,column_value),length(a)) error_word,
       REGEXP_instr(upper(s),a,1,column_value) err_line
from(
select rownum n, q.*, rs.*, regexp_count(upper(q.s), rs.a) cnt from (    
select
'SELECT FINDING_LEVEL_ID,
       PROTOCOL_SETUP_ID,
       FLV_LAST_MODIFIED_BY,
       FLV_LAST_MODIFIED_ON
  froM empb
Where exists (SELECT 1
          FROM dept a
         Where a.PROTOCOL_SETUP_ID = b.PROTOCOL_SETUP_ID
           AND PROTOCOL_LAST_MODIFIED_ON > to_date(ms_sra_get_max_date_fnc(''N'', ''SGMGBI''),''DD-MON-YYYY HH24:MI:SS''));' s
           from dual) q, RS) a, table(select collect(rownum) from dual connect by level <= a.cnt)
where a != substr(s,REGEXP_instr(upper(s),a,1,column_value),length(a))
A
ERROR_WORD
ERR_LINE
WHERE
Where
121
WHERE
Where
175
FROM
froM
111
EXISTS
exists
127
Ramin Hashimzade