Sap Abap BDC

BDC with Call Transaction Method :
REPORT ZSHAN_BDC1.
TYPES : BEGIN OF TY_BDC,

WERKS TYPE RMMG1-WERKS,
MAKTX TYPE MAKT-MAKTX,
MEINS TYPE MARA-MEINS,
MATKL type MARA-MATKL,
END OF TY_BDC.
DATA : IT_BDC TYPE TABLE OF TY_BDC,

WA_BDC TYPE TY_BDC.
DATA : IT_BDCDATA TYPE TABLE OF BDCDATA,

WA_BDCDATA TYPE BDCDATA.
DATA : BDCMSG TYPE TABLE OF BDCMSGCOLL.
DATA : FILE TYPE STRING.

PARAMETERS : P_FILE TYPE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'

EXPORTING
PROGRAM_NAME = SYST-CPROG
FIELD_NAME = 'x'
IMPORTING
FILE_NAME = p_file
.
START-OF-SELECTION.
if P_FILE IS NOT INITIAL.
FILE = P_FILE.
CALL FUNCTION 'GUI_UPLOAD'

EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
TABLES
DATA_TAB = IT_BDC.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endif.
CLEAR WA_BDC.
loop at IT_BDC into WA_BDC.

REFRESH: IT_BDCDATA.
CLEAR: IT_BDCDATA.
perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_CURSOR'
'RMMG1-MTART'.
perform bdc_field using 'BDC_OKCODE'

'=ENTR'.
perform bdc_field using 'RMMG1-MBRSH'
'M'.
perform bdc_field using 'RMMG1-MTART'
'HALB'.

'MSICHTAUSW-DYTXT(09)'.
'=ENTR'.
perform bdc_field using 'MSICHTAUSW-KZSEL(01)'
'X'.
'X'.

'RMMG1-WERKS'.
'=ENTR'.
perform bdc_field using 'RMMG1-WERKS'
WA_BDC-WERKS." '1000'

'/00'.
perform bdc_field using 'MAKT-MAKTX'
WA_BDC-MAKTX. "'shan_bdc'.

'MARA-MATKL'.
perform bdc_field using 'MARA-MEINS'

WA_BDC-MEINS."'EA'.
perform bdc_field using 'MARA-MATKL'
WA_BDC-MATKL."'001'.
perform bdc_field using 'MARA-BISMT'
''.

'/00'.
'MAKT-MAKTX'.

WA_BDC-MAKTX."'shan_bdc'.
WA_BDC-MEINS."'EA'.
perform bdc_dynpro using 'SAPLSPO1' '0300'.

'=YES'.
CALL TRANSACTION 'MM01' USING IT_BDCDATA UPDATE 'S' MODE 'N' MESSAGES INTO
BDCMSG.
IF SY-SUBRC = 0.
MESSAGE 'Material Created Successfully' TYPE 'S'.
ENDIF.
ENDLOOP.
data : wa_bdcmsg like LINE OF bdcmsg.
*----------------------------------------------------------------------*
* Start new screen *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR WA_BDCDATA.
WA_BDCDATA-PROGRAM = PROGRAM.
WA_BDCDATA-DYNPRO = DYNPRO.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA to IT_BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
* IF FVAL <> NODATA.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = FNAM.
WA_BDCDATA-FVAL = FVAL.
* ENDIF.
ENDFORM.
BDC WITH SESSION METHODE :
REPORT ZSHAN_BDC2.
TYPES : BEGIN OF TY_BDC,

END OF TY_BDC.
DATA : IT_BDC TYPE TABLE OF TY_BDC,

WA_BDC TYPE TY_BDC.



EXPORTING
FIELD_NAME = 'x'
IMPORTING
FILE_NAME = p_file
.
START-OF-SELECTION.
FILE = P_FILE.

EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
TABLES
DATA_TAB = IT_BDC.
IF SY-SUBRC <> 0.
ENDIF.
endif.
CLEAR WA_BDC.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
* DEST = FILLER8
GROUP = 'ZLEARN'
* HOLDDATE = FILLER8
KEEP = 'X'
USER = SY-UNAME
* RECORD = FILLER1
* PROG = SY-CPROG
* DCPFM = '%'
* DATFM = '%'
* IMPORTING
* QID =
EXCEPTIONS
CLIENT_INVALID = 1
DESTINATION_INVALID = 2
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
HOLDDATE_INVALID = 5
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
SYSTEM_LOCK_ERROR = 9
USER_INVALID = 10
OTHERS = 11
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
loop at IT_BDC into WA_BDC.
CLEAR: IT_BDCDATA.

'RMMG1-MTART'.

'=ENTR'.
perform bdc_field using 'RMMG1-MBRSH'
'M'.
perform bdc_field using 'RMMG1-MTART'
'HALB'.

'=ENTR'.
'X'.
'X'.

'RMMG1-WERKS'.
'=ENTR'.
WA_BDC-WERKS." '1000'

'/00'.
WA_BDC-MAKTX. "'shan_bdc'.

'MARA-MATKL'.

WA_BDC-MEINS."'EA'.
perform bdc_field using 'MARA-BISMT'
''.

'/00'.
'MAKT-MAKTX'.

WA_BDC-MAKTX."'shan_bdc'.

WA_BDC-MEINS."'EA'.
perform bdc_dynpro using 'SAPLSPO1' '0300'.

'=YES'.
CALL FUNCTION 'BDC_INSERT'

EXPORTING
TCODE = 'MM01'
* POST_LOCAL = NOVBLOCAL
* PRINTING = NOPRINT
* SIMUBATCH = ' '
* CTUPARAMS = ' '
TABLES
DYNPROTAB = IT_BDCDATA
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7
.
IF SY-SUBRC <> 0.
ENDIF.
IF SY-SUBRC = 0.
MESSAGE 'Material Created Successfully' TYPE 'S'.
ENDIF.
ENDLOOP.
CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
ENDIF.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
* ENDIF.
ENDFORM.
BDC with Call Transaction Method For FK01 :
REPORT ZSHANFK01_PRO.
TYPES : BEGIN OF TY_FK01,

BUKRS TYPE RF02K-BUKRS,
KTOKK TYPE RF02K-KTOKK,
ANRED TYPE LFA1-ANRED,
NAME1 type LFA1-NAME1,
SORTL TYPE LFA1-SORTL,
ORT01 TYPE LFA1-ORT01,
LAND1 TYPE LFA1-LAND1,
AKONT TYPE LFB1-AKONT,
FDGRV TYPE LFB1-FDGRV,
END OF TY_FK01.
DATA : IT_FK01 TYPE TABLE OF TY_FK01,

WA_FK01 TYPE TY_FK01.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

EXPORTING
FIELD_NAME = 'X'
IMPORTING
FILE_NAME = P_FILE
.
START-OF-SELECTION.
FILE = P_FILE.

EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
TABLES
DATA_TAB = IT_FK01.
IF SY-SUBRC <> 0.
ENDIF.
endif.
CLEAR WA_FK01.
loop at IT_FK01 into WA_FK01.
CLEAR: IT_BDCDATA.
perform bdc_dynpro using 'SAPMF02K' '0105'.

'RF02K-KTOKK'.
'/00'.
perform bdc_field using 'RF02K-BUKRS'

WA_FK01-BUKRS.
* '1000'.
perform bdc_field using 'RF02K-KTOKK'

WA_FK01-KTOKK.
* '0001'.

'LFA1-SPRAS'.
'/00'.
perform bdc_field using 'LFA1-ANRED'

WA_FK01-ANRED.
* 'Mr.'.
perform bdc_field using 'LFA1-NAME1'

WA_FK01-NAME1.
* 'mani'.
perform bdc_field using 'LFA1-SORTL'

WA_FK01-SORTL.
* 'RAJ'.
perform bdc_field using 'LFA1-ORT01'

WA_FK01-ORT01.
* 'perundurai'.
perform bdc_field using 'LFA1-LAND1'

WA_FK01-LAND1.
* 'in'.

