push(@passVars, $passCompCode);
         push(@passVars, $passLogRecord);
         write_msg_File(@passVars);

sub write_msg_File {
   my $compCodeStr = $_[0];
   my $logDataStr = $_[1];
   my $logCompCode;
   $logCompCode = get_Comp_Code($compCodeStr);
   my $outFile = "/root/acs/out/msg_beta_" . "$logCompCode" . "\.txt";
   #my $outFile = "/home/clr/log/msg" . "$logCompCode" . "\.txt";
   open (WRECORD, ">> $outFile") or warn "Cannot Write Record! - $!";
   print WRECORD $logDataStr;
   close (WRECORD);
   system "chown apache:apache $outFile";
   system "chmod a=rw $outFile";
}
#sub

sub get_Comp_Code {
   my $companyRef = $_[0];
   $companyRef =~ s/^0*//;
   my @companyArray = ("0000","4250","4450","3943","3943","4095","4241","1240","3943","4250","3943","1850","1850","4450","4450","1900","1855","1855","1855","1855","1863","1872","1855","1865","1855","1870","1855","3436","0000","1389","1780","0000","1872","3943","1864","3438","0000","1864","1864","1864","1240","1240","1240","1551","1392","1392","0000","1391","1451","0000","1397","4450");
   if (($companyRef >= 52) || ($companyRef <= -1)) {
      return "0000";
   }
   # if
   my $companyCode = $companyArray[$companyRef];
   return $companyCode;
}
#sub