About material master data batch input

Question

hello
    i wrote a batch input for material master data. but it can't work ,i can't use it to create material.hope someone help me!thanks.code is below.
report z_mat_batchinput no standard page heading
      line-size 255 message-id YB.
       mat batch input
include bdcrecx1.
include .
tables: mara,marm,MARC,MARD,T134,NRIV,T006A,T023,T001W,T001L,
        TVKO,TVTW,T025,TTGR,TLGR,TVKWZ,T006.
data: DIMID like t006-DIMID.
data: flag, K, tmp.
DATA: X TYPE I.
************ÉÏÔØÎļþÄÚ±í************************
data: begin of record occurs 0,
        MATNR(018),        " ÎïÁϺÅ
        MTART(004),        " ÎïÁÏÀàÐÍ
**generaldata1**
        MAKTX(040),        " ÎïÁÏÃèÊö
       EAKTX(040),        " Ó¢ÎÄÃèÊö
        MEINS(003),        " »ù±¾¼ÆÁ¿µ¥Î»
        MATKL(009),        " ÎïÁÏ×é
        BISMT(018),        " ¾ÉÎïÁϺÅ
       EXTWG(018),        " ÍⲿÎïÁÏ×é
       SPART(002),        " ²¿ÃÅ
        MTPOS_MARA(004),   " ÆÕͨÏîÄ¿Àà±ð×é
        BRGEW(017),        " ëÖØ
        GEWEI(003),        " ÖØÁ¿µ¥Î»
        NTGEW(017),        " ¾»ÖØ
        VOLUM(017),        " Ìå»ý
        VOLEH(003),        " Ìå»ýµ¥Î»
        GROES(032),        " Á¿¸Ù
        MAGRV(004),        " ÎïÁÏ×éµÄ°ü×°Îï
**generaldata2**
        NORMT(018),        " ¹¤Òµ±ê×¼ÃèÊö
        FERTH(018),        " ÀàÐÍ
        WRKST(048),        " ¹æ¸ñ
**generaldata1**
       EAN11(018),        " ²úÆ·±íʶÂë
**generaldata2**
       ZEIAR(003),        " ÎĵµÀàÐÍ£¬ºÏÀí´¢±¸ÖÜתÆÚ
        WERKS(004),        " ¹¤³§
        VKORG(004),        " ÏúÊÛ×éÖ¯
        VTWEG(002),        " ·ÖÏúÇþµÀ
**salesorg 1**
       VRKME(003),        " ÏúÊÛµ¥Î»
       VMREN(006),        " ÏúÊÛµ¥Î»×ª»»Òò×Ó
       VMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
        SPART(002),        " ²úÆ·×é
        DWERK(004),        " ½»»õ¹¤³§
        TAXKM(001),        " ÎïÁÏË°·ÖÀà
**salesorg 2**
        KONDM(002),        " ÎïÁ϶¨¼Û×é
        KTGRM(002),        " ¿ÆÄ¿ÉèÖÃ×é
       MVGR1(003),                                         " ÎïÁÏ×é 1
       MVGR2(003),                                         " ÎïÁÏ×é 2
        MTPOS(004),        " ÏîÄ¿Àà±ð×é
       VERSG(001),        " ÎïÁÏͳ¼Æ×é
**ÏúÊÛ£ºÒ»°ã/¹¤³§Êý¾Ý**
        MTVFP(002),        " ¿ÉÓÃÐÔ¼ì²é
        XCHPF(001),        " Åú´Î¹ÜÀí
       YCHPF(001),        " ÅúÁ¿¹ÜÀí
        TRAGR(004),        " ÔËÊä×é
        ladgr(004),        " ×°ÔØ×é
**pur**
       BSTME(003),        " ¶©µ¥µ¥Î»
       UMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREN(006),        " ¶©µ¥µ¥Î»×ª»»Òò×Ó
       WEBAZ(003),        " ÊÕ»õ´¦Àíʱ¼ä
        EKGRP(003),        " ²É¹º×é
      LGORT(004),        " ¿â´æµØ
**Ò»°ã¹¤³§Êý¾Ý/²Ö´¢1**
       AUSME(003),        " ·¢»õµ¥Î»
       UMREJ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREF(006),        " ·¢»õµ¥Î»×ª»»Òò×Ó
       XCHPF(001),        " ÅúÁ¿¹ÜÀí
**MRP 1**
       DISGR(004),        " MRP×é
        DISMM(002),        " MRPÀàÐÍ
       FXHOR(003),        " ¼Æ»®µÄʱ½ì
        DISPO(003),        " MRP¿ØÖÆÕß
        DISLS(002),        " ÅúÁ¿
        MAABC(001),        " ABC±êʶ
       BSTFE(018),        " ¹Ì¶¨ÅúÁ¿´óС
