my $rec = $G::result[0];
$fh->print( join( "\t", sort keys %$rec), "\n" );
foreach my $rec ( @G::result ) {
	LogGeneral("Here's the record : $rec");
	#B/L = B & f/r p type = RR
			if (($rec->{"borrow_lend_indicator"} == "B") && ($rec->{"fee_rebate_payable_type"} == "RR")) {
				$rec->{"accrued_fee_rebate_value"} = "+" . $rec->{"accrued_fee_rebate_value"}; 
			#B/L = L & f/r p type = RR
			} elsif (($rec->{"borrow_lend_indicator"} == "L") && ($rec->{"fee_rebate_payable_type"} == "RR")) {
				$rec->{"accrued_fee_rebate_value"} = "-" . $rec->{"accrued_fee_rebate_value"}; 
			#f/r type = FR		
			} elsif ($rec->{"fee_rebate_payable_type"} == "FP") {
				$rec->{"accrued_fee_rebate_value"} = "-" . $rec->{"accrued_fee_rebate_value"}; 
			#f/r type = FP		
			} elsif ($rec->{"fee_rebate_payable_type"} == "FR") {
				$rec->{"accrued_fee_rebate_value"} = "+" . $rec->{"accrued_fee_rebate_value"}; 
			#B/L = B	
			} elsif ($rec->{"borrow_lend_indicator"} == "B") {
				$rec->{"actual_cost_of_funds"} = "-" . $rec->{"actual_cost_of_funds"}; 
			#B/L = L
			} elsif ($rec->{"borrow_lend_indicator"} == "L") {
				$rec->{"actual_cost_of_funds"} = "+" . $rec->{"actual_cost_of_funds"}; 
				} 
	foreach my $field ( sort keys %$rec ) {
		LogGeneral("Here's the field : $rec->{$field}");
		$fh->print($rec->{$field},"\t");
		}
	$fh->print("\n");
}
$fh->close();