Anfang des Inhaltsbereichs

Diese Grafik wird im zugehörigen Text erklärt Perl: Beispiel Nr. 4 Dokument im Navigationsbaum lokalisieren

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

Ende des Inhaltsbereichs