DATA: l_view     TYPE order_view,
      lt_orders  TYPE STANDARD TABLE OF sales_key,
      ls_orders  TYPE sales_key,
      lt_header  TYPE STANDARD TABLE OF bapisdhd,
      ls_header  TYPE  bapisdhd,
      lt_items   TYPE STANDARD TABLE OF bapisdit,
      ls_items   TYPE bapisdit,
      lt_items_u TYPE STANDARD TABLE OF bapisditm,
*      ls_items_u TYPE BAPISDITM,
      ls_xheader TYPE bapisdh1x,
*      ls_xitems  TYPE bapisditmx,
      lt_xitems_u  TYPE STANDARD TABLE OF bapisditmx,
      lt_return  TYPE STANDARD TABLE OF bapiret2,
      lt_shedules TYPE STANDARD TABLE OF bapisdhedu,
      ls_shedules TYPE bapisdhedu,
      lt_sched_u TYPE STANDARD TABLE OF bapischdl,
      lt_xsched  TYPE STANDARD TABLE OF bapischdlx.

FIELD-SYMBOLS: <fs_header> TYPE bapisdhd,
               <fs_item>   TYPE bapisdit,
               <fs_item_u> TYPE bapisditm,
               <fs_xitem>  TYPE bapisditmx,
               <fs_shed_u> TYPE bapischdl,
               <fs_xshed>  TYPE bapischdlx.

PARAMETERS: p_vbeln TYPE vbak-vbeln OBLIGATORY DEFAULT '1100373313',
            p_menge TYPE vbap-smeng OBLIGATORY DEFAULT 10.

START-OF-SELECTION.

  l_view-header     = 'X'.
  l_view-item       = 'X'.
  l_view-sdschedule = 'X'.

  ls_orders-vbeln = p_vbeln.
  APPEND ls_orders TO lt_orders.

  CALL FUNCTION 'BAPISDORDER_GETDETAILEDLIST'
    EXPORTING
      i_bapi_view              = l_view
*     I_MEMORY_READ            =
*     I_WITH_HEADER_CONDITIONS = ' '
    TABLES
      sales_documents          = lt_orders
      order_headers_out        = lt_header
      order_items_out          = lt_items
      order_schedules_out      = lt_shedules
*     ORDER_BUSINESS_OUT       =
*     ORDER_PARTNERS_OUT       =
*     ORDER_ADDRESS_OUT        =
*     ORDER_STATUSHEADERS_OUT  =
*     ORDER_STATUSITEMS_OUT    =
*     ORDER_CONDITIONS_OUT     =
*     ORDER_COND_HEAD          =
*     ORDER_COND_ITEM          =
*     ORDER_COND_QTY_SCALE     =
*     ORDER_COND_VAL_SCALE     =
*     ORDER_CONTRACTS_OUT      =
*     ORDER_TEXTHEADERS_OUT    =
*     ORDER_TEXTLINES_OUT      =
*     ORDER_FLOWS_OUT          =
*     ORDER_CFGS_CUREFS_OUT    =
*     ORDER_CFGS_CUCFGS_OUT    =
*     ORDER_CFGS_CUINS_OUT     =
*     ORDER_CFGS_CUPRTS_OUT    =
*     ORDER_CFGS_CUVALS_OUT    =
*     ORDER_CFGS_CUBLBS_OUT    =
*     ORDER_CFGS_CUVKS_OUT     =
*     ORDER_BILLINGPLANS_OUT   =
*     ORDER_BILLINGDATES_OUT   =
*     ORDER_CREDITCARDS_OUT    =
*     EXTENSIONOUT             =
    .

  BREAK-POINT.

  LOOP AT lt_items ASSIGNING <fs_item>.
