Regular expression search in Oracle PL/SQL source code

regex_search.sql

-- Find first occurence of NEXTVAL case-insensitive and deliver the line of occurrence and the lines around it.
WITH found AS (
  SELECT owner, name, type, line FROM all_source
   WHERE owner = 'GSMADMIN_INTERNAL'
     AND regexp_instr(text, 'NEXTVAL',1,1,0,'i') > 0
)
SELECT a.*
  FROM all_source a, found
 WHERE a.owner = found.owner
   AND a.name  = found.name
   AND a.type  = found.type
   AND a.line BETWEEN found.line-1 AND found.line+1
;