Hi ,
See below code, it may help you.
report Z_VER_XK01_RPG no standard page heading line-size 255.
include bdcrecx1.
types : begin of typ_itab,
lifnr type lifnr,
burks type bukrs,
ekorg type ekorg,
ktokk type ktokk,
name1 type name1,
sortl type sortl,
land1 type land1,
akont type akont,
fgdrv type lfb1-fdgrv,
waers type lfm1-waers,
end of typ_itab.
data : it_itab type standard table of typ_itab initial size 0,
wa_itab type typ_itab,
v_file like rlgrap-filename,
u_file type string.
parameters : p_file like rlgrap-filename.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
IMPORTING
FILE_NAME = v_file.
if v_file is not initial.
p_file = v_file.
endif.
start-of-selection.
u_file = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = u_file
FILETYPE = 'ASC'
TABLES
DATA_TAB = it_itab.
perform open_group.
LOOP AT it_itab INTO wa_itab.
perform bdc_dynpro using 'SAPMF02K' '0100'.
perform bdc_field using 'BDC_CURSOR' 'RF02K-KTOKK'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'RF02K-LIFNR' wa_itab-lifnr.
perform bdc_field using 'RF02K-BUKRS' wa_itab-burks.
perform bdc_field using 'RF02K-EKORG' wa_itab-ekorg.
perform bdc_field using 'RF02K-KTOKK' wa_itab-ktokk.
perform bdc_dynpro using 'SAPMF02K' '0110'.
perform bdc_field using 'BDC_CURSOR' 'LFA1-LAND1'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'LFA1-NAME1' wa_itab-name1.
perform bdc_field using 'LFA1-SORTL' wa_itab-sortl.
perform bdc_field using 'LFA1-LAND1' wa_itab-land1.
perform bdc_dynpro using 'SAPMF02K' '0120'.
perform bdc_field using 'BDC_CURSOR' 'LFA1-KUNNR'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_dynpro using 'SAPMF02K' '0130'.
perform bdc_field using 'BDC_CURSOR' 'LFBK-BANKS(01)'.
perform bdc_field using 'BDC_OKCODE' '=ENTR'.
perform bdc_dynpro using 'SAPMF02K' '0210'.
perform bdc_field using 'BDC_CURSOR' 'LFB1-FDGRV'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'LFB1-AKONT' wa_itab-akont.
perform bdc_field using 'LFB1-FDGRV' wa_itab-fgdrv.
perform bdc_dynpro using 'SAPMF02K' '0215'.
perform bdc_field using 'BDC_CURSOR' 'LFB1-ZTERM'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_dynpro using 'SAPMF02K' '0220'.
perform bdc_field using 'BDC_CURSOR' 'LFB5-MAHNA'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_dynpro using 'SAPMF02K' '0310'.
perform bdc_field using 'BDC_CURSOR' 'LFM1-WAERS'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'LFM1-WAERS' wa_itab-waers.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR' 'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE' '=UPDA'.
perform bdc_transaction using 'XK01'.
ENDLOOP.
Regards,
Vishvesh
if helpful, rewards it
Bluesky
