Skip to Content
author's profile photo Former Member
Former Member

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

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.

Add a comment
10|10000 characters needed characters exceeded

Related questions

1 Answer

  • author's profile photo Former Member
    Former Member
    Posted on Jan 30, 2008 at 05:10 AM

    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 .

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.