Automatic generation of AWR reports

Question

Hi,
How to schedule the automatic JOB to generate the AWR reports hourly basis. ( automatic comparing between 2 snapshots and then generate the text file).
Thanks in advance.

Answer 1

Hi,
If you want the report to be send to your mail through the ORACLE ENTERPRISE MANAGER than you have to write one perl script like below: Adjust statements and addresses as per your requirement.
The main views are:
dba_hist_snapshot & dba_hist_thread which are helping us in doing this.
Hope I answered your question
autoawr.pl :
# My perl script for automatically generating awr report
# By default, report is sent to DBA_EMAIL_LIST_RPT, unless
# it's overridden by ORA_SP_EMAIL_LIST_RPT
# 05/26/2006 - Changed snap level from 5 to 6
# exec statspack.snap(i_snap_level => 6, i_modify_parameter => 'true');
# NOTES
# FUTURE ENHANCEMENTS
# MODIFICATIONS
# $Log: spreport.pl,v $
# Revision 1.4 2003/09/02 21:33:14 oracle
# bugfix (instance_number)
# Revision 1.3 2003/08/26 19:13:22 oracle
# add ORA_SP_HACK1
# Revision 1.2 2003/08/26 18:54:09 oracle
# mod
# Revision 1.1 2003/08/26 17:19:58 oracle
# ic
# ----------------------- main processing -------------------------------------
# in case $0 is a full pathname, strip of the directory name
$progname = $0;
$progname =~ s/^.*\/// ;
$progdir=$0;
$progdir=~ s/\/[^\/]*$// ; if ($progdir eq $0) { $progdir='.'; }
# set prog to equal progname minus file extension and the "."
$prog=$progname;
$prog =~ s/(.*)\..*$/\1/;
$usage="Usage: $progname <dbname> [<report_begin_datetime in a format of '08/27/07 06:30'> <duration in minutes, at least 60>]\n" ;
if ( $#ARGV < 0 )
print $usage;
exit 1;
my @arglist=@ARGV;
$dbname=$ARGV[0];
shift;
if ( $#ARGV > -1) {
$report_user_specified_time="yes";
# $report_begin_datetime="$ARGV[0] $ARGV[1]";
$report_begin_date=$ARGV[0];
$report_begin_time=$ARGV[1];
$report_begin_datetime="$report_begin_date $report_begin_time";
$report_duration=$ARGV[2];
print "Boris: dbg> number of ARGV=$#ARGV, report_begin_datetime=$report_begin_datetime, report_duration=$report_duration\n";
# print "Boris: dbg> UserSpecifiedTime=$report_user_specified_time\n";
# ----------- PORTIBILITY: set envdir to the appropriate value
$envdir=$progdir;
$ENV{'ENV_FILE'}="$envdir/dba.env";
$ENV{'APP_NAME'}=$dbname;
# ----------- End of PORTIBILITY
# initialize execution environ.
require("$envdir/ld_env.pl");
require("$envdir/ora_common.pl");
$tm_start=`date`; chop $tm_start;
$tm_stamp=`date "+%Y%m%d"`; chop $tm_stamp;
$tm_stamp2=`date "+%Y%m%d_%H%M%S"`; chop $tm_stamp2;
# $ENV{'LD_ENV_DEBUG'}=1;
my $status=&ld_env;
# set up log file. If for some reason it's no good, set log file to /dev/null
$LOG_PREFIX="$ENV{'ORA_ADM_DIR'}/log/${prog}_${dbname}.log";
$LOGFILE="${LOG_PREFIX}.${tm_stamp}";
if (open(LOGFILE, ">>$LOGFILE") == 0)
print "Cannot open log $LOGFILE; discard log info \n";
open(LOGFILE, ">/dev/null");
if ( $status != 0 )
&abort($status, \*LOGFILE, "Failed to load environ: $LD_ENV_ERRMSG\n");
my $work_dir=$ENV{'DBA_WORK_DIR'};
if ($work_dir eq '') {
abort_auto(2, "Env var DBA_WORK_DIR not defined\n");
} else {
$status=`mkdir -p $work_dir`;
if ($status != 0) {
abort_auto($status, "mkdir -p $work_dir failed\n");
# ---- main processing
$RPT_PREFIX1="$ENV{'ORA_ADM_DIR'}/log/awr_ash/awr_${dbname}.rpt";
$RPTFILE1="${RPT_PREFIX1}.${tm_stamp2}";
$RPT_PREFIX2="$ENV{'ORA_ADM_DIR'}/log/awr_ash/ash_${dbname}.rpt";
$RPTFILE2="${RPT_PREFIX2}.${tm_stamp2}";
#### no need for a special/"perfstat" connection: $ENV{'ORA_CNCT_STR'}=get_env2('ORA_SP_CNCT_STR', 'perfstat/perfstat');
#### print "dbg> Connecting to the database as: $ENV{'ORA_CNCT_STR'}";
my $days_minus = get_env2('ORA_SP_DAYS_MINUS', 1);
### To avoid "ORA-20200: The instance was shutdown between snapshots x1 and x2", ensure that dba_hist_snapshot.startup_time is the same for min(snap_id) and max(snap_id)
### To avoid "ORA-20200: End Snapshot Id y1 must be greater than Begin Snapshot Id y1", take reporting time interval between 5am and 5pm
if ( $report_user_specified_time eq "yes") {
$awr_begin_date=$report_begin_date;
$awr_begin_time=$report_begin_time;
print "Boris: dbg> awr_begin_date=$awr_begin_date, awr_end_date=$awr_end_date, awr_begin_time=$awr_begin_time, awr_end_time=calculated...\n";
$fudge=5; # that's 5min
$sql="
select t.dbid, t.instance_number, min(s.snap_id), max(s.snap_id)
from dba_hist_snapshot s, dba_hist_thread t
where --
trunc(s.end_interval_time) = trunc(to_date('$awr_begin_date', 'MM/DD/YY'))
and to_char(s.end_interval_time+5/1440, 'HH24:MI') >= '$awr_begin_time'
and to_char(s.end_interval_time, 'SSSSS') <= (to_number(substr('$awr_begin_time', 1, 2))*60 + to_number(substr('$awr_begin_time', 4,2)) + $report_duration +$fudge)*60
and t.instance_number = sys_context('userenv', 'instance')
and t.instance_number = s.instance_number
and t.thread# = sys_context('userenv', 'instance')
and t.snap_id = s.snap_id
and t.dbid = s.dbid
group by t.dbid, t.instance_number, s.startup_time
order by t.dbid, t.instance_number, s.startup_time desc
else {
$awr_days_minus=$days_minus;
$awr_begin_time=4;
$awr_end_time=16;
print "Boris: dbg> awr_days_minus=$awr_days_minus, awr_begin_time=$awr_begin_time, awr_end_time=$awr_end_time\n";
$sql="
select t.dbid, t.instance_number, min(s.snap_id), max(s.snap_id)
from dba_hist_snapshot s, dba_hist_thread t
where trunc(s.begin_interval_time)= trunc(sysdate - $awr_days_minus )
and to_char(s.begin_interval_time, 'HH24') >= $awr_begin_time
and to_char(s.begin_interval_time, 'HH24') <= $awr_end_time
and t.instance_number = sys_context('userenv', 'instance')
and t.instance_number = s.instance_number
and t.thread# = sys_context('userenv', 'instance')
and t.snap_id = s.snap_id
and t.dbid = s.dbid
group by t.dbid, t.instance_number, s.startup_time
order by t.dbid, t.instance_number, s.startup_time desc
my @output ;
$status = run_query($sql, \@output);
if ( $status == 0 )
my $line = $output[0] ;
my ($id_dbid, $id_inst_num, $id_min, $id_max) = split(' ', $line);
print "Boris: dbg> Query output line=$line";
if ( $id_min eq '' || $id_max eq '' )
# not stats
&tee_auto("Error: can't determine min=$id_min and/or max=$id_max snap_id, days_minus=$days_minus, dbid=$id_dbid, inst#=$id_inst_num)\n");
exit;
else
&tee_auto("# generate sprpt for delta between snp_id '$id_min' and '$id_max' (days_minus='$days_minus')\n# f=$RPTFILE1\n");
if ( $report_user_specified_time eq "yes") {
$id_ash_begin_datetime="$report_begin_date $report_begin_time";
$id_ash_duration=$report_duration;
else {
$id_ash_begin_datetime=`date --date yesterday "+%D 05:00"`; chop $id_ash_begin_datetime;
$id_ash_duration=720; #mins: 12 hours (from 5am to 5pm)
# print "Boris: dbg> id_ash_begin_datetime=$id_ash_begin_datetime, id_ash_duraton=$id_ash_duraton\n";
$sql = "
spool $RPTFILE1
select systimestamp from dual;
spool off
run_sql("$sql");
$sql = "
define dbid=$id_dbid
define inst_num=$id_inst_num
define begin_snap=$id_min
define end_snap=$id_max
define report_type='text'
define report_name=$RPTFILE1
@?/rdbms/admin/awrrpti
run_sql("$sql");
$sql = "
define dbid=$id_dbid
define inst_num=$id_inst_num
define report_type='text'
define report_name=$RPTFILE2
define begin_time='$id_ash_begin_datetime'
-- define default_report_duration='$id_ash_duration'
define duration=$id_ash_duration
-- define duration=720
-- define end_time='$id_ash_date_begin_5pm'
define slot_width=''
define target_session_id=''
define target_sql_id=''
define target_wait_class=''
define target_service_hash=''
define target_module_name=''
define target_action_name=''
define target_client_id=''
define target_plsql_entry=''
@?/rdbms/admin/ashrpti
run_sql("$sql");
## Concantenate: cat $RPTFILE2 >> $RPTFILE1;
open ( awr_report, ">>", $RPTFILE1 ) or die "Could not open for writing file $RPTFILE1: $!";
open ( ash_report, "<", $RPTFILE2 ) or die "Could not open for reading file $RPTFILE2: $!";
while ( my $line = <ash_report> ) { print awr_report $line; }
# send report
my $if_notify = 1;
if ( $if_notify && -r $RPTFILE1 )
if ($ENV{'ORA_SP_HACK1'} eq '1') {
&tee_auto( "# detected ORA_SP_HACK1 -- hack the report a bit...\n");
# prefix each line of report with '# ' to hack around
# the problem with Exchange mail server interpreting
# certain patterns as email attachements...
my $ed = get_env2('ED', 'ed');
$cmd="$ed $RPTFILE1 <<eof
Best regards,
Rafi
http://rafioracledba.blogspot.com/