Beispiel für Aufruf des Loader mit Perl-Skript
Aufbau einer Datenbanksitzung
Anmelden an die Datenbankinstanz
Anlegen einer Tabelle und Abfragen des Fehlercodes
Laden von Daten in die Tabelle mittels Loader-Kommando/s
und Abfragen des Fehlercodes
Abmelden
#
Verweis auf SAP DB Perl-Library
# -------------------------------
use SAP::DBTECH::loader;
#
Parsen der Aufrufargumente
# --------------------------
$user_name = $ARGV[0];
$password = $ARGV[1];
$database_name = $ARGV[2];
$data_path = $ARGV[3];
$server_node = "localhost";
#
Aufbau einer Datenbanksitzung zum Loader
# -------------------------------------------
$session = loader::Loader ($server_node, $database_name);
#
Anmelden an die Datenbankinstanz
# --------------------------------
$session->cmd("use user $user_name $password;");
$rc = $session->sql('EXISTS TABLE KUNDE')
If $rc!=0
#
Anlegen der Tabelle KUNDE
# -------------------------
$session->cmd ( 'CREATE TABLE kunde ( '.
'knr FIXED(4),
'.
'nachname CHAR(10)
ASCII, '.
'plz CHAR(5) ASCII,
'.
'ort CHAR(12)
ASCII, '.
'PRIMARY
KEY (knr) ')
print $rc
If $rc==0
#
Laden der Tabelle KUNDE
# ----------------------------------------------------------
$loadrc = $session->cmd ("DATALOAD TABLE kunde ".
"knr 1-4 ".
"nachname 6-12 ".
"plz 14-18
".
"ort 20-31 ".
"INFILE
$data_path\kunde.dat" )
print $loadrc
#
Beenden der Datenbanksitzung
# ----------------------------
undef $session