How to create Material master through BAPI and .NET Connector 2.0

[Former Member]

Does anyone have example about how to create Material Master by calling BAPI from MS .NET 2003 through .NET Connector 2.0. I saw "BAPI_STANDARDMATERIAL_CREATE" in BAPI Explorer but don't know how to use. If test run form BAPI Explorer, it will create new Material through Standard Transaction MM01. Another BAPI named "BAPI_MATERIAL_SAVEDATA", but can't see through .NET Connector.

Please explain the different of these two BAPIs if anyone have the example, please help me..

Thanks in advance.

[Former Member]

in my company, we create material BAPI by ourselves using transaction code SHDB. the below is an example to create spare parts. you should pay attention to the view of material.

holp it helps

Michael yuan, SMIC

&----

---

• Function Group: Z_MM_MATERIAL

• RFC NAME: Z_MM_MATERIAL_MM01_SPARE

&----

---

*& DESCRIPTION

• FOR MM: Material Master (Spare parts) - Create.

&----

---

FUNCTION z_mm_material_mm01_spare.

*"----

---

""Local interface:

*" IMPORTING

*" VALUE(MATNR_001) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MBRSH_001) LIKE BDCDATA-FVAL DEFAULT 'M'

*" VALUE(MTART_002) LIKE BDCDATA-FVAL DEFAULT 'ERSA'

*" VALUE(WERKS_014) LIKE BDCDATA-FVAL

*" VALUE(MAKTX_015) LIKE BDCDATA-FVAL

*" VALUE(MEINS_016) LIKE BDCDATA-FVAL

*" VALUE(MATKL_017) LIKE BDCDATA-FVAL

*" VALUE(BISMT_018) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(SPRAS_02_019) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MAKTX_02_020) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(UMREN_02_022) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MEINH_02_023) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(UMREZ_02_024) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(ZEINR_030) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(ZEIVR_031) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(CLASS_01_033) LIKE BDCDATA-FVAL DEFAULT 'ZMATERIALCLASS'

*" VALUE(EKGRP_070) LIKE BDCDATA-FVAL

*" VALUE(INSMK_072) LIKE BDCDATA-FVAL DEFAULT 'X'

*" VALUE(DISMM_077) LIKE BDCDATA-FVAL DEFAULT 'ND'

*" VALUE(DISPO_078) LIKE BDCDATA-FVAL

*" VALUE(MABST_079) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(PLIFZ_081) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(EISBE_082) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(EISLO_083) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MTVFP_086) LIKE BDCDATA-FVAL DEFAULT '02'

*" VALUE(RAUBE_089) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(BKLAS_094) LIKE BDCDATA-FVAL DEFAULT '3100'

*" VALUE(VPRSV_095) LIKE BDCDATA-FVAL DEFAULT 'V'

*" VALUE(PEINH_096) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(VERPR_097) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_01) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_02) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_03) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_04) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_05) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_06) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_07) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_09) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_10) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_11) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_13) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_14) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_15) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_16) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_17) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_18) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_19) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_20) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_21) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_22) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_23) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_24) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_25) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_26) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_27) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_28) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_29) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_30) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_31) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_32) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_33) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_34) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_35) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_36) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_37) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_38) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_39) LIKE BDCDATA-FVAL OPTIONAL

*" VALUE(MWERT_SH_40) LIKE BDCDATA-FVAL OPTIONAL

*" EXPORTING

*" VALUE(SUBRC) LIKE SYST-SUBRC

*" TABLES

*" MESSTAB STRUCTURE BDCMSGCOLL OPTIONAL

*"----

---

ctu = 'X'.

mode = 'N'.

update = 'L'.

group = ''.

user = ''.

keep = ''.

holddate = ''.

nodata = '/'.

• ctu = ''.

• mode = 'N'.

• update = 'L'.

• group = 'MM01TEST'.

• user = 'E000342'.

• keep = 'X'.

