Perl: Example No. 2 

Set up a user session with the REPMServer
Log on to the database instance
Log off

# Reference to SAP DB Perl Library

# -------------------------------

use SAP::DBTECH::repman;

 

# Parse the call arguments

# --------------------------

$user = $ARGV[0];

$pwd = $ARGV[1];

$dbname = $ARGV[2];

$data_path = $ARGV[3];

$host = "localhost";

 

# Start a user session with the REPMServer

# -------------------------------------------

$session = repman::RepMan ($host, $dbname);

 

# Log on to the database instance

# --------------------------------

$session->cmd("use user $user $pwd;");

 

# Log off

# --------

undef $session