Index: trunk/ippToPsps/perl/pspsSchema2xml.pl
===================================================================
--- trunk/ippToPsps/perl/pspsSchema2xml.pl	(revision 31101)
+++ trunk/ippToPsps/perl/pspsSchema2xml.pl	(revision 31104)
@@ -67,5 +67,5 @@
 
 # VOTable file
-my $votOutput = new IO::File(">votable.xml");
+my $votOutput = new IO::File(">tables.vot");
 my $votWriter = new XML::Writer(OUTPUT => $votOutput, DATA_MODE => 1, DATA_INDENT=>2);
 $votWriter->xmlDecl('UTF-8');
@@ -381,4 +381,5 @@
     # get VOTable type
     my $votType = "undef";
+    my $arraySize = 1;
     if ($type eq "TBYTE") {$votType = "unsignedByte";}
     elsif ($type eq "TSHORT") {$votType = "short";}
@@ -387,8 +388,9 @@
     elsif ($type eq "TFLOAT") {$votType = "float";}
     elsif ($type eq "TDOUBLE") {$votType = "double";}
-    elsif ($type eq "TSTRING") {$votType = "char";}
+    elsif ($type eq "TSTRING") {$votType = "char"; $arraySize = 24;}
 
     $votWriter->startTag('FIELD',
             "name" => $name,
+            "arraysize" => $arraySize,
             "datatype" => $votType);
     $votWriter->endTag();