sub table{
        seek(TRACKING, 0, 0);
        while (defined($t_table = <TRACKING>)){
                chomp($t_table);
                @trk = split(/;/, $t_table);
                if (($trk[0] == $aba) && ($trk[1] == $acct) && ($trk[2] == $time)) {
               print ERROR "ABA:$aba\tAccount:$acct\t$time already in table\n";
                    } else {
                    print TRACKING "$aba;$acct;$aba\n";
                    $trans_code = "true";
                    } # end else / if
        } # end while tracking
} # end sub table