So können Sie eine RFC Schnittstelle erstellen

Erstellen den RFC FUBA im Sende System (IE1)

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
*"----------------------------------------------------------------------

  
CLEARe_kna1e_rc.

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

Aufruf im Empfänger System (IE5)

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
*======================================================================*

DATAgs_kna1 TYPE kna1,
      gf_rc 
TYPE sysubrc,
      smess 
TYPE text80,
      cmess 
TYPE text80.

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

PARAMETERSp_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-name1gs_kna1-ort01.
  
ENDIF.
ENDIF.


        search this website

Regotz Michel