Hi everybody,

at first thanks for your helpfull answers !

Does anybody have any good perl skripts or just shell skripts concerning
ADSM / TSM ?

I have only a few, maby we can share some usefull stuff.
Here is small monotoring skript.

Jens.


***************************************************************************************************

Monitoring Skript
**************************************************************************************************

#!/bin/ksh
###########################################################################
# /special/unix/event/skripts/adsm_db_info
#
# saves information about tapes containing DB-Backups to the CWS
# r.bruns
##########################################################################
PATH=$PATH:/usr/lpp/adsm/bin
OUTFILE=/special/unix/event/skripts/adsm_db_info.txt

echo "Tapes containing DbBackups"
echo "------------------------------------------------------------------"
dsmadmc -id=admin -password=$1 q libvol|grep DbBackup
echo "------------------------------------------------------------------"
echo "Database,Logvol and Volhist Information"
echo "------------------------------------------------------------------"
dsmadmc -id=admin -password=$1<<EOF
q db
q log
EOF
echo "-------------------------------------------------------------------"
echo "Free tape information"
echo "------------------------------------------------------------------"
dsmadmc -id=admin -password=$1<<EOF 2>/dev/null
        select count(*) as Free from LIBVOLUMES where STATUS='Scratch'
        select stgpool_name,count(*) as Freed from VOLUMES where
upper(status)='FULL' and pct_utilized < 50 group by stgpool_name
EOF