topic Re: Problem in table control in BDC in Application Development and Automation Discussions

Problem in table control in BDC

Former Member — Mon, 26 Feb 2007 11:58:06 GMT

Hi Experts,

When using table controls in BDC, for example say XK01 or XD01 we have to enter bank details such as bank name, bank key etc. in table control. Here there are at most 5 visible records(banks) . Suppose I have to enter say 10 banks information, how do i do it. I need the code for the same.

Also I need the code for the same while using BAPI.

Thanks in advance.

Healthy points will be rewarded.

Regards

Re: Problem in table control in BDC

Former Member — Mon, 26 Feb 2007 12:06:38 GMT

Hi!

Check out this link:

http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm

Regards

Tamá

Re: Problem in table control in BDC

Former Member — Mon, 26 Feb 2007 12:12:20 GMT

Hello,

Check this:

COde:

REPORT zprataptable2
       NO STANDARD PAGE HEADING LINE-SIZE 255.
DATA : BEGIN OF itab OCCURS 0,
        i1 TYPE i,
        lifnr LIKE   rf02k-lifnr,
        bukrs LIKE   rf02k-bukrs,
        ekorg LIKE   rf02k-ekorg,
        ktokk LIKE   rf02k-ktokk,
        anred LIKE lfa1-anred,
        name1 LIKE lfa1-name1,
        sortl LIKE lfa1-sortl,
        land1 LIKE lfa1-land1,
        akont LIKE lfb1-akont,
        fdgrv LIKE lfb1-fdgrv,
         waers LIKE lfm1-waers,
        END OF itab.

DATA : BEGIN OF jtab OCCURS 0,
        j1 TYPE i,
        banks LIKE lfbk-banks,
        bankl LIKE lfbk-bankl,
        bankn LIKE lfbk-bankn,
         END OF jtab.

DATA : cnt(4) TYPE n.
DATA : fdt(20) TYPE c.

DATA : c TYPE i.



INCLUDE bdcrecx1.

