Hi Guys,
I wonder if possible to execute a Db2 commands within a perl scripts without installing or invoking the DBI modules. I have a script that is written in kron shell and it looks like :
DB=`db2 list db directory | egrep "Database alias|Directory entry type"|awk '{printf $0 ; getline; print $0}'| grep "Indirect" | awk '{print $4 }'`
for DATABASE in $DB ;
do
db2 connect to $DATABASE
export CONN=$?
db2 "select count(*) from sysibm.sysdummy1"
export SEL=$?
db2 terminate
export TER=$?
if [[ $CONN -ne 0 || $SEL -ne 0 || $TER -ne 0 ]]; then
print " Error has occured connecting to $DATABASE on hostname : `hostname`"
print " Error has occured connecting to $DATABASE on hostname : `hostname`"
fi
done
and I would like to rewrite it in perl if I don't have to install the DBI modules. Has anyone done it before or it is possible. thanks.