#!/usr/bin/perl
use strict;
use lib '../blib/lib';
use lib '../blib/arch';
print STDERR "VERSION: ".$SAP::Rfc::VERSION ."\n";
# get a list of report names from table TRDIR and
# then get the source code of each
my $rfc = new SAP::Rfc(
ASHOST => 'seahorse',
USER => 'developer',
PASSWD => 'developer',
GETSSO2 => '1',
LANG => 'EN',
CLIENT => '010',
SYSNR => '00',
TRACE => '1' );
my $ticket = $rfc->getTicket();
warn "Error in getting Ticket: ".$rfc->error."\n" if $rfc->error;
warn "Ticket: $ticket\n" if $ticket;
$rfc->close();