I have wrote a BDC for transaction FF63.
but its filling the data in the first screen but in the next screen its not filling.
Please advice
&----
Report ZTEST_RESER_BDC.
&----
*----
data: bdc_tab like standard table of bdcdata initial size 0 with header line,
T_MESSTAB TYPE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
parameters: dis_mode default 'A',
upd_mode default 'S'.
start-of-selection.
perform fill_bdc_data.
call transaction 'FF63'
using bdc_tab
mode dis_mode
update upd_mode
messages into T_MESSTAB.
if sy-subrc <> 0.
write 'error'.
endif.
commit work.
leave program.
----
----
----
----
FORM fill_bdc_data .
refresh bdc_tab.
perform populate_bdc_tab
using:
'1' 'SAPMF40E' '0100',
'' 'BDC_CURSOR' 'FDES-BUKRS',
'' 'BDC_OKCODE' '=ONE',
'' 'FDES-BUKRS' '1100',
'' 'FDES-DSART' 'FA',
'1' 'SAPMF40E' '0101',
'' 'FDES-DATUM' '10/25/2007',
'' 'FDES-AVDAT' '10/25/2007',
'' 'RF40L-DISKB' '50100',
'' 'FDES-WRSHB' '1002.00',
'' 'FDES-DISPW' 'USD',
'' 'FDES-DMSHB' '1002.00',
'' 'FDES-GSBER' '0056',
'' 'FDES-REFER' 'E101000487',
'' 'FDES-SGTXT' 'Call Using BDC',
'' 'BDC_OKCODE' '=UPD'.
ENDFORM. " fill_bdc_data
&----
*& Form populate_bdc_tab
&----
----
----
FORM populate_bdc_tab USING flag type c
var1 type c
var2 type c.
clear bdc_tab.
if flag = '1'.
bdc_tab-program = var1.
bdc_tab-program = var2.
bdc_tab-dynbegin = 'X'.
else.
bdc_tab-fnam = var1.
bdc_tab-fval = var2.
endif.
append bdc_tab.
ENDFORM. " populate_bdc_tab
Bluesky