START-OF-SELECTION.

  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      filename = 'C:first1.txt'
      filetype = 'DAT'
    TABLES
      data_tab = itab.

  CALL FUNCTION 'WS_UPLOAD'
   EXPORTING
     filename                      = 'C:second.txt'
     filetype                      = 'DAT'
    TABLES
      data_tab                      = jtab.



  LOOP AT 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'
                                  itab-lifnr.
    PERFORM bdc_field       USING 'RF02K-BUKRS'
                                  itab-bukrs.
    PERFORM bdc_field       USING 'RF02K-EKORG'
                                   itab-ekorg.
    PERFORM bdc_field       USING 'RF02K-KTOKK'
                                   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-ANRED'
                                  itab-anred.
    PERFORM bdc_field       USING 'LFA1-NAME1'
                                  itab-name1.
    PERFORM bdc_field       USING 'LFA1-SORTL'
                                  itab-sortl.
    PERFORM bdc_field       USING 'LFA1-LAND1'
                                  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-BANKN(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=ENTR'.
    cnt = 0.
    LOOP AT jtab WHERE j1 = itab-i1.
      cnt = cnt + 1.
      CONCATENATE 'LFBK-BANKS(' cnt ')' INTO fdt.
      PERFORM bdc_field  USING fdt jtab-banks.

      CONCATENATE 'LFBK-BANKL(' cnt ')' INTO fdt.
      PERFORM bdc_field USING fdt jtab-bankl.

      CONCATENATE 'LFBK-BANKN(' cnt ')' INTO fdt.
      PERFORM bdc_field   USING fdt jtab-bankn.
      IF cnt = 5.
        cnt = 0.
        PERFORM bdc_dynpro      USING 'SAPMF02K' '0130'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'LFBK-BANKS(01)'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '=P+'.


        PERFORM bdc_dynpro      USING 'SAPMF02K' '0130'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'LFBK-BANKN(02)'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '=ENTR'.
      ENDIF.
    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'
                                  itab-akont.
    PERFORM bdc_field       USING 'LFB1-FDGRV'
                                  itab-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'
                                  itab-waers.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0320'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RF02K-LIFNR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=ENTR'.
    PERFORM bdc_dynpro      USING 'SAPLSPO1' '0300'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=YES'.
    PERFORM bdc_transaction USING 'XK01'.
  ENDLOOP.
  PERFORM close_group.

Header file:

1	63190 	0001	0001	0001	mr	bal188	b	in	31000	a1	inr
2	63191 	0001	0001	0001	mr	bal189	b	in	31000	a1	inr

TC file:

1 in sb 11000

1 in sb 12000

1 in sb 13000

1 in sb 14000

1 in sb 15000

1 in sb 16000

1 in sb 17000

1 in sb 18000

1 in sb 19000

1 in sb 20000

1 in sb 21000

1 in sb 22000

2 in sb 21000

2 in sb 22000

Regards,

Vasanth

Re: Problem in table control in BDC

Former Member — Wed, 28 Feb 2007 10:42:16 GMT

Hi Experts,

Can anyone provide me any other way other that the ones given below. I am not finding them fitting to my coding.

Regards

Re: Problem in table control in BDC

Former Member — Wed, 28 Feb 2007 11:19:20 GMT

Hi,

Check this, you can find the BDC code for XK01 transaction

Regards,

Saumya

Re: Problem in table control in BDC

Former Member — Wed, 11 Apr 2007 11:14:33 GMT

Hi Nagaraj,

I think this code will help u.

report YRAFI_222V no standard page heading line-size 255.

*PROVIDE WORK AREA .

TABLES : RF02K, LFA1, LFBK, LFB1,LFM1.

*ITAB DECLARATIONS.

DATA : BEGIN OF ITAB OCCURS 0,

*SCREEN 100.

LIFNR LIKE RF02K-LIFNR,

BUKRS LIKE RF02K-BUKRS,

EKORG LIKE RF02K-EKORG,

KTOKK LIKE RF02K-KTOKK,

*SCREEN 110.

ANRED LIKE LFA1-ANRED,

NAME1 LIKE LFA1-NAME1,

SORTL LIKE LFA1-SORTL,

ORT01 LIKE LFA1-ORT01,

PSTLZ LIKE LFA1-PSTLZ,

LAND1 LIKE LFA1-LAND1,

SPRAS LIKE LFA1-SPRAS,

*SCREEN 130 TABLECONTROL.

BANKS(150) TYPE C,

BANKL(150) TYPE C,

BANKN(150) TYPE C,

*SCREEN 210.

AKONT LIKE LFB1-AKONT,

FDGRV LIKE LFB1-FDGRV,

*SCREEN 310.

WAERS LIKE LFM1-WAERS,

END OF ITAB.

*MAINTAIN INTERNAL TABLES EACH FIELD EXITSING IN TABLE CONTROL.

DATA : BEGIN OF BANKS OCCURS 0,

BANKS LIKE LFBK-BANKS,

END OF BANKS.

DATA : BEGIN OF BANKL OCCURS 0,

BANKL LIKE LFBK-BANKL,

END OF BANKL.

DATA : BEGIN OF BANKN OCCURS 0,

BANKN LIKE LFBK-BANKN,

END OF BANKN.

DATA : FLD(40) TYPE C,

CNT(20) TYPE N.

include bdcrecx1.

start-of-selection.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

CODEPAGE = ' '

FILENAME = 'C:\MADU.TXT'

FILETYPE = 'DAT'

HEADLEN = ' '
LINE_EXIT = ' '
TRUNCLEN = ' '
USER_FORM = ' '
USER_PROG = ' '
DAT_D_FORMAT = ' '
IMPORTING
FILELENGTH =

TABLES

DATA_TAB = ITAB.

EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 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.

perform open_group.

LOOP AT ITAB.

REFRESH BDCDATA.

REFRESH : BANKS ,BANKL,BANKN.

SPLIT ITAB-BANKS AT ',' INTO TABLE BANKS .

SPLIT ITAB-BANKL AT ',' INTO TABLE BANKL .

SPLIT ITAB-BANKN AT ',' INTO TABLE BANKN .

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'

ITAB-LIFNR.

perform bdc_field using 'RF02K-BUKRS'

ITAB-BUKRS.

perform bdc_field using 'RF02K-EKORG'

ITAB-EKORG.

perform bdc_field using 'RF02K-KTOKK'

ITAB-KTOKK.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-SPRAS'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_field using 'LFA1-ANRED'

ITAB-ANRED.

perform bdc_field using 'LFA1-NAME1'

ITAB-NAME1.

perform bdc_field using 'LFA1-SORTL'

ITAB-SORTL.

perform bdc_field using 'LFA1-ORT01'

ITAB-ORT01.

perform bdc_field using 'LFA1-PSTLZ'

ITAB-PSTLZ.

perform bdc_field using 'LFA1-LAND1'

ITAB-LAND1.

perform bdc_field using 'LFA1-SPRAS'

ITAB-SPRAS.

perform bdc_dynpro using 'SAPMF02K' '0120'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-KUNNR'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

DATA : X(2) , N(2) TYPE N.

N = 0.

LOOP AT BANKS .

N = N + 1.

ENDLOOP.

X = 1.

perform bdc_dynpro using 'SAPMF02K' '0130'.

CNT = 1.

DO N TIMES.

IF CNT > 5.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=P+'.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '130'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' 'LFBK-BANKS(01)'.

CNT = 1.

ENDIF.

LOOP AT BANKS FROM X TO X.

CONCATENATE 'LFBK-BANKS(' CNT ')' INTO FLD.

PERFORM BDC_FIELD USING FLD BANKS-BANKS.

ENDLOOP.

LOOP AT BANKL FROM X TO X.

CONCATENATE 'LFBK-BANKL(' CNT ')' INTO FLD.

PERFORM BDC_FIELD USING FLD BANKL-BANKL.

ENDLOOP.

LOOP AT BANKN FROM X TO X.

CONCATENATE 'LFBK-BANKN(' CNT ')' INTO FLD.

PERFORM BDC_FIELD USING FLD BANKN-BANKN.

ENDLOOP.

CNT = CNT + 1.

X = X + 1.

ENDDO.

*perform bdc_field using 'BDC_CURSOR'

'LFBK-BANKN(01)'.

*perform bdc_field using 'BDC_OKCODE'

'=VW'.

*perform bdc_field using 'LFBK-BANKS(01)'

'IN'.

*perform bdc_field using 'LFBK-BANKL(01)'

'SBI'.

*perform bdc_field using 'LFBK-BANKN(01)'

'456789'.

perform bdc_dynpro using 'SAPMF02K' '0210'.

perform bdc_field using 'BDC_CURSOR'

'LFB1-FDGRV'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_field using 'LFB1-AKONT'

ITAB-AKONT.

perform bdc_field using 'LFB1-FDGRV'

ITAB-FDGRV.

perform bdc_dynpro using 'SAPMF02K' '0215'.

perform bdc_field using 'BDC_CURSOR'

'LFB1-ZTERM'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_dynpro using 'SAPMF02K' '0220'.

perform bdc_field using 'BDC_CURSOR'

'LFB5-MAHNA'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_dynpro using 'SAPMF02K' '0310'.

perform bdc_field using 'BDC_CURSOR'

'LFM1-WAERS'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_field using 'LFM1-WAERS'

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.

perform close_group.

Rgds,

P.Naganjana Reddy