/[sap_import]/call_rfc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /call_rfc.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Mon Nov 18 13:40:02 2002 UTC (16 years, 8 months ago) by dpavlin
Branch: DbP
CVS Tags: r0
Changes since 1.1: +0 -0 lines
File MIME type: text/plain
initial import

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

  ViewVC Help
Powered by ViewVC 1.1.26