#!/usr/bin/perl
use lib '../blib/lib';
use lib '../blib/arch';
use lib './blib/lib';
use lib './blib/arch';
print "VERSION: ".$SAP::Rfc::VERSION ."\n";
my $rfc = new SAP::Rfc(
ASHOST => 'seahorse',
USER => 'developer',
PASSWD => 'developer',
LANG => 'EN',
CLIENT => '000',
SYSNR => '00',
TRACE => '1' );
print " START: ".scalar localtime() ."\n";
my $it = $rfc->discover("BAPI_BANK_GETLIST");
$it->BANK_CTRY('DE');
$it->MAX_ROWS( 10 );
$rfc->callrfc( $it );
for my $row ( $it->tab('BANK_LIST')->hashRows ){
print "ROW: ".Dumper($row)."\n";
}
$rfc->close();
print " END: ".scalar localtime() ."\n";