**MRP 2**
       RESKZ(001),        " »ñÈ¡ÀàÐÍ
        BESKZ(001),        " ²É¹ºÀàÐÍ
       SOBSL(002),        " ÌØÊâ²É¹ºÀà
       LGPRO(004),        " ·¢»õ²Ö´¢µØµã
       RGEKZ(001),        " ·´³å
        PLIFZ(003),        " ¼Æ»®½»»õʱ¼ä
       VEBAZ(003),        " ÊÕ»õ´¦Àíʱ¼ä
        DZEIT(008),        "×ÔÖÆÉú²ú
        FHORI(003),        " ¼Æ»®±ß¼ÊÂë
       EISBE(018),        " °²È«¿â´æ
**MRP 3**
        PERKZ(001),        " ÆÚ¼ä±êʶ
        STRGR(002),        " ²ßÂÔ×é
       VRMOD(001),        " ÏûºÄģʽ
       VINT1(003),        " ÄæÏòÏûºÄÆÚ¼ä
       VINT2(003),        " ÏòÇ°ÏûºÄÆÚ¼ä
        NTVFP(002),        " ¿ÉÓÃÐÔ¼ì²é
**MRP 4**
       SAUFT(001),        " Öظ´ÖÆÔì±êÖ¾
       SFEPR(004),        " Öظ´Éú²ú²ÎÊýÎļþ
**¹¤×÷¼Æ»®**
       FEVOR(003),        " Éú²úµ÷¶ÈÔ±
       FRTME(003),        " Éú²úµ¥Î»
       SMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       SMREN(006),        " Éú²úµ¥Î»×ª»»Òò×Ó
       UEETK(001),        " ÎÞÏÞÖƹýÁ¿½»»õ
**»á¼Æ 1**
        BKLAS(004),        " ÆÀ¹ÀÀà
       BWTTY(001),        " ¹À¼Û·ÖÀà
        VPRSV(001),        " ¼Û¸ñ¿ØÖÆ
        PEINH(006),        " ¼Û¸ñµ¥Î»
        VERPR(015),        " Òƶ¯Æ½¾ù¼Û
        STPRS(015),        " ±ê×¼¼Û
**»á¼Æ 2**
       BWPRH(014),        " ÉÌÒµ¼Û¸ñ 1
**³É±¾ 1**
       LOSGR(018),        " ÅúÁ¿³É±¾ºËËã
**³É±¾ 2**
       ZPLP1(014),        " ¼Æ»®¼Û¸ñ 1
       ZPLD1(010),        " ¼Æ»®ÈÕÆÚ 1
**qm**
        ART1(8),            "¼ìÑéÀàÐÍ1
        AKTIV1(1),          "ÒѼ¤»î
        QMPUR(1),             "¼¤»î²É¹ºÖÐµÄ QM
        SSQSS(8),          "QM ¿ØÖÆÂë¡¢
       QMATV(8),          "QM¼ìÑéÉèÖÃ
       ART2(8),            "¼ìÑéÀàÐÍ2
       AKTIV2(6),          "ÒѼ¤»î
       ART3(8),            "¼ìÑéÀàÐÍ3
       AKTIV3(6),          "ÒѼ¤»î
      end of record.
************ÏÂÔظñʽ/´íÎóÎļþÄÚ±í**************
data: begin of record1 occurs 0,
        MATNR(018),        " ÎïÁϺÅ
        MTART(008),        " ÎïÁÏÀàÐÍ
**»ù±¾Êý¾Ý1**
        MAKTX(040),        " ÎïÁÏÃèÊö
       EAKTX(040),        " Ó¢ÎÄÃèÊö
        MEINS(013),        " »ù±¾¼ÆÁ¿µ¥Î»
        MATKL(009),        " ÎïÁÏ×é
        BISMT(018),        " ¾ÉÎïÁϺÅ
       EXTWG(018),        " ÍⲿÎïÁÏ×é
       SPART(002),        " ²¿ÃÅ
        MTPOS_MARA(004),   " ÆÕͨÏîÄ¿Àà±ð×é
        BRGEW(017),        " ëÖØ
        GEWEI(008),        " ÖØÁ¿µ¥Î»
        NTGEW(017),        " ¾»ÖØ
        VOLUM(017),        " Ìå»ý
        VOLEH(008),        " Ìå»ýµ¥Î»
        GROES(032),        " Á¿¸Ù
        MAGRV(014),        " ÎïÁÏ×éµÄ°ü×°Îï
**»ù±¾Êý¾Ý2**
        NORMT(018),        " ¹¤Òµ±ê×¼ÃèÊö
        FERTH(018),        " ÀàÐÍ
        WRKST(048),        " ¹æ¸ñ
**»ù±¾Êý¾Ý1**
       EAN11(018),        " ²úÆ·±íʶÂë
**»ù±¾Êý¾Ý2**
       ZEIAR(003),        " ÎĵµÀàÐÍ£¬ºÏÀí´¢±¸ÖÜתÆÚ
        WERKS(004),        " ¹¤³§
        VKORG(008),        " ÏúÊÛ×éÖ¯
        VTWEG(008),        " ·ÖÏúÇþµÀ
