FUNCTION zbapi_outb_delivery_change.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IS_HDRDATA) TYPE  BAPIOBDLVHDRCHG OPTIONAL
*"     VALUE(IS_HDRCTRL) TYPE  BAPIOBDLVHDRCTRLCHG OPTIONAL
*"     VALUE(IS_HDR_SPL) TYPE  /SPE/BAPIOBDLVHDRCHG OPTIONAL
*"  EXPORTING
*"     VALUE(ET_RETURN) TYPE  BAPIRET2_T
*"----------------------------------------------------------------------

  DATA : lt_return  TYPE TABLE OF bapiret2.

  DATA : lv_flag TYPE char1.

  lv_flag = abap_true.
  EXPORT lv_flag_upd_pick FROM lv_flag TO MEMORY ID 'FLAG_PICK'.

  CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
    EXPORTING
      header_data    = is_hdrdata
      header_control = is_hdrctrl
      delivery       = is_hdrdata-deliv_numb
    TABLES
      return         = lt_return.

  IF sy-subrc = 0.
    IF lt_return[] IS INITIAL.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

    ENDIF.
  ENDIF.

  UPDATE lips
   SET kosta = 'C'
       pksta = 'C'
       WHERE vbeln = is_hdrdata-deliv_numb.

  FREE MEMORY ID 'FLAG_PICK'.
  CLEAR lv_flag.



ENDFUNCTION.