
 SAP R/3


Ein SAPRFC-Server (ohne Interface-Definition):

$GLOBAL_FCE_LIST[RFC_READ_REPORT] =
   saprfc_function_define(0,"RFC_READ_REPORT",$DEF_RFC_READ_REPORT);

function RFC_READ_REPORT ($fce) {
  $REPORT = saprfc_server_import ($fce,"PROGRAM");
  saprfc_table_init ($fce,"QTAB");
  $fd = fopen ($REPORT,"r");
  if (!$fd)
      return ("NOTFOUND");     // raise exception "NOTFOUND"
  while (!feof($fd)) {
    $LINE = fgets ($fd,73);
    saprfc_table_append ($fce,"QTAB",array("LINE"=>$LINE));
  }
  fclose ($fd);
  saprfc_server_export ($fce,"SYSTEM","PHP");
  return (true);
}


// Call script with: ./server.php -a phpgw -g hostname -x sapgw00
$rfc = saprfc_server_accept ($argv);

// Dispatch one function call
$rc = saprfc_server_dispatch ($rfc,$GLOBAL_FCE_LIST);

saprfc_close ($rfc);