**ÏúÊÛ×éÖ¯ 1**
       VRKME(003),        " ÏúÊÛµ¥Î»
       VMREN(006),        " ÏúÊÛµ¥Î»×ª»»Òò×Ó
       VMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
        SPART(006),        " ²úÆ·×é
        DWERK(008),        " ½»»õ¹¤³§
        TAXKM(010),        " ÎïÁÏË°·ÖÀà
**ÏúÊÛ×éÖ¯ 2**
        KONDM(010),        " ÎïÁ϶¨¼Û×é
        KTGRM(010),        " ¿ÆÄ¿ÉèÖÃ×é
       MVGR1(003),                                         " ÎïÁÏ×é 1
       MVGR2(003),                                         " ÎïÁÏ×é 2
        MTPOS(010),        " ÏîÄ¿Àà±ð×é
       VERSG(001),        " ÎïÁÏͳ¼Æ×é
**ÏúÊÛ£ºÒ»°ã/¹¤³§Êý¾Ý**
        MTVFP(010),        " ¿ÉÓÃÐÔ¼ì²é
        XCHPF(008),        " Åú´Î¹ÜÀí
       YCHPF(001),        " ÅúÁ¿¹ÜÀí
        TRAGR(006),        " ÔËÊä×é
        ladgr(006),        " ×°ÔØ×é
**²É¹º**
       BSTME(003),        " ¶©µ¥µ¥Î»
       UMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREN(006),        " ¶©µ¥µ¥Î»×ª»»Òò×Ó
       WEBAZ(003),        " ÊÕ»õ´¦Àíʱ¼ä
        EKGRP(006),        " ²É¹º×é
      LGORT(004),        " ¿â´æµØ
**Ò»°ã¹¤³§Êý¾Ý/²Ö´¢1**
       AUSME(003),        " ·¢»õµ¥Î»
       UMREJ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       UMREF(006),        " ·¢»õµ¥Î»×ª»»Òò×Ó
       XCHPF(001),        " ÅúÁ¿¹ÜÀí
**MRP 1**
       DISGR(004),        " MRP×é
        DISMM(009),        " MRPÀàÐÍ
       FXHOR(003),        " ¼Æ»®µÄʱ½ì
        DISPO(011),        " MRP¿ØÖÆÕß
        DISLS(004),        " ÅúÁ¿
        MAABC(007),        " ABC±êʶ
       BSTFE(018),        " ¹Ì¶¨ÅúÁ¿´óС
**MRP 2**
       RESKZ(001),        " »ñÈ¡ÀàÐÍ
        BESKZ(008),        " ²É¹ºÀàÐÍ
       SOBSL(002),        " ÌØÊâ²É¹ºÀà
       LGPRO(004),        " ·¢»õ²Ö´¢µØµã
       RGEKZ(001),        " ·´³å
        PLIFZ(012),        " ¼Æ»®½»»õʱ¼ä
       VEBAZ(003),        " ÊÕ»õ´¦Àíʱ¼ä
        DZEIT(008),        "×ÔÖÆÉú²ú
        FHORI(010),        " ¼Æ»®±ß¼ÊÂë
       EISBE(018),        " °²È«¿â´æ
**MRP 3**
        PERKZ(008),        " ÆÚ¼ä±êʶ
        STRGR(006),        " ²ßÂÔ×é
       VRMOD(001),        " ÏûºÄģʽ
       VINT1(003),        " ÄæÏòÏûºÄÆÚ¼ä
       VINT2(003),        " ÏòÇ°ÏûºÄÆÚ¼ä
        NTVFP(010),        " ¿ÉÓÃÐÔ¼ì²é
**MRP 4**
       SAUFT(001),        " Öظ´ÖÆÔì±êÖ¾
       SFEPR(004),        " Öظ´Éú²ú²ÎÊýÎļþ
**¹¤×÷¼Æ»®**
       FEVOR(003),        " Éú²úµ÷¶ÈÔ±
       FRTME(003),        " Éú²úµ¥Î»
       SMREZ(006),        " »ù±¾µ¥Î»×ª»»Òò×Ó
       SMREN(006),        " Éú²úµ¥Î»×ª»»Òò×Ó
       UEETK(001),        " ÎÞÏÞÖƹýÁ¿½»»õ
**»á¼Æ 1**
        BKLAS(006),        " ÆÀ¹ÀÀà
       BWTTY(001),        " ¹À¼Û·ÖÀà
        VPRSV(008),        " ¼Û¸ñ¿ØÖÆ
        PEINH(008),        " ¼Û¸ñµ¥Î»
        VERPR(015),        " Òƶ¯Æ½¾ù¼Û
        STPRS(015),        " ±ê×¼¼Û
**»á¼Æ 2**
       BWPRH(014),        " ÉÌÒµ¼Û¸ñ 1