'LFA1-KUNNR'.
'/00'.
'LFBK-BANKS(01)'.
'=ENTR'.
'KNVK-NAMEV(01)'.
'=ENTR'.
'LFB1-FDGRV'.
'=UPDA'.
perform bdc_field using 'LFB1-AKONT'

WA_FK01-AKONT.
* '31000'.
perform bdc_field using 'LFB1-FDGRV'

WA_FK01-FDGRV.
* 'A1'.
CALL TRANSACTION 'FK01' USING IT_BDCDATA UPDATE 'S' MODE 'N' MESSAGES INTO
BDCMSG.
IF SY-SUBRC = 0.
MESSAGE 'Vendor Created Successfully' TYPE 'S'.
ENDIF.
ENDLOOP.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
APPEND WA_BDCDATA TO IT_BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
* ENDIF.
ENDFORM.
BDC with Call Transaction Method For MM02 :
REPORT ZSHANMM02_PRO.
TYPES : BEGIN OF TY_MM02,

MATNR TYPE RMMG1-MATNR,
END OF TY_MM02.
DATA : IT_MM02 TYPE TABLE OF TY_MM02,

WA_MM02 TYPE TY_MM02.



EXPORTING
FIELD_NAME = 'x'
IMPORTING
FILE_NAME = p_file
.
START-OF-SELECTION.
FILE = P_FILE.

EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
TABLES
DATA_TAB = IT_MM02 .
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
CLEAR WA_MM02.
loop at IT_MM02 into WA_MM02.
CLEAR: IT_BDCDATA.

'RMMG1-MATNR'.
'=ENTR'.
perform bdc_field using 'RMMG1-MATNR'

WA_MM02-MATNR.
* '1157'.
'=ENTR'.
'X'.
'X'.
'RMMG1-WERKS'.
'=ENTR'.

WA_MM02-WERKS.
* '1000'.

'=BU'.

WA_MM02-MAKTX.
* 'mobile'.
'MARA-MATKL'.

WA_MM02-MEINS.
* 'EA'.

WA_MM02-MATKL.
* '00103'.
perform bdc_field using 'MARA-SPART'

'00'.
perform bdc_field using 'MARA-BRGEW'
'1.200'.
perform bdc_field using 'MARA-GEWEI'
'LB'.
perform bdc_field using 'MARA-NTGEW'
'1.180'.
CALL TRANSACTION 'MM02' USING IT_BDCDATA UPDATE 'S' MODE 'N' MESSAGES INTO
BDCMSG.
IF SY-SUBRC = 0.
MESSAGE 'Material Changed Successfully' TYPE 'S'.
ENDIF.
ENDLOOP.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
* ENDIF.
ENDFORM.
BDC with Session Method For MM02:
REPORT ZSHANMM02_PRO1.
TYPES : BEGIN OF TY_MM02,

MATNR TYPE RMMG1-MATNR,
END OF TY_MM02.
DATA : IT_MM02 TYPE TABLE OF TY_MM02,

WA_MM02 TYPE TY_MM02.



EXPORTING
FIELD_NAME = 'x'
IMPORTING
FILE_NAME = p_file
.
START-OF-SELECTION.
FILE = P_FILE.

EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
TABLES
DATA_TAB = IT_MM02 .
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.

EXPORTING
CLIENT = SY-MANDT
* DEST = FILLER8
GROUP = 'zshanmm02'
KEEP = 'X'
USER = SY-UNAME
* RECORD = FILLER1
* PROG = SY-CPROG
* DCPFM = '%'
* DATFM = '%'
* IMPORTING
* QID =
EXCEPTIONS
CLIENT_INVALID = 1
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
USER_INVALID = 10
OTHERS = 11
.
IF SY-SUBRC <> 0.
ENDIF.
CLEAR WA_MM02.
loop at IT_MM02 into WA_MM02.
CLEAR: IT_BDCDATA.

'RMMG1-MATNR'.
'=ENTR'.
perform bdc_field using 'RMMG1-MATNR'

