# LDora600.ctl: Collects ORA-600 Reports
# $Id: LDora600.ctl,v 1.4 2013/10/30 07:18:24 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/DB/LDora600.ctl,v 1.4 2013/10/30 07:18:24 RDA Exp $
#
# Change History
# 20130821  KRA  Improve abbreviation management.

=head1 NAME

DB:LDora600 - Collects ORA-600 Reports

=head1 DESCRIPTION

=head2 ora600 - ORA-600 Tool

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

=cut

# Set the abbreviation
call setAbbr('DB_ORA600_')

# Get available reports
debug ' Inside LOAD module, gathering ORA600 reports'
report ora600
var ($pat,%ana,%trc) = ('Information Taken from ')
loop $ana (grepDir(${OUT.C},\
  concat('^',${CUR.W_PREFIX},'p\d+_summary\.htm$'),'i'))
{# Get the trace name file
 var ($pid) = match($ana,'p(\d+)_summary\.htm$',true)
 var $trc = concat(${CUR.W_PREFIX},'p',$pid,'_header.txt')
 var ($lin) = grepFile(catFile(${OUT.C},$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
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, 2016, Oracle and/or its affiliates. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle and Java are registered trademarks of Oracle and/or its
affiliates. Other names may be trademarks of their respective owners.

=cut