**³É±¾ 1**
       LOSGR(018),        " ÅúÁ¿³É±¾ºËËã
**³É±¾ 2**
       ZPLP1(014),        " ¼Æ»®¼Û¸ñ 1
       ZPLD1(010),        " ¼Æ»®ÈÕÆÚ 1
**ÖÊÁ¿¹ÜÀí**
        ART1(8),            "¼ìÑéÀàÐÍ1
        AKTIV1(6),          "ÒѼ¤»î
        QMPUR(010),             "¼¤»î²É¹ºÖÐµÄ QM
        SSQSS(8),          "QM ¿ØÖÆÂë¡¢
       QMATV(8),          "QM¼ìÑéÉèÖÃ
       ART2(8),            "¼ìÑéÀàÐÍ2
       AKTIV2(6),          "ÒѼ¤»î
       ART3(8),            "¼ìÑéÀàÐÍ3
       AKTIV3(6),          "ÒѼ¤»î
      end of record1.
selection-screen begin of block 0 with frame title text-001.
selection-screen begin of line .
selection-screen position 1.
parameters: test like rkec1-test .
selection-screen
  comment 3(4) text-004 for field test.
selection-screen position 26.
parameters: oldfile like rlgrap-filename.
selection-screen
  comment 9(17) text-003 for field oldfile.
selection-screen: end of line.
selection-screen begin of line.
selection-screen position 1.
parameters: dnldflag like rkec1-test default 'X'.
selection-screen
  comment 3(4) text-005 for field dnldflag.
selection-screen position 26.
parameters: outfile like rlgrap-filename .
selection-screen
  comment 9(17) text-006 for field outfile.
selection-screen: end of line.
selection-screen end of block 0 .
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-002.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: GEN1 LIKE RKEC1-TEST.
selection-screen
  comment 3(9) text-007 for field GEN1.
selection-screen position 26.
PARAMETERS: GEN2 LIKE RKEC1-TEST.
selection-screen
  comment 28(9) text-008 for field GEN2.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: SALORG1 LIKE RKEC1-TEST.
selection-screen
  comment 3(21) text-009 for field SALORG1.
selection-screen position 26.
PARAMETERS: SALORG2 LIKE RKEC1-TEST.
selection-screen
  comment 28(21) text-010 for field SALORG2.
selection-screen position 51.
PARAMETERS: SALPLANT LIKE RKEC1-TEST.
selection-screen
  comment 53(19) text-011 for field SALPLANT.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: PURCHASE LIKE RKEC1-TEST.
selection-screen
  comment 3(21) text-012 for field PURCHASE.
selection-screen position 26.
PARAMETERS: PLTSTRG1 LIKE RKEC1-TEST.
selection-screen
  comment 28(21) text-018 for field PLTSTRG1.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: MRP1 LIKE RKEC1-TEST.
selection-screen
  comment 3(4) text-013 for field MRP1.
selection-screen position 13.
PARAMETERS: MRP2 LIKE RKEC1-TEST.
selection-screen
  comment 15(4) text-014 for field MRP2.
selection-screen position 26.
PARAMETERS: MRP3 LIKE RKEC1-TEST.
selection-screen
  comment 28(4) text-015 for field MRP3.
selection-screen position 37.
PARAMETERS: MRP4 LIKE RKEC1-TEST.
selection-screen
  comment 39(4) text-016 for field MRP4.
selection-screen position 51.
PARAMETERS: PLANTSTR LIKE RKEC1-TEST.
selection-screen
  comment 53(8) text-017 for field PLANTSTR.
selection-screen end of line.
selection-screen begin of line.
selection-screen position 1.
PARAMETERS: QAU LIKE RKEC1-TEST.
selection-screen
  comment 3(8) text-023 for field QAU.
selection-screen position 13.
PARAMETERS: ACC1 LIKE RKEC1-TEST.
selection-screen
  comment 15(5) text-019 for field ACC1.
selection-screen position 26.
PARAMETERS: ACC2 LIKE RKEC1-TEST.
selection-screen
  comment 28(5) text-020 for field ACC2.
selection-screen position 37.
PARAMETERS: COR1 LIKE RKEC1-TEST.
selection-screen
  comment 39(5) text-021 for field COR1.
selection-screen position 51.
PARAMETERS: COR2 LIKE RKEC1-TEST.
selection-screen
  comment 53(5) text-022 for field COR2.
selection-screen end of line.
SELECTION-SCREEN END OF BLOCK 1.
at selection-screen on value-request for oldfile.
  call function 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            mask      = ',Îı¾Îļþ(ÖƱí·û·Ö¸ô),*.txt'
            static    = 'X'
       CHANGING
            file_name = oldfile.
at selection-screen on value-request for outfile.
  call function 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            mask      = ',Microsoft Excel¹¤×÷²¾,*.xls'
            static    = 'X'
       CHANGING
            file_name = outfile.
