my $add_comma=0;
   while ( my ( $cat, $schem, $tn, $cn, $dt, $tyn, $cs, $bl, $dd, $npr, $nul) = $sth->fetchrow_array()) { 
      if ($add_comma++) {
          print ",\n";
      }
      print "\t$cn ";
      if (($tyn eq 'DATETIME') || ($tyn eq 'DOUBLE')) {
         print "$tyn";
      } else {
         print "$tyn($cs)";
      }
      print " not null" if ($nul == 0);
   }