*    APPEND INITIAL LINE TO lt_items_u ASSIGNING <fs_item_u>.
*    <fs_item_u>-itm_number = <fs_item>-itm_number.
*    <fs_item_u>-target_qty = 1."<fs_item>-req_qty - 1.
*    <fs_item_u>-req_qty = <fs_item>-req_qty - 1.
*    <fs_item_u>-cum_req_de = <fs_item>-cum_req_de - 1.
*    <fs_item_u>-cum_cf_qty = <fs_item>-cum_cf_qty - 1.
*    <fs_item_u>-cum_con_qu = <fs_item>-cum_con_qu - 1.
*    APPEND INITIAL LINE TO lt_xitems_u ASSIGNING <fs_xitem>.
*    <fs_xitem>-itm_number = <fs_item>-itm_number.
*    <fs_xitem>-updateflag = 'U'.
*    <fs_xitem>-target_qty = 'X'.
*    <fs_xitem>-req_qty    = 'X'.
*    <fs_xitem>-cum_req_de = 'X'.
*    <fs_xitem>-cum_cf_qty = 'X'.
*    <fs_xitem>-cum_con_qu = 'X'.
    READ TABLE lt_shedules INTO ls_shedules WITH KEY itm_number = <fs_item>-itm_number.
    IF sy-subrc = 0.
      APPEND INITIAL LINE TO lt_sched_u ASSIGNING <fs_shed_u>.
      <fs_shed_u>-itm_number = <fs_item>-itm_number.
      <fs_shed_u>-req_qty = 1."<fs_item>-target_qty - 1.
      <fs_shed_u>-sched_line = ls_shedules-sched_line.
      APPEND INITIAL LINE TO lt_xsched ASSIGNING <fs_xshed>.
      <fs_xshed>-itm_number = <fs_item>-itm_number.
      <fs_xshed>-updateflag = 'U'.
      <fs_xshed>-req_qty = 'X'.
      <fs_xshed>-sched_line = 'X'.
    ENDIF.
  ENDLOOP.

  ls_xheader-updateflag = 'U'.

  BREAK-POINT.

  CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
    EXPORTING
      salesdocument         = p_vbeln
*     ORDER_HEADER_IN       =
      order_header_inx      = ls_xheader
*     SIMULATION            =
*     BEHAVE_WHEN_ERROR     = ' '
*     INT_NUMBER_ASSIGNMENT = ' '
*     LOGIC_SWITCH          =
*     NO_STATUS_BUF_INIT    = ' '
    TABLES
      return                = lt_return
      order_item_in         = lt_items_u
      order_item_inx        = lt_xitems_u
*     PARTNERS              =
*     PARTNERCHANGES        =
*     PARTNERADDRESSES      =
*     ORDER_CFGS_REF        =
*     ORDER_CFGS_INST       =
*     ORDER_CFGS_PART_OF    =
*     ORDER_CFGS_VALUE      =
*     ORDER_CFGS_BLOB       =
*     ORDER_CFGS_VK         =
*     ORDER_CFGS_REFINST    =
      schedule_lines        = lt_sched_u
      schedule_linesx       = lt_xsched
*     ORDER_TEXT            =
*     ORDER_KEYS            =
*     CONDITIONS_IN         =
*     CONDITIONS_INX        =
*     EXTENSIONIN           =
    .
  .
*  COMMIT WORK AND WAIT.

  BREAK-POINT.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait   = 'X'.
*    IMPORTING
*      return = lt_return.


  BREAK-POINT.

READ TABLE lt_shedules INTO ls_shedules WITH KEY itm_number = <fs_item>-itm_number.
    IF sy-subrc = 0.
      APPEND INITIAL LINE TO lt_sched_u ASSIGNING <fs_shed_u>.
      <fs_shed_u>-itm_number = <fs_item>-itm_number.
      <fs_shed_u>-req_qty = 1."<fs_item>-target_qty - 1.
      <fs_shed_u>-sched_line = ls_shedules-sched_line.
      APPEND INITIAL LINE TO lt_xsched ASSIGNING <fs_xshed>.
      <fs_xshed>-itm_number = <fs_item>-itm_number.
      <fs_xshed>-updateflag = 'U'.
      <fs_xshed>-req_qty = 'X'.
      <fs_xshed>-sched_line = 'X'.
    ENDIF.

READ TABLE lt_shedules INTO ls_shedules WITH KEY itm_number = <fs_item>-itm_number.
    IF sy-subrc = 0.
...