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