Skip to Content
avatar image
Former Member

Table

Hi,

any body send me example for Table control in BDC

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

4 Answers

  • Aug 17, 2007 at 10:46 AM

    HI,

    generally speaking in BDC table control is handeled with row index no. with field like tabctrl-flld(01) means first row on table. data to be updated in table control is fetched in seprate table control and this table in looped in main loop at itab.

    this is one example:

    "BDC XK01 using Table control:

    REPORT Y730_BDC5 .

    *HANDLING TABLE CONTROL IN BDC

    DATA : BEGIN OF IT_DUMMY OCCURS 0,

    DUMMY(100) TYPE C,

    END OF IT_DUMMY.

    DATA : BEGIN OF IT_XK01 OCCURS 0,

    LIFNR(10) TYPE C,

    BUKRS(4) TYPE C,

    EKORG(4) TYPE C,

    KTOKK(4) TYPE C,

    NAME1(30) TYPE C,

    SORTL(10) TYPE C,

    LAND1(3) TYPE C,

    SPRAS(2) TYPE C,

    AKONT(6) TYPE C,

    FDGRV(2) TYPE C,

    WAERS(3) TYPE C,

    END OF IT_XK01,

    BEGIN OF IT_BANK OCCURS 0,

    BANKS(3) TYPE C,

    BANKL(10) TYPE C,

    BANKN(10) TYPE C,

    KOINH(30) TYPE C,

    LIFNR(10) TYPE C,

    END OF IT_BANK.

    DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,

    IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

    CALL FUNCTION 'WS_UPLOAD'

    EXPORTING

    FILENAME = 'C:\VENDOR.TXT'

    FILETYPE = 'ASC'

    TABLES

    DATA_TAB = IT_DUMMY.

    LOOP AT IT_DUMMY.

    IF IT_DUMMY-DUMMY+0(2) = '11'.

    IT_XK01-LIFNR = IT_DUMMY-DUMMY+2(10).

    IT_XK01-BUKRS = IT_DUMMY-DUMMY+12(4).

    IT_XK01-EKORG = IT_DUMMY-DUMMY+16(4).

    IT_XK01-KTOKK = IT_DUMMY-DUMMY+20(4).

    IT_XK01-NAME1 = IT_DUMMY-DUMMY+24(30).

    IT_XK01-SORTL = IT_DUMMY-DUMMY+54(10).

    IT_XK01-LAND1 = IT_DUMMY-DUMMY+64(3).

    IT_XK01-SPRAS = IT_DUMMY-DUMMY+67(2).

    IT_XK01-AKONT = IT_DUMMY-DUMMY+69(6).

    IT_XK01-FDGRV = IT_DUMMY-DUMMY+75(2).

    IT_XK01-WAERS = IT_DUMMY-DUMMY+77(3).

    APPEND IT_XK01.

    ELSE.

    IT_BANK-BANKS = IT_DUMMY-DUMMY+2(3).

    IT_BANK-BANKL = IT_DUMMY-DUMMY+5(10).

    IT_BANK-BANKN = IT_DUMMY-DUMMY+15(10).

    IT_BANK-KOINH = IT_DUMMY-DUMMY+25(30).

    IT_BANK-LIFNR = IT_DUMMY-DUMMY+55(10).

    APPEND IT_BANK.

    ENDIF.

    ENDLOOP.

    LOOP AT IT_XK01.

    REFRESH IT_BDCDATA.

    perform bdc_dynpro using 'SAPMF02K' '0100'.

    perform bdc_field using 'BDC_CURSOR'

    'RF02K-REF_LIFNR'.

    perform bdc_field using 'BDC_OKCODE'

    '/00'.

    perform bdc_field using 'RF02K-LIFNR'

    IT_XK01-LIFNR.

    perform bdc_field using 'RF02K-BUKRS'

    IT_XK01-BUKRS.

    perform bdc_field using 'RF02K-EKORG'

    IT_XK01-EKORG.

    perform bdc_field using 'RF02K-KTOKK'

    IT_XK01-KTOKK.

    perform bdc_dynpro using 'SAPMF02K' '0110'.

    perform bdc_field using 'BDC_CURSOR'

    'LFA1-TELX1'.

    perform bdc_field using 'BDC_OKCODE'

    '/00'.

    perform bdc_field using 'LFA1-NAME1'

    IT_XK01-NAME1.

    perform bdc_field using 'LFA1-SORTL'

    IT_XK01-SORTL.

    perform bdc_field using 'LFA1-LAND1'

    IT_XK01-LAND1.

    perform bdc_field using 'LFA1-SPRAS'

    IT_XK01-SPRAS.

    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-KOINH(02)'.

    perform bdc_field using 'BDC_OKCODE'

    '=ENTR'.

    DATA : FNAM(20) TYPE C,

    IDX TYPE C.

    LFBK-BANKS(3)

    MOVE 1 TO IDX.

    LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.

    CONCATENATE 'LFBK-BANKS(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-BANKS.

    CONCATENATE 'LFBK-BANKL(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-BANKL.

    CONCATENATE 'LFBK-BANKN(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-BANKN.

    CONCATENATE 'LFBK-KOINH(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-KOINH.

    IDX = IDX + 1.

    ENDLOOP.

    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'

    IT_XK01-AKONT.

    perform bdc_field using 'LFB1-FDGRV'

    IT_XK01-FDGRV.

    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'

    IT_XK01-WAERS.

    perform bdc_dynpro using 'SAPMF02K' '0320'.

    perform bdc_field using 'BDC_CURSOR'

    'WYT3-PARVW(01)'.

    perform bdc_field using 'BDC_OKCODE'

    '=ENTR'.

    perform bdc_dynpro using 'SAPLSPO1' '0300'.

    perform bdc_field using 'BDC_OKCODE'

    '=YES'.

    CALL TRANSACTION 'XK01' USING IT_BDCDATA

    MODE 'A'

    UPDATE 'S'

    MESSAGES INTO IT_BDCMSGCOLL.

    ENDLOOP.

    FORM BDC_DYNPRO USING PROG SCR.

    CLEAR IT_BDCDATA.

    IT_BDCDATA-PROGRAM = PROG.

    IT_BDCDATA-DYNPRO = SCR.

    IT_BDCDATA-DYNBEGIN = 'X'.

    APPEND IT_BDCDATA.

    ENDFORM.

    FORM BDC_FIELD USING FNAM FVAL.

    CLEAR IT_BDCDATA.

    IT_BDCDATA-FNAM = FNAM.

    IT_BDCDATA-FVAL = FVAL.

    APPEND IT_BDCDATA.

    ENDFORM.

     

    rewards if useful,

    regards,

    nazeer

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Aug 17, 2007 at 10:46 AM

    Hi,

    check this

    PERFORM BDC_DYNPRO USING 'SAPMM06B' '0100'.

    PERFORM BDC_FIELD USING 'BDC_CURSOR'

    'EBAN-BSART'.

    PERFORM BDC_FIELD USING 'BDC_OKCODE'

    '/00'.

    *HEADER DETAILS ARE POPULATING HERE.

    PERFORM BDC_FIELD USING 'EBAN-BSART'

    C_BSART. " 'NB'. " DOCUMENT TYPE

    PERFORM BDC_FIELD USING 'RM06B-LPEIN'

    C_LPEINT . " 'T'.

    PERFORM BDC_FIELD USING 'EBAN-WERKS'

    L_WERKS . " 'H901'. " PLANT

    PERFORM BDC_FIELD USING 'EBAN-LGORT'

    L_WERKS. " 'H901'. " STORAGE LOCATION

    PERFORM BDC_FIELD USING 'EBAN-EKGRP'

    C_EKGRP. " '001'. " PURCHASING GROUP

    PERFORM BDC_FIELD USING 'EBAN-MATKL'

    C_MATKL. " '01'. " MATERIAL GROUP

    *START OF ITEM LEVEL

    LOOP AT GIT_ITEM.

    L_CNT = L_CNT + 1.

    • changes done by wab03 on 05/06/2007.

    IF L_CNT > 2.

    L_CNT = 02.

    ENDIF.

    • end of changes.

    L_LINENO = 2.

    CONCATENATE 'EBAN-KNTTP(' L_CNT ')' INTO G_FNAM.

    PERFORM BDC_DYNPRO USING 'SAPMM06B' '0106'.

    PERFORM BDC_FIELD USING 'BDC_CURSOR'

    'RM06B-EEIND'.

    PERFORM BDC_FIELD USING 'BDC_OKCODE'

    '/00'.

    CONCATENATE 'EBAN-BNFPO(' L_CNT ')' INTO G_FNAM.

    PERFORM BDC_FIELD USING G_FNAM "'EBAN-BNFPO'

    GIT_ITEM-BNFPO . "2.

    CONCATENATE 'EBAN-KNTTP(' L_CNT ')' INTO G_FNAM.

    PERFORM BDC_FIELD USING G_FNAM "'EBAN-KNTTP(L_CNT)'

    C_KNTTP . "'K'.

    CONCATENATE 'EBAN-TXZ01(' L_CNT ')' INTO G_FNAM.

    PERFORM BDC_FIELD USING G_FNAM "'EBAN-TXZ01(L_CNT)'

    L_TXZ01. " '12345678ghsdghgh'.

    CONCATENATE 'EBAN-MENGE(' L_CNT ')' INTO G_FNAM.

    PERFORM BDC_FIELD USING G_FNAM "'EBAN-MENGE(L_CNT)'

    GIT_ITEM-MENGE. "'1'.

    CONCATENATE 'EBAN-MEINS(' L_CNT ')' INTO G_FNAM.

    PERFORM BDC_FIELD USING G_FNAM "'EBAN-MEINS(L_CNT)'

    C_MEINS. "'ea'.

    CONCATENATE 'RM06B-EEIND(' L_CNT ')' INTO G_FNAM.

    PERFORM BDC_FIELD USING G_FNAM "'RM06B-EEIND(L_CNT)'

    L_LFDAT. "'27.03.2007'.

    PERFORM BDC_DYNPRO USING 'SAPMM06B' '0102'.

    PERFORM BDC_FIELD USING 'BDC_CURSOR'

    'EBAN-PREIS'.

    PERFORM BDC_FIELD USING 'BDC_OKCODE'

    '/00'.

    PERFORM BDC_FIELD USING 'EBAN-KNTTP'

    C_KNTTP . "'K'.

    PERFORM BDC_FIELD USING 'EBAN-MATKL'

    C_MATKL. " '01'. " MATERIAL GROUP

    *CONCATENATE 'EBAN-BNFPO('

    • " L_CNT ')'

    • INTO G_FNAM.

    *perform bdc_field using 'EBAN-BNFPO' " ITEM ITEM

    • git_item-BNFPO .

    PERFORM BDC_FIELD USING 'EBAN-TXZ01'

    L_TXZ01. " '12345678ghsdghgh'.

    PERFORM BDC_FIELD USING 'EBAN-LGORT'

    L_WERKS. " 'H901'. " STORAGE LOCATION

    PERFORM BDC_FIELD USING 'EBAN-MENGE'

    GIT_ITEM-MENGE. "'1'.

    PERFORM BDC_FIELD USING 'RM06B-EEIND'

    L_LFDAT. "'27.03.2007'.

    PERFORM BDC_FIELD USING 'RM06B-LPEIN'

    C_LPEIND. " 'D'.

    PERFORM BDC_FIELD USING 'EBAN-EKGRP'

    C_EKGRP. " '001'. " PURCHASING GROUP

    PERFORM BDC_FIELD USING 'EBAN-BADAT'

    L_SYDATUM. " '21.02.2007'.

    PERFORM BDC_FIELD USING 'EBAN-FRGDT'

    L_SYDATUM. " '21.02.2007'.

    PERFORM BDC_FIELD USING 'EBAN-PREIS'

    GIT_ITEM-PREIS. " ' 1000'.

    PERFORM BDC_FIELD USING 'EBAN-WAERS'

    L_WAERS. " 'INR'.

    PERFORM BDC_FIELD USING 'EBAN-PEINH'

    '1'.

    PERFORM BDC_FIELD USING 'EBAN-WEPOS'

    'X'.

    PERFORM BDC_FIELD USING 'EBAN-REPOS'

    'X'.

    PERFORM BDC_DYNPRO USING 'SAPMM06B' '0505'.

    PERFORM BDC_FIELD USING 'BDC_CURSOR'

    'EBKN-SAKTO'.

    PERFORM BDC_FIELD USING 'BDC_OKCODE'

    '=ENTE'.

    PERFORM BDC_FIELD USING 'EBKN-SAKTO'

    L_SAKTO. " '4301700'.

    PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.

    PERFORM BDC_FIELD USING 'BDC_CURSOR'

    'COBL-KOSTL'.

    PERFORM BDC_FIELD USING 'BDC_OKCODE'

    '=ENTE'.

    PERFORM BDC_FIELD USING 'COBL-KOSTL'

    L_FISTL. " 'ba00'.

    • changes done by wab03 on 05/06/2007.

    PERFORM BDC_DYNPRO USING 'SAPMM06B' '0106'.

    PERFORM BDC_FIELD USING 'BDC_CURSOR'

    'RM06B-BNFPO'.

    PERFORM BDC_FIELD USING 'BDC_OKCODE'

    '=NP'.

    PERFORM BDC_FIELD USING 'RM06B-BNFPO'

    GIT_ITEM-BNFPO. "'10'.

    • end of changes done by wab03.

    ENDLOOP.

    *ENDOF ITEM LEVEL

    • START OF NEXT SUBSEQUENT SCREEN.

    PERFORM BDC_DYNPRO USING 'SAPMM06B' '0106'.

    PERFORM BDC_FIELD USING 'BDC_CURSOR'

    'RM06B-BNFPO'.

    PERFORM BDC_FIELD USING 'BDC_OKCODE'

    '=BU'.

    PERFORM BDC_FIELD USING 'RM06B-BNFPO'

    '10'.

    *CALLING THE TRANSACTION ME51 WHICH UPDATES THE DATABASE.

    CALL TRANSACTION G_ME51 USING GIT_BDCDATA

    OPTIONS FROM GFL_OPTIONS

    • MODE G_NOSCREEN

    • UPDATE G_SYNCH

    MESSAGES INTO GIT_MESSTAB.

    thanks & regards,

    Venkatesh

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Aug 17, 2007 at 10:48 AM

    Hi Reddy

    just check this thread and search in forum before posting

    hi-regarding-bdc-with-table-control

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Aug 17, 2007 at 10:56 AM

    see this sample code

    REPORT Y730_BDC5 .

    *HANDLING TABLE CONTROL IN BDC

    DATA : BEGIN OF IT_DUMMY OCCURS 0,

    DUMMY(100) TYPE C,

    END OF IT_DUMMY.

    DATA : BEGIN OF IT_XK01 OCCURS 0,

    LIFNR(10) TYPE C,

    BUKRS(4) TYPE C,

    EKORG(4) TYPE C,

    KTOKK(4) TYPE C,

    NAME1(30) TYPE C,

    SORTL(10) TYPE C,

    LAND1(3) TYPE C,

    SPRAS(2) TYPE C,

    AKONT(6) TYPE C,

    FDGRV(2) TYPE C,

    WAERS(3) TYPE C,

    END OF IT_XK01,

    BEGIN OF IT_BANK OCCURS 0,

    BANKS(3) TYPE C,

    BANKL(10) TYPE C,

    BANKN(10) TYPE C,

    KOINH(30) TYPE C,

    LIFNR(10) TYPE C,

    END OF IT_BANK.

    DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,

    IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

    CALL FUNCTION 'WS_UPLOAD'

    EXPORTING

    FILENAME = 'C:\VENDOR.TXT'

    FILETYPE = 'ASC'

    TABLES

    DATA_TAB = IT_DUMMY.

    LOOP AT IT_DUMMY.

    IF IT_DUMMY-DUMMY+0(2) = '11'.

    IT_XK01-LIFNR = IT_DUMMY-DUMMY+2(10).

    IT_XK01-BUKRS = IT_DUMMY-DUMMY+12(4).

    IT_XK01-EKORG = IT_DUMMY-DUMMY+16(4).

    IT_XK01-KTOKK = IT_DUMMY-DUMMY+20(4).

    IT_XK01-NAME1 = IT_DUMMY-DUMMY+24(30).

    IT_XK01-SORTL = IT_DUMMY-DUMMY+54(10).

    IT_XK01-LAND1 = IT_DUMMY-DUMMY+64(3).

    IT_XK01-SPRAS = IT_DUMMY-DUMMY+67(2).

    IT_XK01-AKONT = IT_DUMMY-DUMMY+69(6).

    IT_XK01-FDGRV = IT_DUMMY-DUMMY+75(2).

    IT_XK01-WAERS = IT_DUMMY-DUMMY+77(3).

    APPEND IT_XK01.

    ELSE.

    IT_BANK-BANKS = IT_DUMMY-DUMMY+2(3).

    IT_BANK-BANKL = IT_DUMMY-DUMMY+5(10).

    IT_BANK-BANKN = IT_DUMMY-DUMMY+15(10).

    IT_BANK-KOINH = IT_DUMMY-DUMMY+25(30).

    IT_BANK-LIFNR = IT_DUMMY-DUMMY+55(10).

    APPEND IT_BANK.

    ENDIF.

    ENDLOOP.

    LOOP AT IT_XK01.

    REFRESH IT_BDCDATA.

    perform bdc_dynpro using 'SAPMF02K' '0100'.

    perform bdc_field using 'BDC_CURSOR'

    'RF02K-REF_LIFNR'.

    perform bdc_field using 'BDC_OKCODE'

    '/00'.

    perform bdc_field using 'RF02K-LIFNR'

    IT_XK01-LIFNR.

    perform bdc_field using 'RF02K-BUKRS'

    IT_XK01-BUKRS.

    perform bdc_field using 'RF02K-EKORG'

    IT_XK01-EKORG.

    perform bdc_field using 'RF02K-KTOKK'

    IT_XK01-KTOKK.

    perform bdc_dynpro using 'SAPMF02K' '0110'.

    perform bdc_field using 'BDC_CURSOR'

    'LFA1-TELX1'.

    perform bdc_field using 'BDC_OKCODE'

    '/00'.

    perform bdc_field using 'LFA1-NAME1'

    IT_XK01-NAME1.

    perform bdc_field using 'LFA1-SORTL'

    IT_XK01-SORTL.

    perform bdc_field using 'LFA1-LAND1'

    IT_XK01-LAND1.

    perform bdc_field using 'LFA1-SPRAS'

    IT_XK01-SPRAS.

    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-KOINH(02)'.

    perform bdc_field using 'BDC_OKCODE'

    '=ENTR'.

    DATA : FNAM(20) TYPE C,

    IDX TYPE C.

    MOVE 1 TO IDX.

    LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.

    CONCATENATE 'LFBK-BANKS(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-BANKS.

    CONCATENATE 'LFBK-BANKL(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-BANKL.

    CONCATENATE 'LFBK-BANKN(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-BANKN.

    CONCATENATE 'LFBK-KOINH(' IDX ')' INTO FNAM.

    perform bdc_field using FNAM

    IT_BANK-KOINH.

    IDX = IDX + 1.

    ENDLOOP.

    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'

    IT_XK01-AKONT.

    perform bdc_field using 'LFB1-FDGRV'

    IT_XK01-FDGRV.

    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'

    IT_XK01-WAERS.

    perform bdc_dynpro using 'SAPMF02K' '0320'.

    perform bdc_field using 'BDC_CURSOR'

    'WYT3-PARVW(01)'.

    perform bdc_field using 'BDC_OKCODE'

    '=ENTR'.

    perform bdc_dynpro using 'SAPLSPO1' '0300'.

    perform bdc_field using 'BDC_OKCODE'

    '=YES'.

    CALL TRANSACTION 'XK01' USING IT_BDCDATA

    MODE 'A'

    UPDATE 'S'

    MESSAGES INTO IT_BDCMSGCOLL.

    ENDLOOP.

    FORM BDC_DYNPRO USING PROG SCR.

    CLEAR IT_BDCDATA.

    IT_BDCDATA-PROGRAM = PROG.

    IT_BDCDATA-DYNPRO = SCR.

    IT_BDCDATA-DYNBEGIN = 'X'.

    APPEND IT_BDCDATA.

    ENDFORM.

    FORM BDC_FIELD USING FNAM FVAL.

    CLEAR IT_BDCDATA.

    IT_BDCDATA-FNAM = FNAM.

    IT_BDCDATA-FVAL = FVAL.

    APPEND IT_BDCDATA.

    ENDFORM.

    regards,

    srinivas

    <b>*reward for useful answers*</b>

    Add comment
    10|10000 characters needed characters exceeded