|
#!/usr/bin/perl
$|++;
my $rfc = new SAP::SOAP(
ASHOST => 'localhost' ,
USER => 'DEVELOPER' ,
PASSWD => '19920706' ,
LANG => 'EN' ,
CLIENT => '000' ,
SYSNR => '18' );
my $it = $rfc ->discover( "RFC_READ_TABLE" );
$it ->QUERY_TABLE( 'TRDIR' );
$it ->DELIMITER( '|' );
$it ->ROWCOUNT( 5 );
$it ->OPTIONS( [ "NAME LIKE 'RS%'" ] );
$rfc ->callrfc( $it );
print "SOAP REQUEST AFTER: " . $rfc ->soapResponse( $it );
my $if = $rfc ->discover( "RFC_READ_REPORT" );
$if ->PROGRAM( 'SAPLGRAP' );
$rfc ->callrfc( $if );
print "DONE CALL \n" ;
print "SOAP REQUEST AFTER: " . $rfc ->soapResponse( $if );
$rfc -> close ();
|