sub TSM_Enquire {
  my $Record, $Slot, $Type, $Label;
  my @List;

  open(IN,"adsm_cmd q libv|grep 3584|");
  open(OUT,">/tmp/show_library.$$");

  while ($Record = <IN>) {
    $Record =~ s/,//;
    @Fields = split(' ', $Record, 9999);
    $Lable = $Fields[$#Fields-1]
    $Slot = $Fields[2];
    push(@List, $Slot . " " $Type . " " . $Lable);
  }
  close(IN);
  close(OUT);
}