80 |
|
|
81 |
$rfc->is_connected || die "SAP rfc: not connected"; |
$rfc->is_connected || die "SAP rfc: not connected"; |
82 |
|
|
83 |
my $it = $rfc->discover("Z_ZDMM0123_SIGMA_RFC") || die "discover: $!"; |
my $it = $rfc->discover($config->{sap}->{discover}) || die "discover: $!"; |
84 |
|
|
85 |
$it->FILEPATH( "ZSIGMA" ); |
$it->FILEPATH( $config->{sap}->{filepath} ); |
86 |
$it->FILENAME( $new ); |
$it->FILENAME( $new ); |
87 |
$it->PORT( "ZIDOC" ); |
$it->PORT( $config->{sap}->{port} ); |
88 |
|
|
89 |
$rfc->callrfc( $it ); |
$rfc->callrfc( $it ); |
90 |
|
|