Select Code to Download

sub is_netdaysdue_format {
return ($DISCPCNT ne "") 
...
              && ($TERMSDISCAMT eq "")
           );
}

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