my @f = (localtime)[0..5];
     my $stop_time = sprintf "%d-%02d-%02d %02d:%02d:%02d", $f[5]+1900, $f[4]+1, $f[3], $f[2], $f[1], $f[0];
    
     Compute the elapsed time in hours, minutes and seconds.
     my $elapsed_time_ss = sprintf "%02d", timeDiff($loader_start_time, $stop_time);
     my $elapsed_time_mm = sprintf "%02d", $elapsed_time_ss / 60;
     my $elapsed_time_hh = sprintf "%02d", $elapsed_time_ss / 3600;

     $stop_time .= ".000";

     my $SQL = "UPDATE kcrei_batch_job_history SET
                             rows_added = $_[1],
                             status = 'C',
                             stop_datetime = getdate(),
                             stop_tran_seq_nbr = $hdr_tran_seq_nbr,
                             elapsed_time_hh = $elapsed_time_hh,
                            elapsed_time_mm = $elapsed_time_mm,
                             elapsed_time_ss = $elapsed_time_ss
                         WHERE
                             master_job_no = $master_job_no AND
                             master_job_sub_no = $_[0]";