Update MRP group for a material and MRP area

Question

Hi,
My requirement is to mass update the MRP group for certain number of materials depending upon the MRP area.
Is there any standard BAPI or the LSMW program which would help me in this.
Regards,
Shahu

Answer 1

Hi,
Hope this program can give you some lead.
REPORT  ZMRPAREA002                           .
*Tables.
tables : mara,                          "General Material Data
         marc,                          "Plant Data for Material
         mvke,
         mdlv.                          "Customizing MRP Area
Internal Table
types : begin of bdc_tab,
             matnr like MARA-matnr,    "Material Number
             werks like MARC-werks,    "Plant
             berid like mdlv-berid,    "MRP area
             dismm like marc-dismm,    "MRP Type
             minbe(16),                "Reorder Point
             disgr like marc-disgr,    "MRP Group
             dispo like marc-dispo,    "MRP Controller
             disls like marc-disls,    "Lot size (materials planning)
             bstfe(16),                "Fixed lot size
             mtart like mara-mtart,    "Material Type
             bstmi like marc-bstmi,    "Minimum lot size
        end of bdc_tab.
data : i_bdc_DATA type bdc_tab occurs 0 with header line.
data : it_bdc_data type MDMA. " occurs 0 with header line.
data : i_struc type SDIBE_MASSFIELDS. " occurs 0 with header line.
data : s_dpop type dpop.
data : var type BAPIRETURN1.
data : var1(50).
*Selection-Screeen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-010.
  PARAMETERS  :  P_FNAME LIKE RLGRAp-FILENAME.
SELECTION-SCREEN END OF BLOCK b1.
*AT_SELECTION_SCREEN
Call the function module to display the dialog to select input file
at selection-screen on value-request for p_fname.
  call function 'WS_FILENAME_GET'
       exporting
            def_filename     = p_fname
            mode             = 'O'
            title            = 'Select the file to Upload'
       importing
            filename         = p_fname
       exceptions
            inv_winsys       = 01
            no_batch         = 02
            selection_cancel = 03
            selection_error  = 04.
  if sy-subrc <> 0.
  endif.
*Start-Of-Selection
Start-Of-Selection.
perform get_data.            "DATA UPLOAD TO INTERNAL TABLE
*perform open_group.                "open BDC-GROUP
*Selecting values for a particular material type
loop at i_bdc_DATA.
  select single mtart from mara
         into i_bdc_DATA-mtart
         where matnr = i_bdc_DATA-matnr.
  modify i_bdc_DATA.
  select single * from mvke
         where matnr = i_bdc_DATA-matnr.
endloop.
*Form Get_Data .
form get_data .
    data : v_fname type string.
    v_fname = p_fname.
  CALL FUNCTION 'WS_UPLOAD'
   EXPORTING
     filename                      = P_FNAME
     filetype                      = 'DAT'
    TABLES
      data_tab                      = i_bdc_DATA
EXCEPTIONS
   conversion_error              = 1
   file_open_error               = 2
   file_read_error               = 3
   invalid_type                  = 4
   no_batch                      = 5
   unknown_error                 = 6
   invalid_table_width           = 7
   gui_refuse_filetransfer       = 8
   customer_error                = 9
   OTHERS                        = 10
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
loop at i_bdc_data.
      i_struc-xdismm = 'X'.
      i_struc-xminbe = 'X'.
      i_struc-xdisgr = 'X'.
      i_struc-xdispo = 'X'.
      i_struc-xdisls = 'X'.
      i_struc-xbstfe = 'X'.
      i_struc-xbstmi = 'X'.
      it_bdc_data-matnr = i_bdc_data-matnr.
      it_bdc_data-werks = i_bdc_data-werks.
      it_bdc_data-berid = i_bdc_data-berid.
      it_bdc_data-dismm = i_bdc_data-dismm.
      it_bdc_data-minbe = i_bdc_data-minbe.
      it_bdc_data-disgr = i_bdc_data-disgr.
      it_bdc_data-dispo = i_bdc_data-dispo.
      it_bdc_data-disls = i_bdc_data-disls.
      it_bdc_data-bstfe = i_bdc_data-bstfe.
      it_bdc_data-bstmi = i_bdc_data-bstmi.
      call function 'MD_MRP_LEVEL_CREATE_DATA'
        exporting
          i_matnr                 = it_bdc_data-matnr
          i_werk                  = it_bdc_data-werks
          i_mrp_area              = it_bdc_data-berid
          i_selfields             = i_struc
          i_mdma                  = it_bdc_data
          i_dpop                  = s_dpop
        I_QUEUE_FLAG            = 'X'
         I_SAVE_FLAG             = 'X'
        I_EXTERNAL_COMMIT       = ' '
       IMPORTING
         E_ERROR_RETURN          = var.
        var1 = var.
        write :/ var1.
endloop.
endform.                    " get_data
K.Kiran.