WA_MM02-MATNR.
* '1157'.
'=ENTR'.
'X'.
'X'.
'RMMG1-WERKS'.
'=ENTR'.

WA_MM02-WERKS.
* '1000'.

'=BU'.

WA_MM02-MAKTX.
* 'mobile'.
'MARA-MATKL'.

WA_MM02-MEINS.
* 'EA'.

WA_MM02-MATKL.
* '00103'.
perform bdc_field using 'MARA-SPART'

'00'.
perform bdc_field using 'MARA-BRGEW'
'1.200'.
perform bdc_field using 'MARA-GEWEI'
'LB'.
perform bdc_field using 'MARA-NTGEW'
'1.180'.
EXPORTING
TCODE = 'MM02'
* SIMUBATCH = ' '
* CTUPARAMS = ' '
TABLES
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
POSTING_INVALID = 6
OTHERS = 7
.
IF SY-SUBRC <> 0.
ENDIF.
IF SY-SUBRC = 0.
MESSAGE 'Material Changed Successfully' TYPE 'S'.
ENDIF.
ENDLOOP.

EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
ENDIF.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
* ENDIF.
ENDFORM.
BDC with Call Transaction Method For XK02 :
REPORT ZSHANXK02_PRO.
TYPES : BEGIN OF TY_XK02,

LIFNR TYPE RF02K-LIFNR,
END OF TY_XK02.
DATA : IT_XK02 TYPE TABLE OF TY_XK02,

WA_XK02 TYPE TY_XK02.



EXPORTING
FIELD_NAME = 'X'
IMPORTING
FILE_NAME = P_FILE. .
FILE = P_FILE.

EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
TABLES
DATA_TAB = IT_XK02.
.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
CLEAR WA_XK02.
loop at IT_XK02 into WA_XK02.
CLEAR: IT_BDCDATA.

'RF02K-BUKRS'.
'/00'.
perform bdc_field using 'RF02K-LIFNR'

WA_XK02-LIFNR.
* '172'.

WA_XK02-BUKRS.
* '1000'.
perform bdc_field using 'RF02K-D0110'

'X'.
'LFA1-LAND1'.
'=UPDA'.

WA_XK02-ANRED.
* 'Mr.'.

WA_XK02-NAME1.
* 'Shan'.

WA_XK02-SORTL.
* 'SPARROW'.

WA_XK02-ORT01.
* 'perundurai'.

WA_XK02-LAND1.
* 'in'.
CALL TRANSACTION 'XK02' USING IT_BDCDATA UPDATE 'S' MODE 'A' MESSAGES INTO
BDCMSG.
IF SY-SUBRC = 0.
MESSAGE 'Customer Changed Successfully' TYPE 'S'.
ENDIF.
ENDLOOP.
DATA : WA_BDCMSG LIKE LINE OF BDCMSG.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
* ENDIF.
ENDFORM.
BDC with Session Method For XK02:
REPORT ZSHANXK02_PRO1.
TYPES : BEGIN OF TY_XK02,

LIFNR TYPE RF02K-LIFNR,
END OF TY_XK02.
DATA : IT_XK02 TYPE TABLE OF TY_XK02,

WA_XK02 TYPE TY_XK02.



EXPORTING
FIELD_NAME = 'X'
IMPORTING
FILE_NAME = P_FILE. .
FILE = P_FILE.

EXPORTING
FILENAME = FILE
FILETYPE = 'ASC'
TABLES
DATA_TAB = IT_XK02.
.
IF SY-SUBRC <> 0.
ENDIF.
ENDIF.
EXPORTING
CLIENT = SY-MANDT
* DEST = FILLER8
GROUP = 'zshanxk02'
KEEP = 'X'
USER = SY-UNAME
* RECORD = FILLER1
* PROG = SY-CPROG
* DCPFM = '%'
* DATFM = '%'
* IMPORTING
* QID =
EXCEPTIONS
CLIENT_INVALID = 1
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
USER_INVALID = 10
OTHERS = 11
.
IF SY-SUBRC <> 0.
ENDIF.
loop at IT_XK02 into WA_XK02.
CLEAR: IT_BDCDATA.

