This graphic is explained in the accompanying text Perl: Example 4 Locate the document in its SAP Library structure

Example of Calling the Loader with Perl Script

Create a database session
Log on to the database instance
Create a table and query the error code
Use a Loader command to load data into the table and query the error code
Log off

 

# Reference to the SAP DB Perl Library
# -------------------------------

use SAP::DBTECH::loader;

# Parse the call arguments
# --------------------------

$userid = $ARGV[0];
$password = $ARGV[1];
$database_name = $ARGV[2];
$data_path = $ARGV[3];
$server_node = "localhost";

# Create a database session for the Loader
# -------------------------------------------

$session = loader::Loader ($server_node, $database_name);

# Log on to the database instance
# --------------------------------

$session->cmd("use user $userid $password;");

$rc = $session->sql('EXISTS TABLE CUSTOMER')

If $rc!=0

# Create the table CUSTOMER
# -------------------------

$session->cmd ( 'CREATE TABLE customer ( '.
                    'cno             FIXED(4), '.
                    'name         CHAR(10) ASCII, '.
                    'zip             CHAR(5) ASCII, '.
                    'city            CHAR(12) ASCII, '.
                    'PRIMARY KEY (cno) ')

print $rc

If $rc==0

# Load the table CUSTOMER
# -------------------------

$loadrc = $session->cmd ("DATALOAD TABLE customer ".
                        "cno       1-4".
                        "name  6-12".
                        "zip       14-18".
                        "city     20-31".
"INFILE $data_path\customer.dat" )

print $loadrc

# End the database session
# ----------------------------

undef $session