So können Sie eine RFC Schnittstelle erstellen

Hier ganz ein primitives Beispiel einer RFC Schnittstelle. Ihr müsst den FUBA in dem System erstellen wo die Daten vorhanden sind.

Erstelle einen neuen FUBA. Wichtig ist dabei das Ihr unter dem Reiter Eigenschaften folgendes auswählt: Remote fähiger Baustein - Start sofort

Dann könnt Ihr die Importparameter festlegen z.B.

I_KUNNR            TYPE      KUNNR                                               Debitorennummer

Dann könnt Ihr die Exportparameter festlegen z.B.

E_KNA1               TYPE      KNA1    Kundenstamm (allgemeiner Teil)

E_RC     TYPE      SYSUBRC             Rückgabewert von ABAP-Anweisungen

... .

Nun könnt Ihr noch das Coding hinterlegen um die Daten zu beschaffen.

*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_KUNNR) TYPE  KUNNR
*"  EXPORTING
*"     VALUE(E_KNA1) TYPE  KNA1
*"     VALUE(E_RC) TYPE  SYSUBRC
*"----------------------------------------------------------------------

  CLEAR: e_kna1, e_rc.

  SELECT SINGLE * FROM kna1 INTO e_kna1 WHERE kunnr = i_kunnr.
  IF sy-subrc NE 0.
    e_rc = 4.
  ENDIF.

In dem System wo Ihr nun die Daten benötigt. Erstellt Ihr ein Programm welches den FUBA im Sendesystem aufruft.

*&---------------------------------------------------------------------*
*& Report  Z_RFC
*&
*&---------------------------------------------------------------------*
*& REGOTZ MICHEL
*& RFC Schnittstelle erstellen
*&---------------------------------------------------------------------*

*======================================================================*
* Verarbeitung                                                         *
*======================================================================*

REPORT  z_rfc.

*======================================================================*
* Datendekleration
*======================================================================*

DATA: gs_kna1 TYPE kna1,
      gf_rc TYPE sysubrc,
      smess TYPE text80,
      cmess TYPE text80.

*======================================================================*
* SELECTION-SCREEN
*======================================================================*

PARAMETERS: p_kunnr TYPE kunnr.

*======================================================================*
* Beginn der Verarbeitung                                                      *
*======================================================================*

CALL FUNCTION 'Z_RFC_FUBA'
  DESTINATION 'IE1900'
  EXPORTING
    i_kunnr               = p_kunnr
  IMPORTING
    e_kna1                = gs_kna1
    e_rc                  = gf_rc
  EXCEPTIONS
    system_failure        = 1  MESSAGE smess
    communication_failure = 2  MESSAGE cmess
    OTHERS                = 3.

IF sy-subrc NE 0.
  WRITE: / 'SY-SUBRC =', sy-subrc.
  WRITE: / 'smess =', smess,
         / 'cmess', cmess.
ELSE.
  IF gf_rc NE 0.
    WRITE: / 'keine Daten gefunden'.
  ELSE.
    WRITE: / 'Kunden Daten wurden gefunden', / gs_kna1-name1, gs_kna1-ort01.
  ENDIF.
ENDIF.