report zpm_test.

data: header_data    like bapiobdlvhdrcon,
      header_control like bapiobdlvhdrctrlcon,
      return like bapiret2 occurs 0 with header line.

data error.

parameters: delivery type BAPIOBDLVHDRCON-DELIV_NUMB.

end-of-selection.

move: delivery to header_data-deliv_numb,
      delivery to header_control-deliv_numb,
     'X'       to header_control-dlv_del.

call function 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
  EXPORTING
    header_data    = header_data
    header_control = header_control
    delivery       = delivery
  TABLES
    return         = return.

loop at return.

  check return-type = 'E' or
        return-type = 'A'.

  error = 'X'.
  exit.

endloop.

if error is initial.

  call function 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
endif.