Data Interfaces

WRITE: / TEXT-001,
SY-MANDT, NAME, SY-UZEIT.
* Create the session header
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
* Access the data
DO.
CLIENT = SY-MANDT
GROUP = NAME
USER = 'BC420BDC'
KEEP = 'X'.
READ DATASET FILE INTO REC.
IF SY-SUBRC NE 0.
EXIT.
ENDIF.
WRITE: / REC-ID USING NO EDIT MASK, REC-NAME, REC-TELEPHONE.
* Subroutine for transferring the data of one transaction to the
* BDC_TAB (screen format)
PERFORM GENERATE_BDC_DATA.
* Function module for transferring the data of the BDC_TAB to the
queue file
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TABLES
TCODE = 'TFBA'
DYNPROTAB = BDC_TAB.