initialization.
******µÃµ½ÎļþĿ¼*******
  call function 'WS_QUERY'
       EXPORTING
            query  = 'CD'
       IMPORTING
            return = outfile.
  if sy-subrc <> 0.
    message e005 with outfile.
  endif.
  oldfile = outfile.
  concatenate outfile 'mat_fat' into outfile.
*ÅúÊäÈëĬÈÏÃû³Æ
  group = 'MATBATCHIN'.
start-of-selection.
  if dnldflag eq 'X' and not ( outfile is initial ).
    perform download_data.
    stop.
  endif.
  perform upload_data.
  if test = ' '.
*ÊÓͼ²ÎÊý¼ì²é
    IF ( GEN1 NE 'X' AND GEN2 NE 'X' AND SALORG1 NE 'X'
       AND SALORG2 NE 'X' AND SALPLANT NE 'X'
       AND PURCHASE NE 'X' AND PLTSTRG1 NE 'X'
       AND MRP1 NE 'X' AND MRP2 NE 'X' AND MRP3 NE 'X'
           AND MRP4 NE 'X' AND PLANTSTR NE 'X'
       AND ACC1 NE 'X' AND ACC2 NE 'X'
       AND COR1 NE 'X' AND COR2 NE 'X' and qau ne 'X' ) .
      MESSAGE E000 WITH 'ÇëÑ¡ÔñÐèά»¤ÊÓͼ'.
    ENDIF.
    perform open_group.
    SORT RECORD BY WERKS MATNR.
    loop at record.
      perform bdc_fill.
      perform bdc_transaction using 'MM01'.
      clear: bdcdata.
      refresh: bdcdata.
    endloop.
    perform close_group.
  else.
    perform file_check.
  endif.
end-of-selection.
*&      Form  UPLOAD_DATA
      ÉÏÔØÅúÊäÈëÊý¾Ý
-->  p1        text
<--  p2        text
form upload_data.
  call function 'WS_UPLOAD'
       EXPORTING
            filename                = oldfile
            filetype                = 'DAT'
       TABLES
            data_tab                = record
       EXCEPTIONS
            conversion_error        = 1
            file_open_error         = 2
            file_read_error         = 3
            invalid_table_width     = 4
            invalid_type            = 5
            no_batch                = 6
            unknown_error           = 7
            gui_refuse_filetransfer = 8
            customer_error          = 9
            others                  = 10.
  if sy-subrc <> 0.
    message E000 with 'ÇëÊäÈëÉÏÔØÎļþ'.
  endif.
  read table record with key MATNR = '**'.
  if sy-tabix lt 1.
    message E000 with 'ÉÏÔØÎļþÎļþÍ·ÓëÊý¾ÝÖ®¼äÎÞ**'.
  endif.
  delete record from 1 to sy-tabix.
endform.                               " UPLOAD_DATA
*&      Form  BDC_FILL
      ÅúÊäÈë
-->  p1        text
<--  p2        text
form bdc_fill.
  data: N type I,
        M type I,
        S_MATNR(018),
        test(1) type N.
  PERFORM BDC_FILL_INITALSCR.    "³õʼÆÁÄ»
  tmp = '0'.
  condense record-matnr no-gaps.
  test =  record-matnr(1).
  if test <> ''.
    M = STRLEN( RECORD-MATNR ).
    M = 18 - M.
    DO M TIMES.
      CONCATENATE '0' RECORD-MATNR INTO S_MATNR.
      RECORD-MATNR = S_MATNR.
    ENDDO.
  endif.
**ÅжÏÎïÁÏ»ù±¾ÊÓͼÊÇ·ñÒѾ±»Î¬»¤¹ý**
  SELECT SINGLE * FROM MARA WHERE MATNR = RECORD-MATNR.
  IF SY-SUBRC NE 0.
    K = '0'.
  Else.
    condense MARA-PSTAT no-gaps.
    N = strlen( mara-pstat ).
    M = 0.
    record-meins = mara-meins.
    do N times.
      K = MARA-PSTAT+M.
      IF K = 'K'.
        EXIT.
      ENDIF.
      M = M + 1.
    enddo.
  ENDIF.
  IF ( ( GEN1 EQ 'X' OR GEN2 EQ 'X' ) AND SALORG1 NE 'X'
     AND SALORG2 NE 'X' AND SALPLANT NE 'X'
     AND PURCHASE NE 'X' AND PLTSTRG1 NE 'X'
     AND MRP1 NE 'X' AND MRP2 NE 'X' AND MRP3 NE 'X'
         AND MRP4 NE 'X' AND PLANTSTR NE 'X'
     AND ACC1 NE 'X' AND ACC2 NE 'X'
     AND COR1 NE 'X' AND COR2 NE 'X' and qau ne 'X' ) .
    IF K EQ 'K'.
      perform bdc_dynpro      using 'SAPLMGMM' '0070'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'MSICHTAUSW-DYTXT(15)'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '/N'.
    ELSE.
      PERFORM BDC_FILL_CHOICEVIEW.   "Ñ¡ÔñÊÓͼ
    ENDIF.
  ELSE.
    PERFORM BDC_FILL_CHOICEVIEW.   "Ñ¡ÔñÊÓͼ
    PERFORM BDC_FILL_ORGVIEW.      "×éÖ¯¼¶±ð
  ENDIF.
  TRANSLATE record-MEINS TO UPPER CASE.
