1 |
dpavlin |
1.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 |
|
|
|