#!/usr/bin/perl
use strict;
# get a list of report names from table TRDIR and
# then get the source code of each
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->DELIMITER('|');
$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();