TRANSLATE record-BSTME TO UPPER CASE.
TRANSLATE record-VRKME TO UPPER CASE.
TRANSLATE record-FRTME TO UPPER CASE.
TRANSLATE record-AUSME TO UPPER CASE.
  if gen1 eq 'X'.
    IF K NE 'K'.
      PERFORM GENERALDATA1.
    ENDIF.
  endif.
  if gen2 eq 'X'.
    IF K NE 'K'.
      perform generaldata2.
    ENDIF.
  endif.
  if salorg1 eq 'X'.
    perform salorg1.
  endif.
  if salorg2 eq 'X'.
    perform salorg2.
  endif.
  if salplant eq 'X'.
    perform salplant.
  endif.
  if purchase eq 'X'.
    perform purchasedata.
  endif.
  if mrp1 eq 'X'.
    perform MRP1.
  endif.
  if mrp2 eq 'X'.
    perform MRP2.
  endif.
  if mrp3 eq 'X'.
    perform MRP3.
  endif.
  if mrp4 eq 'X'.
    perform MRP4.
  endif.
  if PLANTSTR eq 'X'.
    perform PLANTSTR.
  endif.
  if PLTSTRG1 eq 'X'.
    perform PLTSTRG1.
  endif.
  if qau eq 'X'.
    perform qualitydata.
  endif.
  if ACC1 eq 'X'.
    perform ACC1DATA.
  endif.
  if ACC2 eq 'X'.
    perform ACC2DATA.
  endif.
  if COR1 eq 'X'.
    perform COR1DATA.
  endif.
  if COR2 eq 'X'.
    perform COR2DATA.
  endif.
  perform BDC_SAVE.
endform.                               " BDC_FILL
*&      Form  GENERALDATA1
      Ò»°ãÊý¾Ý 1
-->  p1        text
<--  p2        text
form generaldata1.
  perform bdc_dynpro      using 'SAPLMGMM' '4004'.
  perform bdc_field       using 'BDC_OKCODE'
                                "'=ZU01'.
                                '/00'.
  perform bdc_field       using 'MAKT-MAKTX'
                                record-MAKTX.       " ÎïÁÏÃèÊö
  perform bdc_field       using 'MARA-MEINS'
                                record-MEINS.       " »ù±¾¼ÆÁ¿µ¥Î»
  perform bdc_field       using 'MARA-MATKL'
                                record-MATKL.       " ÎïÁÏ×é
  perform bdc_field       using 'MARA-BISMT'
                                record-BISMT.
perform bdc_field       using 'MARA-EXTWG'
                               record-EXTWG.
perform bdc_field       using 'MARA-SPART'
                               record-SPART.
  perform bdc_field       using 'MARA-MTPOS_MARA'
                                record-MTPOS_MARA.
  perform bdc_field       using 'BDC_CURSOR'
                                'MARA-GROES'.
  perform bdc_field       using 'MARA-BRGEW'
                                record-BRGEW.
  if record-gewei = '' and ( salorg1 = 'X' or salorg2 = 'X'
                       or salplant = 'X' ).
    perform bdc_field       using 'MARA-GEWEI'
                                  'KG'.              " ÖØÁ¿µ¥Î»
  else.
    perform bdc_field       using 'MARA-GEWEI'
                                  record-GEWEI.      " ÖØÁ¿µ¥Î»
  endif.
  perform bdc_field       using 'MARA-NTGEW'
                                record-NTGEW.
  perform bdc_field       using 'MARA-VOLUM'
                                record-VOLUM.
  perform bdc_field       using 'MARA-VOLEH'
                                record-VOLEH.
  perform bdc_field       using 'MARA-GROES'
                                record-GROES.
condense record-EAN11 no-gaps.
if record-EAN11 <> ''.
   perform bdc_field       using 'MARA-EAN11'
                                 record-EAN11.
   perform bdc_field       using 'MARA-NUMTP'
                                 'HT'.
endif.
  perform bdc_field       using 'MARA-MAGRV'
                                record-MAGRV.
perform bdc_dynpro      using 'SAPLMGMM' '4300'.
perform bdc_field       using 'BDC_OKCODE'
                               '=ZU02'.
condense record-EAKTX no-gaps.
if record-EAKTX <> ''.
   perform bdc_field       using 'SKTEXT-SPRAS(2)'
                                 'EN'.
   perform bdc_field       using 'SKTEXT-MAKTX(2)'
                                 record-EAKTX.
