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

Problem in BDC

Former Member — Fri, 01 Jun 2007 05:23:45 GMT

Hi SAP folks

I have a problem while creating a material using BDC.

i have recorded the transaction MM01,while recording i selected many views and after views i clicked enter and passed the values in organisation levels screen.

while executing ,the data is not displayed for organisation levels screen.The following Code.In debug mode internal table has the data.

DATA : bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

*include bdcrecx1.

*START-OF-SELECTION.

LOOP AT it_mat_data INTO wa_mat_data.

PERFORM open_group.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1_REF-MATNR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_field USING 'RMMG1-MBRSH'

'B'.

PERFORM bdc_field USING 'RMMG1-MTART'

'ZFIN'.

PERFORM bdc_field USING 'RMMG1_REF-MATNR'

'y90000'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(17)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(02)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(04)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(05)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(06)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(07)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(12)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(13)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(14)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(15)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(17)'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(15)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(13)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(14)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(15)'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(16)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(13)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(14)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(15)'

'X'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(16)'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0080'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1_REF-VTWEG'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_field USING 'RMMG1-WERKS'

wa_mat_data-werks.

PERFORM bdc_field USING 'RMMG1_REF-WERKS'

'1000'.

PERFORM bdc_field USING 'RMMG1-LGORT'

wa_mat_data-lgort.

PERFORM bdc_field USING 'RMMG1_REF-LGORT'

'0040'.

PERFORM bdc_field USING 'RMMG1-VKORG'

wa_mat_data-vkorg.

PERFORM bdc_field USING 'RMMG1_REF-VKORG'

'1100'.

PERFORM bdc_field USING 'RMMG1-VTWEG'

wa_mat_data-vtweg.

PERFORM bdc_field USING 'RMMG1_REF-VTWEG'

'10'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MAKT-MAKTX'

wa_mat_data-maktx.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARA-EXTWG'

'CST'.

PERFORM bdc_field USING 'MARA-SPART'

'99'.

PERFORM bdc_field USING 'MARA-LABOR'

'N/A'.

PERFORM bdc_field USING 'MARA-PRDHA'

wa_mat_data-prdha.

PERFORM bdc_field USING 'MARA-MSTAE'

'ET'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-VOLUM'.

PERFORM bdc_field USING 'MARA-BRGEW'

'0.001'.

PERFORM bdc_field USING 'MARA-GEWEI'

'LB'.

PERFORM bdc_field USING 'MARA-NTGEW'

'0.001'.

PERFORM bdc_field USING 'MARA-VOLUM'

'0.007'.

PERFORM bdc_field USING 'MARA-VOLEH'

'"3'.

PERFORM bdc_field USING 'DESC_LANGU_GDTXT'

'E'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-WRKST'

'B426'.

PERFORM bdc_field USING 'MARA-ZEINR'

'01Y90000M'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARA-SPART'

'99'.

PERFORM bdc_field USING 'MVKE-DWERK'

'1000'.

PERFORM bdc_field USING 'MVKE-SKTOF'

'X'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MG03STEUER-TAXKM(02)'.

PERFORM bdc_field USING 'MG03STEUER-TAXKM(01)'

'1'.

PERFORM bdc_field USING 'MG03STEUER-TAXKM(02)'

'1'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARA-SPART'

'99'.

PERFORM bdc_field USING 'MVKE-DWERK'

'1000'.

PERFORM bdc_field USING 'MVKE-SKTOF'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARA-SPART'

'99'.

PERFORM bdc_field USING 'MVKE-DWERK'

'1000'.

PERFORM bdc_field USING 'MVKE-SKTOF'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4200'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARA-SPART'

'99'.

PERFORM bdc_field USING 'MVKE-DWERK'

'1000'.

PERFORM bdc_field USING 'MVKE-SKTOF'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MVKE-VERSG'

'1'.

PERFORM bdc_field USING 'MVKE-KONDM'

'04'.

PERFORM bdc_field USING 'MVKE-MTPOS'

'NORM'.

PERFORM bdc_field USING 'MVKE-PRODH'

'053511772592'.

PERFORM bdc_field USING 'MVKE-MVGR1'

'183'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARA-BRGEW'

'0.001'.

PERFORM bdc_field USING 'MARA-GEWEI'

