Generating a connection:
#
# testdbm.pl – Test connection to DBM Server
#
import
SAP::DBTech::dbm;
$session = new DBM ('', '');
$version = $session->cmd ("dbm_version")
print "$version\n";
Starting the database instance:
#
# dbup.pl – Start database instance
#
import SAP::DBTech::dbm;
$database_name = $ARGV
[0];
$session = new DBM ('', database_name, '', 'DBMUSER,DBM');
$session->cmd ('db_online');