$sub1='FB';
$tow1='RP';
$ph3='3';
          
         if (($subdvn eq $sub1) && ($tow eq $tow1) && 
         ($phase eq $ph3))
         
         {
         
           write(FS);
           
           $fb_rp_3_tot += $amount;
           
           $fbqty3 = $fbqty3 + 1;
                     
         }