1 |
#!/usr/bin/perl |
2 |
use lib '../lib'; |
3 |
use SAP::Rfc; |
4 |
use Data::Dumper; |
5 |
|
6 |
$|++; |
7 |
# get a list of report names from table TRDIR and |
8 |
# then get the source code of each |
9 |
|
10 |
|
11 |
my $rfc = new SAP::Rfc( |
12 |
ASHOST => 'cipkg', |
13 |
USER => 'rfctest', |
14 |
PASSWD => 'dinamo', |
15 |
LANG => 'HR', |
16 |
CLIENT => '200', |
17 |
SYSNR => '20', |
18 |
TRACE => '0' |
19 |
) || die "new: $!"; |
20 |
|
21 |
$rfc->is_connected || die "not connected"; |
22 |
|
23 |
my $it = $rfc->discover("Z_ZDMM0123_SIGMA_RFC") || die "discover: $!"; |
24 |
|
25 |
#%info = $rfc->sapinfo(); |
26 |
#map { print "key: $_ = ", $info{$_}, "\n" } sort keys %info; |
27 |
|
28 |
$it->FILEPATH( "ZSIGMA" ); |
29 |
#$it->FILENAME( "LC_Orders.edi" ); |
30 |
$it->FILENAME( "orders2.edi" ); |
31 |
$it->PORT( "ZIDOC" ); |
32 |
|
33 |
$rfc->callrfc( $it ); |
34 |
|
35 |
#print Dumper($it); |
36 |
|
37 |
$rfc->close(); |
38 |
|