#!/usr/bin/perl
use
strict;
use
SAP::Rfc;
use
Data::Dumper;
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
();