# -----------------------------------------------------------------------------
# Start processing.
# -----------------------------------------------------------------------------

# Validation.
if ($StartTime eq "")       { Error($INVALID_START_DATE);   }
if ($EndTime eq ""  )       { Error($INVALID_END_DATE);     }
unless(IsDate($StartTime))  { Error($INVALID_START_DATE);   }
unless(IsDate($EndTime))    { Error($INVALID_END_DATE);     }


$SQL = "";
$SQL = $SQL . "SELECT ";
$SQL = $SQL . "to_char(pp.SUBMITTIME, 'YYYY-MM-DD HH:MM:SS') SUBMITTIME, ";
$SQL = $SQL . "to_char(pp.QUEUETIME, 'YYYY-MM-DD HH:MM:SS') QUEUETIME, ";
$SQL = $SQL . "to_char(pp.PREPTIME, 'YYYY-MM-DD HH:MM:SS') PREPTIME, ";
$SQL = $SQL . "to_char(pp.STARTTIME, 'YYYY-MM-DD HH:MM:SS') STARTTIME, ";
$SQL = $SQL . "pp.SESSIONID, ";
$SQL = $SQL . "pp.PLANID ";
$SQL = $SQL . "from ";
$SQL = $SQL . "\\\$hist_plan_prolog_1 pp ";
$SQL = $SQL . "where ";
$SQL = $SQL . "pp.SUBMITTIME between '2014-06-26 05:00' and '2014-06-26 08:00:00' ";
$SQL = $SQL . "order by ";
$SQL = $SQL . "pp.SUBMITTIME";

print "[SQL]:\n\n\n$SQL\n\n";

@Output = qx { /nz/kit/bin/nzsql -d histdb  -c "$SQL" };
$RetCode=$?;
chomp(@Output);

foreach ( @Output ) { print "$_\n"; }