Try following ...

  SELECT    DECODE(TO_CHAR(us.line), '1', ue.text||'  
                               Pkg:'||us.name||chr(10)||chr(10)||
                             '   '||TO_CHAR(us.line,'99990')||' '||us.text,
                         TO_CHAR(ue.line-7),ue.text||'   Pkg:'||us.name||'
',
                         TO_CHAR(ue.line-6),'',
                         TO_CHAR(ue.line+6),'',
                         TO_CHAR(ue.line)  ,'-->'||TO_CHAR(us.line,'99990')
                                                     ||' '||us.text
                                           ,'   '||TO_CHAR(us.line,'99990')
                                                     ||' '||us.text) outline
  FROM USER_SOURCE us, USER_ERRORS ue
  WHERE us.line BETWEEN (ue.line-7) AND (ue.line+6)
  AND us.name = ue.name
  AND us.TYPE = ue.TYPE
  AND ue.text NOT LIKE 'PL/SQL: Statement ignored'
  AND ue.text NOT LIKE 'PL/SQL: Declaration ignored'
  ORDER BY ue.name, ue.line, ue.text, us.line
/

I think this is somewhere written in TOAD installation too.
Raj
______________________________________________________
Rajendra Jamadagni              MIS, ESPN Inc.
Rajendra dot Jamadagni at ESPN dot com
Any opinion expressed here is personal and doesn't reflect that of ESPN Inc.

QOTD: Any clod can have facts, but having an opinion is an art!

*********************************************************************1

This e-mail message is confidential, intended only for the named recipient(s) above 
and may contain information that is privileged, attorney work product or exempt from 
disclosure under applicable law. If you have received this message in error, or are 
not the named recipient(s), please immediately notify corporate MIS at (860) 766-2000 
and delete this e-mail message from your computer, Thank you.

*********************************************************************1

Reply via email to