# ORA6load.def: Collects ORA-600 Reports
# $Id: ORA6load.def,v 1.6 2008/02/25 17:32:55 mschenke Exp $
# ARCS: $Header: /home/cvs/repository/RDA_4/src/scripting/lib/modules/ORA6load.def,v 1.6 2008/02/25 17:32:55 mschenke Exp $
#
# Change History
# 20080225  MSC  Change the copyright notice.

=head1 NAME

ORA600load - Collects ORA-600 Reports

=head1 DESCRIPTION

=head2 ora600 - ORA-600 Tool

This module gathers reports generated by the ORA-600 tool.

=cut

debug ' Inside LOAD module, gathering ORA600 reports'

# Initialisation
var $RPT_DIRECTORY = getSetting('RPT_DIRECTORY')
var $RPT_GROUP     = getSetting('RPT_GROUP')

# Get available reports
var ($pat,%ana,%trc) = ('Information Taken from ')
loop $ana (grepDir($RPT_DIRECTORY,\
           concat('^',$RPT_GROUP,'_ORA600_\d+_summary.htm$'),'i'))
{# Get the trace name file
 var ($pid) = match($ana,'(\d+)_summary\.htm$',true)
 var $trc = concat($RPT_GROUP,'_ORA600_',$pid,'_header.txt')
 var ($lin) = grepFile(catFile($RPT_DIRECTORY,$trc),$pat,'f')
 var $src = field($pat,1,$lin)

 # Store the link when the trace file is found
 if $src
 {var $ana{$src} = $ana
  var $trc{$src} = replace($trc,'\.txt$','.htm')
 }
}

# Generate the report
report ora600
prefix
{write '---+ ORA-600 Execution Results'
 write '|*Analysis Report*|*Trace File*|'
}
loop $trc (keys(%trc))
 write '|[[',$ana{$trc},'][_blank][ORA-600 Analysis]]|[[',$trc{$trc},\
       '][_blank][',$trc,']]|'
if isCreated(true)
 toc '2:[[',getFile(),'][rda_report][ORA-600 Tool]]'

=head1 COPYRIGHT NOTICE

Copyright (c) 2002-2008, Oracle. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle, JD Edwards, PeopleSoft, and Siebel are registered trademarks of Oracle
Corporation and/or its affiliates. Other names may be trademarks of their
respective owners.

=cut