viewvc.cgi/sap_import/call_rfc.pl

#!/usr/bin/perl
use lib '../lib';
use SAP::Rfc;
use Data::Dumper;

$|++;
#   get a list of report names from table TRDIR and 
#   then get the source code of each


my $rfc = new SAP::Rfc(
        ASHOST   => 'cipkg',
        USER     => 'rfctest',
        PASSWD   => 'dinamo',
        LANG     => 'HR',
        CLIENT   => '200',
        SYSNR    => '20',
        TRACE    => '0'
        ) || die "new: $!";

$rfc->is_connected || die "not connected";

my $it = $rfc->discover("Z_ZDMM0123_SIGMA_RFC") || die "discover: $!";

#%info = $rfc->sapinfo();
#map { print "key: $_ = ", $info{$_}, "\n" } sort keys %info;

$it->FILEPATH( "ZSIGMA" );
#$it->FILENAME( "LC_Orders.edi" );
$it->FILENAME( "orders2.edi" );
$it->PORT( "ZIDOC" );

$rfc->callrfc( $it );

#print Dumper($it);

$rfc->close();

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