endif.
perform bdc_dynpro      using 'SAPLMGMM' '4300'.
perform bdc_field       using 'BDC_OKCODE'
                               '=MAIN'.
if record-meins <> 'PAK'.
   perform bdc_field       using 'SMEINH-UMREN(05)'
                                 '1'.
   perform bdc_field       using 'SMEINH-MEINH(05)'
                                 'PAK'.
   perform bdc_field       using 'SMEINH-UMREZ(05)'
                                 '1'.
endif.
  perform bdc_dynpro      using 'SAPLMGMM' '4004'.
  perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
endform.                               " GENERALDATA
*&      Form  generaldata2
      Ò»°ãÊý¾Ý 2
-->  p1        text
<--  p2        text
FORM generaldata2.
  perform bdc_dynpro      using 'SAPLMGMM' '4004'.
  perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
  perform bdc_field       using 'MAKT-MAKTX'
                                record-MAKTX.
  perform bdc_field       using 'BDC_CURSOR'
                                'MARA-NORMT'.
  condense record-ferth no-gaps.
  if record-ferth <> ''.
    perform bdc_field       using 'MARA-FERTH'
                                  record-FERTH.
  endif.
  perform bdc_field       using 'MARA-NORMT'
                                record-NORMT.
  perform bdc_field       using 'MARA-WRKST'
                                record-WRKST.
perform bdc_field       using 'MARA-ZEIAR'
                               record-ZEIAR.
ENDFORM.                    " generaldata2
*&      Form  salorg1
      ÏúÊÛ×éÖ¯ 1
-->  p1        text
<--  p2        text
FORM salorg1.
  condense RECORD-SPART no-gaps.
  PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM BDC_FIELD       USING 'MAKT-MAKTX'
                                RECORD-MAKTX.     " ÎïÁÏÃèÊö
  IF K NE 'K'.
    perform bdc_field       using 'MARA-MEINS'
                                  record-MEINS.   " »ù±¾¼ÆÁ¿µ¥Î»
  ENDIF.
  perform bdc_field       using 'MARA-SPART'
                                record-SPART.     " ²úÆ·×é
  perform bdc_field       using 'MVKE-DWERK'
                                record-DWERK.     " ½»»õ¹¤³§
  PERFORM BDC_FIELD       USING 'MG03STEUER-TAXKM(01)'
                                RECORD-TAXKM.     " ÎïÁÏË°·ÖÀà
condense RECORD-VRKME no-gaps.
IF RECORD-MEINS <> RECORD-VRKME and RECORD-VRKME <> ''.
   perform bdc_field       using 'MVKE-VRKME'
                                 record-VRKME.     " ÏúÊÛµ¥Î»
   select single * from MARM where matnr = record-matnr
                 and meinh = record-vrkme.
   if SY-SUBRC NE 0.
     tmp = 'W'.
     select single * from t006 where MSEHI = record-meins.
     if t006-DIMID = 'AAAADL'.
       DIMID = ''.
     else.
       DIMID = t006-DIMID.
     endif.
     select single * from t006 where MSEHI = record-vrkme.
     if dimid <> t006-DIMID.
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0510'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '=ENTR'.
       perform bdc_field       using 'RMMZU-UMREN'
                                     record-VMREN.  "ÏúÊÛµ¥Î»×ª»»Òò×Ó
       perform bdc_field       using 'RMMZU-UMREZ'
                                     record-VMREZ.  "»ù±¾µ¥Î»×ª»»Òò×Ó
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '/00'.
     endif.
   endif.
ENDIF.
  perform bdc_dynpro      using 'SAPLMGMM' '4200'.
  perform bdc_field       using 'BDC_OKCODE'      " µ÷ÓÃË°Àà×ÓÆÁÄ»
                                '/00'.
  PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'      " ·µ»ØÏúÊÛ×éÖ¯ 1ÆÁÄ»
                                '/00'.
ENDFORM.                                                    " salorg1
*&      Form  salorg2
      ÏúÊÛ×éÖ¯ 2
-->  p1        text
<--  p2        text
FORM salorg2.
  PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'MVKE-KTGRM'.
PERFORM BDC_FIELD       USING 'MVKE-VERSG'
                               RECORD-VERSG.     " ÎïÁÏͳ¼Æ×é
  PERFORM BDC_FIELD       USING 'MVKE-KTGRM'
                                RECORD-KTGRM.     " ¿ÆÄ¿ÉèÖÃ×é
  PERFORM BDC_FIELD       USING 'MVKE-KONDM'
                                RECORD-KONDM.     " ÎïÁ϶¨¼Û×é
  perform bdc_field       using 'MVKE-MTPOS'
                                RECORD-MTPOS.     " ÏîÄ¿Àà±ð×é
PERFORM BDC_FIELD       USING 'MVKE-MVGR1'
                               RECORD-MVGR1.               " ÎïÁÏ×é 1
