WriteLog("PROJECTCONTROL","INFO",'ID1252',"Project Name is \<$project_name\>");
WriteLog("PROJECTCONTROL","INFO",'ID1250',"Datasource of this job was \<$datasources\>");


sub WriteLog
{
 my ($script,$type,$id,$log) = @_;
 $logfile = $job_path.'/user/LogFile.txt';
 my $logdate = $today;
 my $loguser = $USERNAME;
 open (LOG, ">>$logfile") || die "File does not exist\n";
  print LOG "$script $type $id $loguser $logdate   $log\n";
  close (LOG);
}