'RF02K-BUKRS'.
'/00'.
perform bdc_field using 'RF02K-LIFNR'

WA_XK02-LIFNR.
* '172'.

WA_XK02-BUKRS.
* '1000'.
perform bdc_field using 'RF02K-D0110'

'X'.
'LFA1-LAND1'.
'=UPDA'.

WA_XK02-ANRED.
* 'Mr.'.

WA_XK02-NAME1.
* 'Shan'.

WA_XK02-SORTL.
* 'SPARROW'.

WA_XK02-ORT01.
* 'perundurai'.

WA_XK02-LAND1.
* 'in'.

EXPORTING
TCODE = 'XK02'
* SIMUBATCH =
TABLES
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
POSTING_INVALID = 6
OTHERS = 7
.
IF SY-SUBRC <> 0.
ENDIF.
IF SY-SUBRC = 0.
MESSAGE 'Customer Changed Successfully' TYPE 'S'.
ENDIF.
ENDLOOP.

EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
ENDIF.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
CLEAR WA_BDCDATA.
* ENDIF.
ENDFORM.

Sap Abap BDC

Uploaded by

Copyright:

Available Formats

Sap Abap BDC

Uploaded by

Document Information

Original Description:

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Sap Abap BDC

Uploaded by

Copyright:

Available Formats

BDC with Call Transaction Method :

TYPES : BEGIN OF TY_BDC,

DATA : IT_BDC TYPE TABLE OF TY_BDC,

DATA : IT_BDCDATA TYPE TABLE OF BDCDATA,

DATA : BDCMSG TYPE TABLE OF BDCMSGCOLL.

DATA : FILE TYPE STRING.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'F4_FILENAME'

if P_FILE IS NOT INITIAL.

CALL FUNCTION 'GUI_UPLOAD'

loop at IT_BDC into WA_BDC.

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_OKCODE'

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_dynpro using 'SAPLMGMM' '0080'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_CURSOR'

perform bdc_field using 'MARA-MEINS'

perform bdc_dynpro using 'SAPLMGMM' '4000'.

perform bdc_field using 'MAKT-MAKTX'

perform bdc_dynpro using 'SAPLSPO1' '0300'.

data : wa_bdcmsg like LINE OF bdcmsg.

TYPES : BEGIN OF TY_BDC,

DATA : IT_BDC TYPE TABLE OF TY_BDC,

DATA : IT_BDCDATA TYPE TABLE OF BDCDATA,

DATA : BDCMSG TYPE TABLE OF BDCMSGCOLL.

DATA : FILE TYPE STRING.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'F4_FILENAME'

if P_FILE IS NOT INITIAL.

CALL FUNCTION 'GUI_UPLOAD'

loop at IT_BDC into WA_BDC.

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_OKCODE'

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_dynpro using 'SAPLMGMM' '0080'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_CURSOR'

perform bdc_field using 'MARA-MEINS'

perform bdc_dynpro using 'SAPLMGMM' '4000'.

perform bdc_field using 'MAKT-MAKTX'

perform bdc_field using 'MARA-MEINS'

perform bdc_dynpro using 'SAPLSPO1' '0300'.

CALL FUNCTION 'BDC_INSERT'

CALL FUNCTION 'BDC_CLOSE_GROUP'

TYPES : BEGIN OF TY_FK01,

DATA : IT_FK01 TYPE TABLE OF TY_FK01,

DATA : IT_BDCDATA TYPE TABLE OF BDCDATA,

DATA : BDCMSG TYPE TABLE OF BDCMSGCOLL.

DATA : FILE TYPE STRING.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

CALL FUNCTION 'F4_FILENAME'

if P_FILE IS NOT INITIAL.

CALL FUNCTION 'GUI_UPLOAD'

loop at IT_FK01 into WA_FK01.

perform bdc_dynpro using 'SAPMF02K' '0105'.

perform bdc_field using 'RF02K-BUKRS'

perform bdc_field using 'RF02K-KTOKK'