sub print_if {
  my($FH, $orderKey, $odVal, $osVal) = @_;
  #if (!defined $odVal) {$odVal = 0;}
  #if (!defined $osVal) {$osVal = 0;}
  if (!(length($odVal) > 0)) {$odVal = "0";}
  if (!(length($osVal) > 0)) {$osVal = '0';}
  if ($odVal > 0 || $osVal > 0) {
    print $FH $orderKey.' '.$odVal.' '.$osVal."\n";
  }
}