my $SQL = "Select tran_seq_nbr, sale_amount 
From KCPOS_Tran_Header
Where org_number = $ai_div 
And store_number = $ai_store 
And tran_number = $al_trans
And terminal_number = $ai_reg 
And tran_Date = $adt_h_date";
            
        my $sth = $dbh->prepare( $SQL )
            or die "Couldn't prepare statement: " . $dbh->errstr;

        $sth->execute()
            or die "Couldn't execute statement: " . $sth->errstr;

        ( $ac_seq_nbr, $ac_sale_amount ) = $sth->fetchrow();