#!/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_CURRENCY_GETLIST");
$rfc->callrfc( $it );
for my $row ( $it->tab('CURRENCY_LIST')->hashRows ){
print "ROW: ".Dumper($row)."\n";
}
$rfc->close();
print " END: ".scalar localtime() ."\n";