'LB'.

PERFORM bdc_field USING 'MARA-NTGEW'

'0.001'.

PERFORM bdc_field USING 'MARC-MTVFP'

'02'.

PERFORM bdc_field USING 'MARA-TRAGR'

'0001'.

PERFORM bdc_field USING 'MARC-LADGR'

'0004'.

PERFORM bdc_field USING 'MARC-PRCTR'

'11100'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARC-STAWN'

''.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARC-HERKL'.

PERFORM bdc_field USING 'MARC-HERKL'

''.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARC-DISGR'

'ST99'.

PERFORM bdc_field USING 'MARC-MAABC'

'C'.

PERFORM bdc_field USING 'MARC-MMSTA'

'ET'.

PERFORM bdc_field USING 'MARC-DISMM'

'ND'.

PERFORM bdc_field USING 'MARC-DISPO'

'360'.

PERFORM bdc_field USING 'MARC-DISLS'

'EX'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARC-BESKZ'

'E'.

PERFORM bdc_field USING 'MARC-LGPRO'

'0040'.

PERFORM bdc_field USING 'MARC-FHORI'

'000'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARC-PERKZ'

'M'.

PERFORM bdc_field USING 'MARC-MISKZ'

'1'.

PERFORM bdc_field USING 'MARC-MTVFP'

'02'.

PERFORM bdc_field USING 'MARC-WZEIT'

'7'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARC-SBDKZ'

'1'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MPOP-PRMOD'

'0'.

PERFORM bdc_field USING 'MARC-PERKZ'

'M'.

PERFORM bdc_field USING 'MPOP-PERAN'

'60'.

PERFORM bdc_field USING 'MPOP-ANZPR'

'12'.

PERFORM bdc_field USING 'MPOP-KZINI'

'X'.

PERFORM bdc_field USING 'MPOP-SIGGR'

'4.000'.

PERFORM bdc_field USING 'MPOP-MODAV'

'2'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARC-MMSTA'

'ET'.

PERFORM bdc_field USING 'MARC-FEVOR'

'320'.

PERFORM bdc_field USING 'MARC-LGPRO'

'0040'.

PERFORM bdc_field USING 'MARC-SFCPF'

'ZB02NP'.

PERFORM bdc_field USING 'MARC-UNETO'

'25.0'.

PERFORM bdc_field USING 'MARC-UEETO'

'10.0'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARC-ABCIN'

'D'.

PERFORM bdc_field USING 'MARC-CCFIX'

'X'.

PERFORM bdc_field USING 'MARA-IPRKZ'

'D'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-BRGEW'

'0.001'.

PERFORM bdc_field USING 'MARA-GEWEI'

'LB'.

PERFORM bdc_field USING 'MARA-NTGEW'

'0.001'.

PERFORM bdc_field USING 'MARA-VOLUM'

'0.007'.

PERFORM bdc_field USING 'MARA-VOLEH'

'"3'.

PERFORM bdc_field USING 'MARC-PRCTR'

'11100'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MARA-SPART'

'99'.

PERFORM bdc_field USING 'MBEW-BKLAS'

'7920'.

PERFORM bdc_field USING 'MBEW-VPRSV'

'S'.

PERFORM bdc_field USING 'MBEW-PEINH'

'1,000'.

PERFORM bdc_field USING 'MBEW-STPRS'

'22.58'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MARA-MEINS'

'EA'.

PERFORM bdc_field USING 'MBEW-EKALR'

'X'.

PERFORM bdc_field USING 'MBEW-HKMAT'

'X'.

PERFORM bdc_field USING 'MARC-AWSLS'

'000001'.

PERFORM bdc_field USING 'MARC-MMSTA'

'ET'.

PERFORM bdc_field USING 'MARC-PRCTR'

'11100'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARC-LOSGR'.

PERFORM bdc_field USING 'MARC-LOSGR'

wa_mat_data-kwmeng.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

'714122-19,REV.D'.

PERFORM bdc_field USING 'MBEW-BKLAS'

'7920'.

PERFORM bdc_field USING 'MBEW-VPRSV'

'S'.

PERFORM bdc_field USING 'MBEW-PEINH'

'1,000'.

PERFORM bdc_field USING 'MBEW-STPRS'

'22.58'.

PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=YES'.

