sub SMSCDR 
{
	my @array = @_;
	foreach my $cdr_file (@array)
	{
		chomp $cdr_file;
		print "File:::::: $cdr_file",$/;
		open (FPS,"$cdr_file") or die "Could not open $cdr_file\n";

		while (my $line = <FPS>)
		{
			chomp ($line);
			my (
					$msg_submission_time,#5
					$status,#8
					$record_type,#10
					$last_failure_reason,#12
					$orig_interface,#13
					$dcs,#15
					$segment_number ,#23
					$system_id ,#56
			   )= (split /\|/,$line) [4,7,9,11,12,14,22,55];
#Wed Jun 10 16:58:58 2009
			my ($mon_txt,$day,$hr,$year) =  (split /[-:\s]+/,$msg_submission_time)[1,2,3,6];
			my $statsdate = "$hr:$year-$month_name{$mon_txt}-$day";
#print "statsdate :$statsdate\n";
			push (@date_list,$statsdate) unless $seen{$statsdate}++;
			$hour_info{$statsdate}{$hr}=0;
			if (($orig_interface eq "SMPP") && ($record_type eq "Submit"))
			{
				my ($segment_no,$x) = split (/\//,$segment_number);
				if ((lc($segment_no) eq "none") || ($dcs eq "8") || ($dcs eq "16") || (($dcs eq "ASCII") && ($segment_no eq "1")))
				{
					$system_id_info{$statsdate}{$system_id}=0;
					if($sms_sub_data{$statsdate}{$system_id} eq "")
					{
						$sms_sub_data{$statsdate}{$system_id} = 0;
						$del_data{$statsdate}{$system_id} = 0;
						$undel_data{$statsdate}{$system_id} = 0;
						$exp_data{$statsdate}{$system_id} = 0;
					}
					$sms_sub_data{$statsdate}{$system_id} ++;
					$sms_sub_data{$statsdate}{'all'} ++;
					if ($status eq "Delivered")
					{
						$del_data{$statsdate}{$system_id} ++;
						$del_data{$statsdate}{'all'} ++;
						if ($last_failure_reason eq "SMSC_no_error")
						{
							$last_failure_reason = "First_Attempt_Delivered";
						}
						else
						{
							$last_failure_reason = "Delivered_After_Retry";
						}
						$del_errcnt{$statsdate}{$system_id}{$last_failure_reason} ++;
						$del_errcnt{$statsdate}{'all'}{$last_failure_reason} ++;
					}
					elsif ($status eq "Expired")
					{
						$exp_data{$statsdate}{$system_id} ++;
						$exp_data{$statsdate}{'all'} ++;
						push (@exp_rej_error_list,$last_failure_reason) unless $exp_seen{$last_failure_reason}++;
						$exp_errcnt{$statsdate}{$system_id}{$last_failure_reason} ++;
						$exp_errcnt{$statsdate}{'all'}{$last_failure_reason} ++;
					}
					else
					{
						$undel_data{$statsdate}{$system_id} ++;
						$undel_data{$statsdate}{'all'} ++;
						push (@undel_rej_error_list,$last_failure_reason) unless $undel_seen{$last_failure_reason}++;
						$undel_errcnt{$statsdate}{$system_id}{$last_failure_reason} ++;
						$undel_errcnt{$statsdate}{'all'}{$last_failure_reason} ++;
					}

				}
			}
		}
		close (FP);
		`mv $cdr_file $smscdr_archive_directory`;
	}
}