Select Code to Download

Select or download this

 my $SQL = "UPDATE kcrei_batch_job_history SET
                            rows_added = $_[1],
                            status = 'C',
...
                        WHERE
                            master_job_no = $master_job_no AND
                            master_job_sub_no = $_[0]";

Select or download this

 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];
    
...
                         WHERE
                             master_job_no = $master_job_no AND
                             master_job_sub_no = $_[0]";

Select or download this

############################################
#  Function: TimeDiff
############################################
...
    
    return($toTM - $fromTM);
}