If using perl, please consider using the TSM for PERL module from Jörg
Nouvertné at:
http://home.wtal.de/the_swordsman/

It returns your data in hashes, i.e.

  my $arrayref = $tsm->select("* from volumes");
  foreach my $element (@$arrayref)
  {
        print "$element->{VOLUME_NAME}:\t $element->{STGPOOL_NAME}\n";
  };

I use it and like it very much...


Marcel Anthonijsz
Central Data Storage Manager (a.k.a. storman)
Shell Information Technology International B.V.
PO Box 1027, 2260 BA  Leidschendam, The Netherlands

Email: Marcel.Anthonijsz AT shell DOT com