MDKP_FIXTR.abap

INCLUDE mm61xval.

START-OF-SELECTION.
  PERFORM run.


FORM run.

  DATA: ls_mt61d TYPE mt61d,
        ls_cm61x TYPE cm61x,
        ls_cm61w TYPE cm61w,
        ls_t399d TYPE t399d,
        ls_cm61m TYPE cm61m,
        ls_mdkp  TYPE mdkp,
        ls_cm61b TYPE m61x_cm61b.


  MOVE anzbs    TO ls_cm61x-plauf.
  MOVE mdobjb   TO ls_cm61x-plobj.
  MOVE sy-datlo TO ls_cm61x-dispd.

  CALL FUNCTION 'MD_READ_MATERIAL'
    EXPORTING
      ewerks = p_werks
      ematnr = p_matnr
    IMPORTING
      imt61d = ls_mt61d
      icm61b = ls_cm61b.

  CALL FUNCTION 'MD_READ_PLANT'
    EXPORTING
      ewerks = p_werks
      ecm61x = ls_cm61x
    IMPORTING
      icm61w = ls_cm61w
      it399d = ls_t399d.

  CALL FUNCTION 'ERSTELLEN_MDKP_DP'
    EXPORTING
      ecm61x = ls_cm61x
      ecm61w = ls_cm61w
      et399d = ls_t399d
      emt61d = ls_mt61d
    IMPORTING
      imdkp  = ls_mdkp
    EXCEPTIONS
      error  = 1
      OTHERS = 2.
  IF sy-subrc <> 0.
    BREAK-POINT.
  ENDIF.

  WRITE: ls_mdkp-fixtr.

ENDFORM.