DATA: components    TYPE TABLE OF mdpm,
      component     TYPE mdpm,
      lcm61o        TYPE cm61o.

PARAMETERS: p_plnum LIKE plaf-plnum,
            p_lgort LIKE plaf-lgort.

START-OF-SELECTION.
  CALL FUNCTION 'MD_PLDORD_GETDETAIL_BAPI'
    EXPORTING
      plannedorder_number = p_plnum
    TABLES
      components_data     = components
    EXCEPTIONS
      no_authority        = 1
      OTHERS              = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

END-OF-SELECTION.
  LOOP AT components INTO component.
    component-lgpro = p_lgort.
    component-vstat = 'U'.
    MODIFY components FROM component TRANSPORTING lgpro vstat.
  ENDLOOP.

  lcm61o-trtyp = 'V'.
  lcm61o-darkx = 'X'.
  lcm61o-nodia = 'X'.
  lcm61o-autho = 'X'.
  lcm61o-stpre = 'VC'.
  lcm61o-lockx = 'X'.
  lcm61o-itemr = '1'.
  lcm61o-bapco = '2'.
  lcm61o-bapix = 'X'.

  CALL FUNCTION 'MD_PLDORD_CHANGE_COMP_ITEMS'
    EXPORTING
      ecm61o                = lcm61o
      eplnum                = p_plnum
    TABLES
      emdpm                 = components
    EXCEPTIONS
      locked                = 1
      locking_error         = 2
      change_item_not_found = 3
      no_changes_identified = 4
      OTHERS                = 5.
  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.