sub is_netdaysdue_format {
return ($DISCPCNT ne "") 
    && ($DISCDAYSDUE ne "") 
    && ($NETDAYSDUE ne "") 
    && (
           ($DISCDUEDATE eq "") 
        && ($NETDUEDATE eq "") 
        && ($TERMSDISCAMT eq "")

   );
}

sub is_discountamount_format {
    return ( 
               ($DISCDUEDATE ne "") 
            && ($TERMSDISCAMT ne "") 
            && ($DISCPCNT eq "") 
            && ($DISCDAYSDUE eq "") 
            && ($NETDUEDATE eq "") 
            && ($NETDAYSDUE eq "")
   );
}

sub is_discountpercent_format {
    return (
                 ($DISCPCNT ne "") 
              && ($DISCDUEDATE ne "")
              && ($DISCDAYSDUE eq "") 
              && ($NETDUEDATE  eq "")
              && ($NETDAYSDUE eq "") 
              && ($TERMSDISCAMT eq "")
           );
}

##</code><code>##

(is_netdaysdue_format() 
|| is_discountamount_format() 
|| is_discountpercent_format()) 
            or print "Format must be..."