Extending the material of an existing plant in a company code to new plant.

Question

Hi,
I am trying to Extend the Material from Plant 1000 to 2000 Using BAPI : MATERIAL_MAINTAIN_DARK .
But it is not extended to Plant 2000.Please check the following code and correct me.
REPORT  ZEXTEND_MATERIAL1.
TABLES: MARA,MARC,MARD.
DATA: AMARA_UEB     TYPE TABLE OF     MARA_UEB,
           WA_MARA TYPE MARA_UEB,
      AMARC_UEB     TYPE TABLE OF     MARC_UEB,
      WA_MARC TYPE MARC_UEB,
      AMARD_UEB     TYPE TABLE OF     MARD_UEB,
      WA_MARD TYPE MARD_UEB.
DATA: MATNR_LAST  LIKE  MARA-MATNR,
      NUMBER_ERRORS_TRANSACTION LIKE  TBIST-NUMERROR.
DATA: idx TYPE sy-tabix.
DATA: P_KZ_NO_WARN  LIKE  RMMG08_012-MSGTYP,
      KZ_PRF  LIKE  RMMG08_012-MSGTYP.
PARAMETERS: P_MATNR TYPE MATNR.   "Material Number
PARAMETERS: P_WERKS TYPE WERKS_D. " Existing Plant
PARAMETERS: P_NWERKS TYPE WERKS_D. " New Plant
PARAMETERS: P_LGORT TYPE LGORT_D. " Storage Location
START-OF-SELECTION.
* Clear the Workarea
  CLEAR : WA_MARA,WA_MARC,WA_MARD.
* Refresh the Internal Tables
  REFRESH: AMARA_UEB,AMARC_UEB,AMARD_UEB.
* MARA Table
  SELECT SINGLE * FROM MARA INTO CORRESPONDING FIELDS OF WA_MARA WHERE MATNR = P_MATNR.
  IF SY-SUBRC = 0.
  WA_MARA-TCODE = 'MM01'.
  WA_MARA-TRANC = '0000000001'.
  APPEND WA_MARA TO AMARA_UEB.
  ENDIF.
* MARC Table
  SELECT SINGLE * FROM MARC INTO CORRESPONDING FIELDS OF WA_MARC WHERE MATNR = P_MATNR AND WERKS = P_WERKS.
  IF SY-SUBRC = 0.
    WA_MARC-WERKS = P_NWERKS.
    WA_MARC-TRANC = '0000000001'.
    WA_MARC-PSTAT = SPACE.
    APPEND WA_MARC TO AMARC_UEB.
  ENDIF.
* MARD Table
    SELECT SINGLE * FROM MARD INTO CORRESPONDING FIELDS OF WA_MARD WHERE MATNR = P_MATNR AND WERKS = P_WERKS AND LGORT = P_LGORT.
   IF sy-subrc = 0.
    WA_MARD-WERKS = P_NWERKS.
    WA_MARD-TRANC = '0000000001'.
    APPEND WA_MARD TO AMARD_UEB.
   ENDIF.
* Call the Function Module MATERIAL_MAINTAIN_DARK.
      CALL FUNCTION 'MATERIAL_MAINTAIN_DARK'
        EXPORTING
          P_KZ_NO_WARN                    = 'I'
          KZ_PRF                          = 'W'
        IMPORTING
          MATNR_LAST                      = P_MATNR
          NUMBER_ERRORS_TRANSACTION       = NUMBER_ERRORS_TRANSACTION
        TABLES
          AMARA_UEB                       = AMARA_UEB
          AMARC_UEB                       = AMARC_UEB
          AMARD_UEB                       = AMARD_UEB
       EXCEPTIONS
         KSTATUS_EMPTY                   = 1
         TKSTATUS_EMPTY                  = 2
         T130M_ERROR                     = 3
         INTERNAL_ERROR                  = 4
         TOO_MANY_ERRORS                 = 5
         UPDATE_ERROR                    = 6
         ERROR_PROPAGATE_HEADER          = 7
         OTHERS                          = 8.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSE.
      COMMIT WORK.
      ENDIF.
Thanks
Bhuvana
Edited by: Matt on Nov 26, 2010 10:04 AM - added  tags

Answer 1

Hi,
This function module used in many standard reports.We can see goto sm37->give the function module name->then click on the
where used list button on application toolbar u can get the more information regarding that function module.
RMMM000,L1001UEBU01
I thing we can get some information.
regards,
muralii