uploading old material number using bdc call transaction method

[Former Member]

Hello Guys can any body give me sample program to upload old material number using bdc call transaction method.

Regards

Janapathi

[Former Member]

REPORT ZRKCALLTRANS.

TABLES:MARA,MAKT.

DATA:BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MAKTX LIKE MAKT-MAKTX,

MEINS LIKE MARA-MEINS,

MATKL LIKE MARA-MATKL,

END OF ITAB.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = 'd:\bdc1.TXT '

FILETYPE = 'ASC'

TABLES

DATA_TAB = ITAB.

.

DATA : BDCDATA1 LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

LOOP AT ITAB.

REFRESH BDCDATA1.

*SCREEN 1

BDCDATA1-PROGRAM = 'SAPLMGMM'.

BDCDATA1-DYNPRO = '60'.

BDCDATA1-DYNBEGIN = 'X'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• FIELD1:MATNR MATERIAL NUMBER

BDCDATA1-FNAM = 'RMMG1-MATNR'.

BDCDATA1-FVAL = ITAB-MATNR.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• FIELD2:MBRSH INDUSTRY SECTOR

BDCDATA1-FNAM = 'RMMG1-MBRSH'.

BDCDATA1-FVAL = ITAB-MBRSH.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• FIELD3:MTAR1 MATERIAL TYPE

BDCDATA1-FNAM = 'RMMG1-MTART'.

BDCDATA1-FVAL = ITAB-MTART.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• CLICKING RIGHT BUTTON

BDCDATA1-FNAM = 'BDC_OKCODE'.

BDCDATA1-FVAL = '/00'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• SCREEN 2

BDCDATA1-PROGRAM = 'SAPLMGMM'.

BDCDATA1-DYNPRO = '0070'.

BDCDATA1-DYNBEGIN = 'X'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• SELECTING AND CLICKING BASICDATA1

BDCDATA1-FNAM = 'MSICHTAUSW-KZSEL(01)'.

BDCDATA1-FVAL = 'X'.

APPEND BDCDATA1.

CLEAR bdcdata1.

• CLICKING ENTER BUTTON

BDCDATA1-FNAM = 'BDC_OKCODE'.

BDCDATA1-FVAL = '=ENTR'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• SCREEN 3

BDCDATA1-PROGRAM = 'SAPLMGMM'.

BDCDATA1-DYNBEGIN = '4004'.

BDCDATA1-DYNBEGIN = 'X'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• ENTERING MATERIAL DESCRIPTION =COCOCOLA

BDCDATA1-FNAM = 'MAKT-MAKTX'.

BDCDATA1-FVAL = ITAB-MAKTX.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• ENTERING BASIC UNIT OF MEASURE = BT

BDCDATA1-FNAM = 'MARA-MEINS'.

BDCDATA1-FVAL = ITAB-MEINS.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• ENTERING MATERIAL GROUP = 02004

BDCDATA1-FNAM = 'MARA-MATKL'.

BDCDATA1-FVAL = ITAB-MATKL.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• CLICKING SAVE BUTTON

BDCDATA1-FNAM = 'BDC_OKCODE'.

BDCDATA1-FVAL = '=BU'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

CALL TRANSACTION 'MM01' USING BDCDATA1 MODE 'A' UPDATE 'A'.

ENDLOOP.

regards,

srinivas

[Former Member]

REPORT ZRKCALLTRANS.

TABLES:MARA,MAKT.

DATA:BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MAKTX LIKE MAKT-MAKTX,

MEINS LIKE MARA-MEINS,

MATKL LIKE MARA-MATKL,

END OF ITAB.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = 'd:\bdc1.TXT '

FILETYPE = 'ASC'

TABLES

DATA_TAB = ITAB.

.

DATA : BDCDATA1 LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

LOOP AT ITAB.

REFRESH BDCDATA1.

*SCREEN 1

BDCDATA1-PROGRAM = 'SAPLMGMM'.

BDCDATA1-DYNPRO = '60'.

BDCDATA1-DYNBEGIN = 'X'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• FIELD1:MATNR MATERIAL NUMBER

BDCDATA1-FNAM = 'RMMG1-MATNR'.

BDCDATA1-FVAL = ITAB-MATNR.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• FIELD2:MBRSH INDUSTRY SECTOR

BDCDATA1-FNAM = 'RMMG1-MBRSH'.

BDCDATA1-FVAL = ITAB-MBRSH.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• FIELD3:MTAR1 MATERIAL TYPE

BDCDATA1-FNAM = 'RMMG1-MTART'.

BDCDATA1-FVAL = ITAB-MTART.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• CLICKING RIGHT BUTTON

BDCDATA1-FNAM = 'BDC_OKCODE'.

BDCDATA1-FVAL = '/00'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• SCREEN 2

BDCDATA1-PROGRAM = 'SAPLMGMM'.

BDCDATA1-DYNPRO = '0070'.

BDCDATA1-DYNBEGIN = 'X'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• SELECTING AND CLICKING BASICDATA1

BDCDATA1-FNAM = 'MSICHTAUSW-KZSEL(01)'.

BDCDATA1-FVAL = 'X'.

APPEND BDCDATA1.

CLEAR bdcdata1.

• CLICKING ENTER BUTTON

BDCDATA1-FNAM = 'BDC_OKCODE'.

BDCDATA1-FVAL = '=ENTR'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• SCREEN 3

BDCDATA1-PROGRAM = 'SAPLMGMM'.

BDCDATA1-DYNBEGIN = '4004'.

BDCDATA1-DYNBEGIN = 'X'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• ENTERING MATERIAL DESCRIPTION =COCOCOLA

BDCDATA1-FNAM = 'MAKT-MAKTX'.

BDCDATA1-FVAL = ITAB-MAKTX.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• ENTERING BASIC UNIT OF MEASURE = BT

BDCDATA1-FNAM = 'MARA-MEINS'.

BDCDATA1-FVAL = ITAB-MEINS.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• ENTERING MATERIAL GROUP = 02004

BDCDATA1-FNAM = 'MARA-MATKL'.

BDCDATA1-FVAL = ITAB-MATKL.

APPEND BDCDATA1.

CLEAR BDCDATA1.

• CLICKING SAVE BUTTON

BDCDATA1-FNAM = 'BDC_OKCODE'.

BDCDATA1-FVAL = '=BU'.

APPEND BDCDATA1.

CLEAR BDCDATA1.

CALL TRANSACTION 'MM01' USING BDCDATA1 MODE 'A' UPDATE 'A'.

ENDLOOP.

regards,

srinivas