|
#!/usr/bin/perl
my $rfc = new SAP::Rfc(
ASHOST => 'localhost' ,
USER => 'DEVELOPER' ,
PASSWD => '19920706' ,
LANG => 'EN' ,
CLIENT => '000' ,
SYSNR => '18' ,
TRACE => '1' );
my $table = 'TRDIR' ;
my $it = $rfc ->discover( "RFC_READ_TABLE" );
my $s = $rfc ->structure( $table );
$it ->QUERY_TABLE( $table );
$it ->ROWCOUNT( 10 );
$it ->OPTIONS( [ "NAME LIKE 'SAPL\%RFC\%'" ] );
$rfc ->callrfc( $it );
print "NO. PROGS: " . $it ->tab( 'DATA' )->rowCount(). " \n" ;
for my $row ( $it ->DATA ){
$s ->value( $row );
my $hashrow = { map { $_ => $s -> $_ () } ( $s ->fields ) };
print Dumper( $hashrow );
}
$rfc -> close ();
|