prompt Spooling to wsgimtl.log

column LABEL new_value LABEL_VALUE noprint 
column TEXT format A50 word_wrap 
column TYPE format A2
column POSITION heading 'COL' format 999
column LINE format 99999
define LABEL_VALUE = 'There were no errors'
set    feedback off
set    linesize 96

spool wsgimtl.log
@@wsgimtl.pks
@@wsgimtl.pkb

ttitle skip 2 center 'Webserver Generator interMedia Text Library Compilation Report' skip 1 -
              center '--------------------------------------------------------------' skip 1

set heading off
select null from dual
/
ttitle off
set heading on
break on name on type

select
  '' LABEL,
  name,
  decode (type,'PACKAGE BODY','PB','PACKAGE SPEC','PS',type) TYPE,
  line, 
  position,
  text
from
  user_errors
where
  name = 'WSGOCOL'
order by
  NAME,
  TYPE,
  SEQUENCE
/

set scan on
prompt &&LABEL_VALUE
prompt

spool off
--exit
rem  
rem ----------------------------------------------------------------------------
rem $$Header_is_done
rem  End of file $RCSfile: WSGIMTL.SQL $
rem ----------------------------------------------------------------------------