PERFORM bdc_transaction USING 'MM01'.

CALL TRANSACTION 'MM01' USING bdcdata MODE 'A' UPDATE 'S'.

refresh bdcdata.

ENDLOOP.

----

Start new screen *

----

FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ENDFORM. "BDC_DYNPRO

----

Insert field *

----

FORM bdc_field USING fnam fval.

IF fval <> nodata.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

ENDIF.

ENDFORM. "BDC_FIELD

Re: Problem in BDC

Former Member — Fri, 01 Jun 2007 05:28:21 GMT

Hi Balaji,

Avoid BDC on MM01. You can either use BAPI or LSMW for the same.

Regards,

Atish

Re: Problem in BDC

Former Member — Fri, 01 Jun 2007 05:28:47 GMT

The views which popup after you enter the material number in MM01 are dynamic and or not constant. They vary from material to material.

Refer the field PSTAT in MARA in this regard.

I feel, BAPI BAPI_MATERIAL_SAVEDATA is the best way for MM01.

Also, refer this blog

<a href=" /people/kathirvel.balakrishnan2/blog/2006/05/08/data-upload-into-sap-from-microsoft-excel-150-abap-part ">/people/kathirvel.balakrishnan2/blog/2006/05/08/data-upload-into-sap-from-microsoft-excel-150-abap-part</a>

Regards

Raj

Message was edited by:

Rajasekhar Dinavahi

Re: Problem in BDC

Former Member — Fri, 01 Jun 2007 05:30:52 GMT

Look at the below code for MM01-handlling views

http://www.sap-img.com/abap/example-how-views-are-dealt-in-bdc.htm

Re: Problem in BDC

Former Member — Fri, 01 Jun 2007 05:30:58 GMT

hi balaji,

have a look on your source file, if i think right there is a problem,

we should maintain correct table type and lenth in source fire.

regards,

seshu.

Re: Problem in BDC

Former Member — Fri, 01 Jun 2007 05:34:17 GMT

I suggest using the BAPI instead of BDC.

report ztest .
 
data: headdata type bapimathead.
data: clientdata type bapi_mara.
data: clientdatax type bapi_marax.
data: descdata type table of BAPI_MAKT with header line.
data: return type  bapiret2 .
data: returnm type table of bapi_matreturn2 with header line.
data: xmara type mara.
 
 
parameters: p_matnr type mara-matnr.
 
 
headdata-material        = p_matnr.
headdata-ind_sector      = 'M'.
headdata-matl_type       = 'FERT'.
headdata-basic_view = 'X'.
 
 
clientdata-BASE_UOM   = 'EA'.
clientdatax-BASE_UOM   = 'X'.
clientdata-old_mat_no = 'Old Material'.
clientdatax-old_mat_no = 'X'.
clientdata-division = '00'.
clientdatax-division = 'X'.
 
descdata-LANGU = sy-langu.
descdata-MATL_DESC = 'This is the description'.
append descdata.
 
call function 'BAPI_MATERIAL_SAVEDATA'
  exporting
    headdata                   = headdata
    clientdata                 = clientdata
    clientdatax                = clientdatax
*   PLANTDATA                  =
*   PLANTDATAX                 =
*   FORECASTPARAMETERS         =
*   FORECASTPARAMETERSX        =
*   PLANNINGDATA               =
*   PLANNINGDATAX              =
*   STORAGELOCATIONDATA        =
*   STORAGELOCATIONDATAX       =
*   VALUATIONDATA              =
*   VALUATIONDATAX             =
*   WAREHOUSENUMBERDATA        =
*   WAREHOUSENUMBERDATAX       =
*   SALESDATA                  =
*   SALESDATAX                 =
*   STORAGETYPEDATA            =
*   STORAGETYPEDATAX           =
 importing
   return                     = return
  tables
    MATERIALDESCRIPTION        = descdata
*   UNITSOFMEASURE             =
*   UNITSOFMEASUREX            =
*   INTERNATIONALARTNOS        =
*   MATERIALLONGTEXT           =
*   TAXCLASSIFICATIONS         =
    returnmessages             = returnm
*   PRTDATA                    =
*   PRTDATAX                   =
*   EXTENSIONIN                =
*   EXTENSIONINX               =
          .
 
check sy-subrc  = 0.