<=>>I need to get a list of all my tapes that have been initialized by the
<=>>'dsmlabel' command in ADSM (AIX).  The 'query volume' command only gives me
a
<=>>list of tapes that have been assigned to a storage pool.  I also need to
list
<=>>my scratch tapes.

Here is a PERL5 script that we are using to keep a track of our tapes
allocation and status. It combines the output of Q VOL, Q LIBV, and mtlib
issued on several servers into a single report. All you should need to do is to
modify the value of  some parameters at the beginning of the script. Let me
know if you have problems with it.

NB: The output need to be seen on a wide window (130 chars?)
I hope this helps.

FD


--
Regards
Regards

+-------------------+----------------------------------+---------------------+
| Francis Dequenne  | Systems Section                  |      /~~\  /~~\     |
| ECMWF             | e-mail: fdequenne AT ecmwf DOT int      |     /    \/    
\    |
| Shinfield Park    | Tel:    (+44 1734) 499361        |   ECMWF             |
| Reading           | Fax:    (+44 1734) 869450        |   ECMWF             |
| Berkshire RG2 9AX | Telex:  (+44 1734) 847908        |     \    /\    /    |
| United Kingdom    |                                  |      \__/  \__/     |
+-------------------+----------------------------------+---------------------+