sub chkfmt {
     if (
!(($DISCPCNT ne "") and ($DISCDAYSDUE ne "")  and ($NETDAYSDUE ne "") and (($DISCDUEDATE eq "") and ($NETDUEDATE eq "") and ($TERMSDISCAMT eq ""))
     or
!(($DISCDUEDATE ne "") and ($TERMSDISCAMT ne "") and ($DISCPCNT eq "") and ($DISCDAYSDUE eq "") and ($NETDUEDATE eq "") and ($NETDAYSDUE eq ""))
     or
!(($DISCPCNT ne "") and ($DISCDUEDATE ne "") and ($DISCDAYSDUE eq "") and ($NETDUEDATE  eq "") and ($NETDAYSDUE eq "") and ($TERMSDISCAMT eq ""))
)
   {print TSERROUT "If a discount is offered, Sports Authority wants one of these formats:\n
1) Discount Percent, Discount Days Due, and Net Days Due.\n
2) Discount Due Date, and Discount Amount.\n
3) Discount Percent, and Discount Due Date.\n";
}
}