--- a/CorrTable/Corr_wrap.r	Thu Aug 01 11:30:58 2019 -0400
+++ b/CorrTable/Corr_wrap.r	Wed Oct 16 03:12:55 2019 -0400
@@ -33,7 +33,8 @@
 if(length(args) < 10){ stop("NOT enough argument !!!") }
 
 
-cat('\n--------------------------------------------------------------------', 
+cat('\nJob starting time:\n',format(Sys.time(), "%a %d %b %Y %X"),
+'\n\n--------------------------------------------------------------------', 
 '\nParameters used in "Between-table Correlation":\n\n')
 print(args)
 cat('--------------------------------------------------------------------\n\n')
@@ -76,7 +77,8 @@
 cat('\n--------------------------------------------------------------------',
 '\nInformation about R (version, Operating System, attached or loaded packages):\n\n')
 sessionInfo()
-cat('--------------------------------------------------------------------\n\n')
+cat('--------------------------------------------------------------------\n',
+'\nJob ending time:\n',format(Sys.time(), "%a %d %b %Y %X"))
 
 
 #delete the parameters to avoid the passage to the next tool in .RData image