The L700 does have an optional "personality" module which allows the
library to be connected to the network. You can then open a browser to this
address and see the whole library, slots, drives, i/o ports, errors.

We have it on all our L700 libraries.

Also, I've created a Perl script which uses the lbtest command to get the
list of tapes in the i/o slots. ( see below )  It may not be pretty but it
works.


I use this list in scripts to checkin offsite tapes and load/label new
scratch tapes.



Gerald Michalak
TSM - Certified V5 Administrator

==============================


lib_cap_inv.pl
==============================
#!/usr/bin/perl
#       lib_cap_inv.pl
#

open (LIBV, "/usr/tivoli/tsm/devices/bin/lbtest -f lbtest.in -d /dev/lb0 -o
/tmp/lbinv.out |") || die(" * * * Library Busy !!!! ");

close (LIBV);

`rm -f /adsm_restore/lib_cap_inv`;

open (INV,"/tmp/lbinv.out");
open (CAPINV,">>/adsm_restore/lib_cap_inv");

while (<INV>)
{
        $line=$_;
        chop($line);

        ($type,$dummy,$dummy,$dummy,$slot,$stat ) = split(" ",$line);

        if ( $type eq "Import" and $stat eq "FULL)" )
        {
                $line=<INV>;
                $line=<INV>;
                $line=<INV>;
                chop($line);
                ($dummy,$dummy,$f1,$f2,$f3 ) = split(" ",$line);
                print CAPINV "$f1 \n";
                print " slot=".$slot." f1=".$f1." f2=".$f2." f3=".$f3."\n"
;
        }
}

close (INV);
close (CAPINV);

exit;

======================

lbtest.in
======================
command open $D
command return_elem_count
command return_lib_inventory_all
command close