report ZPM_X_BAPI_REQUISITION_DELETE.

tables: eban.

data: gt_BAPIEBAND type BAPIEBAND occurs 0 with header line,
      gt_return type bapiret2 occurs 0 with header line,
      error_occured.


parameters: p_banfn  like eban-banfn.

start-of-selection.

  select * from eban where banfn eq p_banfn.

     move: eban-bnfpo to gt_BAPIEBAND-PREQ_ITEM,
           'X'        to gt_BAPIEBAND-DELETE_IND,
           'X'        to gt_BAPIEBAND-CLOSED.
     append gt_BAPIEBAND.

  endselect.

end-of-selection.


  CALL FUNCTION 'BAPI_REQUISITION_DELETE'
    EXPORTING
      NUMBER                            = p_banfn
    TABLES
      REQUISITION_ITEMS_TO_DELETE       = gt_BAPIEBAND
      RETURN                            = gt_return.



  if gt_return[] is not initial.
    loop at gt_return.
      MESSAGE
         ID      gt_return-id
         TYPE    gt_return-type
         NUMBER  gt_return-number
         WITH    gt_return-message_v1
                 gt_return-message_v2
                 gt_return-message_v3
                 gt_return-message_v4.

      case gt_return-type.
        when 'E' or 'A'.
          exit.
      endcase.

    endloop.
  endif.

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