• holddate = ''.

• nodata = '/'.

kzsel_01_003 = 'X'.

kzsel_02_004 = 'X'.

kzsel_03_005 = 'X'.

kzsel_04_006 = 'X'.

kzsel_07_007 = 'X'.

kzsel_08_008 = 'X'.

kzsel_09_009 = 'X'.

kzsel_12_010 = 'X'.

kzsel_13_011 = 'X'.

kzsel_17_012 = 'X'.

kzsel_18_013 = 'X'.

klart_032 = '001'.

pagpos_054 = '1'.

pagpos_067 = '1'.

disgr_075 = '003'.

perkz_085 = 'M'.

iprkz_090 = 'D'.

*Add characteristic begin -

---

DATA char_site LIKE zmmaterial_site-name.

CLEAR char_site.

SELECT SINGLE name FROM zmmaterial_site

INTO char_site

WHERE plant EQ werks_014.

CONCATENATE 'ZMACHINEID' char_site INTO mname_sh_01.

CONCATENATE 'ZCONTYPE' char_site INTO mname_sh_02.

CONCATENATE 'ZVENDORMACHINESN' char_site INTO mname_sh_03.

CONCATENATE 'ZUSERID' char_site INTO mname_sh_04.

CONCATENATE 'ZBONDEDMATERIAL' char_site INTO mname_sh_05.

CONCATENATE 'ZTAXFREEENGLISH2'

char_site INTO mname_sh_06.

CONCATENATE 'ZTAXFREEENGLISH3' char_site INTO mname_sh_07.

• CONCATENATE 'ZTAXFREEBONDED' char_site INTO mname_sh_08.

CONCATENATE 'ZTAXFREECHINESE2' char_site INTO mname_sh_09.

CONCATENATE 'ZTAXFREECHINESE3' char_site INTO mname_sh_10.

CONCATENATE 'ZSPEC' char_site INTO mname_sh_11.

• CONCATENATE 'ZHSCODE' char_site INTO mname_sh_12.

CONCATENATE 'ZIN-EXCONTROL' char_site INTO mname_sh_13.

CONCATENATE 'ZTIMELIFEPERIOD' char_site INTO mname_sh_14.

CONCATENATE 'ZBONDED' char_site INTO mname_sh_15.

CONCATENATE 'ZMATERIALFUNCTION' char_site INTO mname_sh_16.

CONCATENATE 'ZPARTSHASSS' char_site INTO mname_sh_17.

CONCATENATE 'ZPARTSSS' char_site INTO mname_sh_18.

CONCATENATE 'ZPARTSNO' char_site INTO mname_sh_19.

CONCATENATE 'Z1-2VENDORDATA' char_site INTO mname_sh_20.

CONCATENATE 'ZPNNOFORVENDOR' char_site INTO mname_sh_21.

CONCATENATE 'Z1-2VENDORNAME' char_site INTO mname_sh_22.

CONCATENATE 'ZPARTSVENDOR' char_site INTO mname_sh_23.

CONCATENATE 'ZSPARE2' char_site INTO mname_sh_24.

CONCATENATE 'ZVENDOROLDPN' char_site INTO mname_sh_25.

CONCATENATE 'ZEXPIRYCONTROL' char_site INTO mname_sh_26.

CONCATENATE 'ZSPARE5' char_site INTO mname_sh_27.

CONCATENATE 'ZWWWFLOW' char_site INTO mname_sh_28.

CONCATENATE 'ZECCNCODE' char_site INTO mname_sh_29.

CONCATENATE 'ZOWNER' char_site INTO mname_sh_30.

CONCATENATE 'ZORIGINPN' char_site INTO mname_sh_31.

CONCATENATE 'ZORIGINNAME' char_site INTO mname_sh_32.

CONCATENATE 'ZSECONDPN' char_site INTO mname_sh_33.

CONCATENATE 'ZSECONDNAME' char_site INTO mname_sh_34.