PERFORM BDC_FIELD       USING 'MVKE-MVGR2'
                               RECORD-MVGR2.               " ÎïÁÏ×é 2
ENDFORM.                                                    " salorg2
*&      Form  salplant
      ÏúÊÛ£ºÒ»°ã/¹¤³§Êý¾Ý
-->  p1        text
<--  p2        text
FORM salplant.
  PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
  select single * from marc where matnr = record-matnr
                              and werks = record-werks.
  if SY-SUBRC NE 0  OR  MARC-MTVFP = ''.
    PERFORM BDC_FIELD       USING 'MARC-MTVFP'
                                  RECORD-MTVFP.     " ¿ÉÓÃÐÔ¼ì²é
  endif.
  PERFORM BDC_FIELD       USING 'MARA-TRAGR'
                                  RECORD-TRAGR.   " ÔËÊä×é
  PERFORM BDC_FIELD       USING 'MARC-LADGR'
                                RECORD-LADGR.     " ×°ÔØ×é
  perform bdc_field       using 'MARC-XCHPF'
                                record-XCHPF.     " ÅúÁ¿¹ÜÀí
ENDFORM.                    " salplant
*&      Form  PURCHASEDATA
      ²É¹ºÊý¾Ý
-->  p1        text
<--  p2        text
form purchasedata.
  perform bdc_dynpro      using 'SAPLMGMM' '4000'.
  perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
  perform bdc_field       using 'BDC_CURSOR'
                                'MARC-WEBAZ'.
  perform bdc_field       using 'MAKT-MAKTX'
                                record-MAKTX.
  IF K NE 'K'.
    perform bdc_field       using 'MARA-MEINS'
                                  record-MEINS.     " »ù±¾¼ÆÁ¿µ¥Î»
    perform bdc_field       using 'MARA-MATKL'
                                  record-MATKL.     " ÎïÁÏ×é
  ENDIF.
condense RECORD-BSTME no-gaps.
IF RECORD-MEINS <> RECORD-BSTME and RECORD-BSTME <> ''.
   perform bdc_field       using 'MARA-BSTME'
                                 record-BSTME.     " ¶©µ¥µ¥Î»
   select single * from MARM where matnr = record-matnr
                 and meinh = record-bstme.
   if SY-SUBRC NE 0 and
         ( record-vrkme <> record-bstme or tmp <> 'W' ).
     tmp = 'W'.
     select single * from t006 where MSEHI = record-meins.
     if t006-DIMID = 'AAAADL'.
       DIMID = ''.
     else.
       DIMID = t006-DIMID.
     endif.
     select single * from t006 where MSEHI = record-bstme.
     if dimid <> t006-DIMID.
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '0510'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '=ENTR'.
       perform bdc_field       using 'RMMZU-UMREN'
                                     record-UMREN.  "¶©µ¥µ¥Î»×ª»»Òò×Ó
       perform bdc_field       using 'RMMZU-UMREZ'
                                     record-UMREZ.  "»ù±¾µ¥Î»×ª»»Òò×Ó
       PERFORM BDC_DYNPRO      USING 'SAPLMGMM' '4000'.
       PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                     '/00'.
     endif.
   endif.
ENDIF.
  perform bdc_field       using 'MARC-EKGRP'
                                record-EKGRP.       " ²É¹º×é
perform bdc_field       using 'MARC-WEBAZ'
                               record-WEBAZ.       " ÊÕ»õ´¦Àíʱ¼ä
endform.                               " PURCHASEDATA
*&      Form  MRP1
      text
-->  p1        text
<--  p2        text
FORM MRP1.
  perform bdc_dynpro      using 'SAPLMGMM' '4000'.
  perform bdc_field       using 'BDC_OKCODE'
                                '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                               record-MAKTX.       " ÎïÁÏÃèÊö
IF K NE 'K'.
   perform bdc_field       using 'MARA-MEINS'
                                 record-MEINS.     " »ù±¾µ¥Î»
ENDIF.
perform bdc_field       using 'MARC-DISGR'
                               record-DISGR.       " MRP×é
  perform bdc_field       using 'MARC-MAABC'
                                record-MAABC.       " ABC±êʶ
  perform bdc_field       using 'MARC-DISMM'
                                record-DISMM.       " MRPÀàÐÍ
perform bdc_field       using 'MARC-FXHOR'
                               record-FXHOR.       " ¼Æ»®µÄʱ½ì
  perform bdc_field       using 'MARC-DISPO'
                                record-DISPO.       " MRP¿ØÖÆÕß
  perform bdc_field       using 'MARC-DISLS'
                                record-DISLS.       " ÅúÁ¿
perform bdc_field       using 'MARC-BSTFE'
               

Answer 1

Here is a sample program which creates a material with the bare minmal fields,  this will get you started.
report zrich_0003 .
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.
Regards,
Rich Heilman