#!/usr/local/bin/perl

use strict;
use SAP::Rfc;
use Data::Dumper;

my $rfc = new SAP::Rfc(
  ASHOST   => 'SD2',
  USER     => 'MYUSER',
  PASSWD   => 'mypassword',
  LANG     => 'EN',
  CLIENT   => '400',
  SYSNR    => '00',
  TRACE    => '1');

if ($rfc->is_connected()) {
  my $it = $rfc->discover("ZRMA_MATERIAL_ASSIGN") || Out_N_Die("RFC Discover failed for ZRMA_MATERIAL_ASSIGN.  " . $rfc->error() . ".");

  $it->MATERIAL("41000642");

  $rfc->callrfc( $it );

  print "Interface After Call=\n";
  print Dumper($it);

  my $rtncode = $it->RTNCODE;
  print "rtncode=$rtncode\n";

  my $description = $it->DESCRIPTION;
  print "description=$description\n";

  my $testtable = $it->TESTTABLE;
  print Dumper($testtable);

  my $tableMaterial = @$testtable{'MATERIAL'};
  print "Material from Table: $tableMaterial\n";

  my $tableDescription = @$testtable{'DESCRIPTION'};
  print "Description from Table: $tableDescription\n";

  $rfc->close();
}
else {
  print "Error connecting to SAP RFC Gateway";
}