CONCATENATE 'ZTHIRDPN' char_site INTO mname_sh_35.

CONCATENATE 'ZTHIRDNAME' char_site INTO mname_sh_36.

CONCATENATE 'ZFORTHPN' char_site INTO mname_sh_37.

CONCATENATE 'ZFORTHNAME' char_site INTO mname_sh_38.

CONCATENATE 'ZFIFTHPN' char_site INTO mname_sh_39.

CONCATENATE 'ZFIFTHNAME' char_site INTO mname_sh_40.

*

subrc = 0.

PERFORM bdc_nodata USING nodata.

PERFORM open_group USING group user keep holddate ctu.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.

IF matnr_001 = ''.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1-MATNR'.

ELSE.

PERFORM bdc_field USING 'RMMG1-MATNR'

matnr_001.

ENDIF.

PERFORM bdc_field USING 'BDC_OKCODE'

'=AUSW'.

PERFORM bdc_field USING 'RMMG1-MBRSH'

mbrsh_001.

PERFORM bdc_field USING 'RMMG1-MTART'

mtart_002.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(09)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'

kzsel_01_003.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(02)'

kzsel_02_004.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(03)'

kzsel_03_005.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(04)'

kzsel_04_006.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(07)'

kzsel_07_007.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(08)'

kzsel_08_008.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(09)'

kzsel_09_009.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(12)'

kzsel_12_010.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(13)'

kzsel_13_011.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(17)'

kzsel_17_012.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(18)'

kzsel_18_013.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0080'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1-WERKS'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_field USING 'RMMG1-WERKS'

werks_014.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ZU01'.

PERFORM bdc_field USING 'MAKT-MAKTX'

maktx_015.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-BISMT'.

PERFORM bdc_field USING 'MARA-MEINS'

meins_016.

PERFORM bdc_field USING 'MARA-MATKL'

matkl_017.

PERFORM bdc_field USING 'MARA-BISMT'

bismt_018.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4300'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ZU02'.

PERFORM bdc_field USING 'BDC_CURSOR'

'SKTEXT-MAKTX(02)'.

IF spras_02_019 <> ''.

PERFORM bdc_field USING 'SKTEXT-SPRAS(02)'

spras_02_019.

PERFORM bdc_field USING 'SKTEXT-MAKTX(02)'

maktx_02_020.

ENDIF.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4300'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=MAIN'.

PERFORM bdc_field USING 'BDC_CURSOR'

'SMEINH-UMREZ(02)'.

PERFORM bdc_field USING 'SMEINH-UMREN(02)'

umren_02_022.

PERFORM bdc_field USING 'SMEINH-MEINH(02)'

meinh_02_023.

PERFORM bdc_field USING 'SMEINH-UMREZ(02)'

umrez_02_024.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP02'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP03'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-ZEIVR'.

PERFORM bdc_field USING 'MARA-ZEINR'

zeinr_030.

PERFORM bdc_field USING 'MARA-ZEIVR'

zeivr_031.

PERFORM bdc_dynpro USING 'SAPLCLCA' '0602'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMCLF-KLART'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTE'.

PERFORM bdc_field USING 'RMCLF-KLART'

klart_032.

*Add SCREEN 3 begin (1-10) -

---

