REPORT  ZCHANGE_EBAN.

data: number type bapieban-preq_no,
      matkl type mara-matkl.

data: gt_reqitems like table of bapieban,
      return type table of bapireturn,
      gs_reqitems like bapieban,
      gs_reqitem_new like bapiebanv,
      gs_reqitem_old like bapiebanv,
      gt_reqitem_new like table of bapiebanv,
      gt_reqitem_old like table of bapiebanv.

  number = '0010016950'.

  call function 'BAPI_REQUISITION_GETDETAIL'
      exporting
          number = number
      tables
          requisition_items = gt_reqitems
          return = return.

  loop at gt_reqitems into gs_reqitems.
      move-corresponding gs_reqitems to gs_reqitem_old.
      move-corresponding gs_reqitems to gs_reqitem_new.

      select single matkl
          into matkl
        from mara
        where matnr = gs_reqitems-material.
      gs_reqitem_new-mat_grp = matkl.

      append gs_reqitem_old to gt_reqitem_old.
      append gs_reqitem_new to gt_reqitem_new.
  endloop.

  if gs_reqitem_new is not initial.
      call function 'BAPI_REQUISITION_CHANGE'
          exporting
              number = number
          tables
              requisition_items_old = gt_reqitem_old
              requisition_items_new = gt_reqitem_new
              return = return.

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