PERFORM bdc_dynpro USING 'SAPLCLFM' '0500'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMCLF-CLASS(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=AUSW'.

PERFORM bdc_field USING 'RMCLF-CLASS(01)'

class_01_033.

PERFORM bdc_dynpro USING 'SAPLCTMS' '0109'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RCTMS-MWERT(10)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK'.

• PERFORM bdc_field USING 'RMCLF-PAGPOS'

• pagpos_054.

• PERFORM bdc_dynpro USING 'SAPLCTMS' '0109'.

• PERFORM bdc_field USING 'BDC_CURSOR'

• 'RCTMS-MWERT(06)'.

• PERFORM bdc_field USING 'BDC_OKCODE'

• '=BACK'.

***Add characteristic description

PERFORM bdc_field USING 'RCTMS-MNAME(01)'

mname_sh_01.

PERFORM bdc_field USING 'RCTMS-MNAME(02)'

mname_sh_02.

PERFORM bdc_field USING 'RCTMS-MNAME(03)'

mname_sh_03.

PERFORM bdc_field USING 'RCTMS-MNAME(04)'

mname_sh_04.

PERFORM bdc_field USING 'RCTMS-MNAME(05)'

mname_sh_05.

PERFORM bdc_field USING 'RCTMS-MNAME(06)'

mname_sh_06.

PERFORM bdc_field USING 'RCTMS-MNAME(07)'

mname_sh_07.

• PERFORM bdc_field USING 'RCTMS-MNAME(08)'

• mname_sh_08.

PERFORM bdc_field USING 'RCTMS-MNAME(08)'

mname_sh_09.

PERFORM bdc_field USING 'RCTMS-MNAME(09)'

mname_sh_10.

***Add characteristic value

PERFORM bdc_field USING 'RCTMS-MWERT(01)'

mwert_sh_01.

PERFORM bdc_field USING 'RCTMS-MWERT(02)'

mwert_sh_02.

PERFORM bdc_field USING 'RCTMS-MWERT(03)'

mwert_sh_03.

PERFORM bdc_field USING 'RCTMS-MWERT(04)'

mwert_sh_04.

PERFORM bdc_field USING 'RCTMS-MWERT(05)'

mwert_sh_05.

PERFORM bdc_field USING 'RCTMS-MWERT(06)'

mwert_sh_06.

PERFORM bdc_field USING 'RCTMS-MWERT(07)'

mwert_sh_07.

• PERFORM bdc_field USING 'RCTMS-MWERT(08)'

• mwert_sh_08.

PERFORM bdc_field USING 'RCTMS-MWERT(08)'

mwert_sh_09.

PERFORM bdc_field USING 'RCTMS-MWERT(09)'

mwert_sh_10.

*Add SCREEN 3 end (BJ 1-10) -

---

*Add SCREEN 4 begin (BJ 11-20) -

---

PERFORM bdc_dynpro USING 'SAPLCLFM' '0500'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMCLF-CLASS(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=AUSW'.

PERFORM bdc_field USING 'RMCLF-PAGPOS'

pagpos_054.

PERFORM bdc_dynpro USING 'SAPLCTMS' '0109'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RCTMS-MWERT(06)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK'.

***Add characteristic description

PERFORM bdc_field USING 'RCTMS-MNAME(01)'

mname_sh_11.

• PERFORM bdc_field USING 'RCTMS-MNAME(02)'

• mname_sh_12.

PERFORM bdc_field USING 'RCTMS-MNAME(02)'

mname_sh_13.

PERFORM bdc_field USING 'RCTMS-MNAME(03)'

mname_sh_14.

PERFORM bdc_field USING 'RCTMS-MNAME(04)'

mname_sh_15.

PERFORM bdc_field USING 'RCTMS-MNAME(05)'

mname_sh_16.

PERFORM bdc_field USING 'RCTMS-MNAME(06)'

mname_sh_17.

PERFORM bdc_field USING 'RCTMS-MNAME(07)'

mname_sh_18.

PERFORM bdc_field USING 'RCTMS-MNAME(08)'

mname_sh_19.

PERFORM bdc_field USING 'RCTMS-MNAME(09)'

mname_sh_20.

***Add characteristic value

PERFORM bdc_field USING 'RCTMS-MWERT(01)'

mwert_sh_11.

• PERFORM bdc_field USING 'RCTMS-MWERT(02)'

• mwert_sh_12.

PERFORM bdc_field USING 'RCTMS-MWERT(02)'

mwert_sh_13.

PERFORM bdc_field USING 'RCTMS-MWERT(03)'

mwert_sh_14.

PERFORM bdc_field USING 'RCTMS-MWERT(04)'

mwert_sh_15.

PERFORM bdc_field USING 'RCTMS-MWERT(05)'

mwert_sh_16.

PERFORM bdc_field USING 'RCTMS-MWERT(06)'

mwert_sh_17.

PERFORM bdc_field USING 'RCTMS-MWERT(07)'

mwert_sh_18.

PERFORM bdc_field USING 'RCTMS-MWERT(08)'

mwert_sh_19.

PERFORM bdc_field USING 'RCTMS-MWERT(09)'

mwert_sh_20.

*Add SCREEN 4 end (BJ 11-20) -

---

*Add SCREEN 5 begin (BJ 21-30) -

---

PERFORM bdc_dynpro USING 'SAPLCLFM' '0500'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMCLF-CLASS(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=AUSW'.

PERFORM bdc_field USING 'RMCLF-PAGPOS'

pagpos_054.

PERFORM bdc_dynpro USING 'SAPLCTMS' '0109'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RCTMS-MWERT(06)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK'.

***Add characteristic description

PERFORM bdc_field USING 'RCTMS-MNAME(01)'

mname_sh_21.

PERFORM bdc_field USING 'RCTMS-MNAME(02)'

mname_sh_22.

PERFORM bdc_field USING 'RCTMS-MNAME(03)'

mname_sh_23.

PERFORM bdc_field USING 'RCTMS-MNAME(04)'

mname_sh_24.

PERFORM bdc_field USING 'RCTMS-MNAME(05)'

mname_sh_25.

PERFORM bdc_field USING 'RCTMS-MNAME(06)'

mname_sh_26.

PERFORM bdc_field USING 'RCTMS-MNAME(07)'

mname_sh_27.

PERFORM bdc_field USING 'RCTMS-MNAME(08)'

mname_sh_28.

PERFORM bdc_field USING 'RCTMS-MNAME(09)'

mname_sh_29.

PERFORM bdc_field USING 'RCTMS-MNAME(10)'

mname_sh_30.

***Add characteristic value

PERFORM bdc_field USING 'RCTMS-MWERT(01)'

mwert_sh_21.

PERFORM bdc_field USING 'RCTMS-MWERT(02)'

mwert_sh_22.

PERFORM bdc_field USING 'RCTMS-MWERT(03)'

mwert_sh_23.

PERFORM bdc_field USING 'RCTMS-MWERT(04)'

mwert_sh_24.

PERFORM bdc_field USING 'RCTMS-MWERT(05)'

mwert_sh_25.

PERFORM bdc_field USING 'RCTMS-MWERT(06)'

mwert_sh_26.

PERFORM bdc_field USING 'RCTMS-MWERT(07)'

mwert_sh_27.

PERFORM bdc_field USING 'RCTMS-MWERT(08)'

mwert_sh_28.

PERFORM bdc_field USING 'RCTMS-MWERT(09)'

mwert_sh_29.

PERFORM bdc_field USING 'RCTMS-MWERT(10)'

mwert_sh_30.

*Add SCREEN 5 end (BJ 21-30) -

---

*Add SCREEN 6 begin (BJ 31-40) -

---

PERFORM bdc_dynpro USING 'SAPLCLFM' '0500'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMCLF-CLASS(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=AUSW'.

PERFORM bdc_field USING 'RMCLF-PAGPOS'

pagpos_054.

PERFORM bdc_dynpro USING 'SAPLCTMS' '0109'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RCTMS-MWERT(06)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BACK'.

***Add characteristic description

PERFORM bdc_field USING 'RCTMS-MNAME(01)'

mname_sh_31.

PERFORM bdc_field USING 'RCTMS-MNAME(02)'

mname_sh_32.

PERFORM bdc_field USING 'RCTMS-MNAME(03)'

mname_sh_33.

PERFORM bdc_field USING 'RCTMS-MNAME(04)'

mname_sh_34.

PERFORM bdc_field USING 'RCTMS-MNAME(05)'

mname_sh_35.

PERFORM bdc_field USING 'RCTMS-MNAME(06)'

mname_sh_36.

PERFORM bdc_field USING 'RCTMS-MNAME(07)'

mname_sh_37.

PERFORM bdc_field USING 'RCTMS-MNAME(08)'

mname_sh_38.

PERFORM bdc_field USING 'RCTMS-MNAME(09)'

mname_sh_39.

PERFORM bdc_field USING 'RCTMS-MNAME(10)'

mname_sh_40.

***Add characteristic value

PERFORM bdc_field USING 'RCTMS-MWERT(01)'

mwert_sh_31.

PERFORM bdc_field USING 'RCTMS-MWERT(02)'

mwert_sh_32.

PERFORM bdc_field USING 'RCTMS-MWERT(03)'

mwert_sh_33.

PERFORM bdc_field USING 'RCTMS-MWERT(04)'

mwert_sh_34.

PERFORM bdc_field USING 'RCTMS-MWERT(05)'

mwert_sh_35.

PERFORM bdc_field USING 'RCTMS-MWERT(06)'

mwert_sh_36.

PERFORM bdc_field USING 'RCTMS-MWERT(07)'

mwert_sh_37.

PERFORM bdc_field USING 'RCTMS-MWERT(08)'

mwert_sh_38.

PERFORM bdc_field USING 'RCTMS-MWERT(09)'

mwert_sh_39.

PERFORM bdc_field USING 'RCTMS-MWERT(10)'

mwert_sh_40.

*Add SCREEN 6 end (BJ 31-40) -

---

*Angela Zhang 20031105 Add characteristic end -

---

*----

---

PERFORM bdc_dynpro USING 'SAPLCLFM' '0500'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMCLF-CLASS(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=WEI1'.

PERFORM bdc_field USING 'RMCLF-PAGPOS'

pagpos_067.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP12'.

PERFORM bdc_field USING 'MARC-EKGRP'

ekgrp_070.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARC-INSMK'.

PERFORM bdc_field USING 'MARC-INSMK'

insmk_072.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP13'.

PERFORM bdc_field USING 'MARC-DISGR'

disgr_075.

PERFORM bdc_field USING 'MARC-DISMM'

dismm_077.

PERFORM bdc_field USING 'MARC-DISPO'

dispo_078.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARC-MABST'.

PERFORM bdc_field USING 'MARC-MABST'

mabst_079.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP14'.

PERFORM bdc_field USING 'MARC-PLIFZ'

plifz_081.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARC-EISLO'.

PERFORM bdc_field USING 'MARC-EISBE'

eisbe_082.

PERFORM bdc_field USING 'MARC-EISLO'

eislo_083.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP19'.

PERFORM bdc_field USING 'MARC-PERKZ'

perkz_085.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARC-MTVFP'.

PERFORM bdc_field USING 'MARC-MTVFP'

mtvfp_086.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP20'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-RAUBE'.

PERFORM bdc_field USING 'MARA-RAUBE'

raube_089.

PERFORM bdc_field USING 'MARA-IPRKZ'

iprkz_090.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP24'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SP25'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MBEW-VERPR'.

PERFORM bdc_field USING 'MBEW-BKLAS'

bklas_094.

PERFORM bdc_field USING 'MBEW-VPRSV'

vprsv_095.

PERFORM bdc_field USING 'MBEW-PEINH'

peinh_096.

PERFORM bdc_field USING 'MBEW-VERPR'

verpr_097.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BU'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_transaction TABLES messtab

USING 'MM01'

ctu

mode

update.

IF sy-subrc <> 0.

subrc = sy-subrc.

EXIT.

ENDIF.

PERFORM close_group USING ctu.

ENDFUNCTION.

INCLUDE bdcrecxy .