INCLUDE fzmm_banfncdt.
...

SELECT SINGLE * FROM eban INTO ls_eban
      WHERE banfn = gs_outtab-banfn
       AND bnfpo = gs_outtab-bnfpo.

    MOVE-CORRESPONDING ls_eban TO ls_zeban.
    yeban  = ls_zeban.
    APPEND yeban.

ls_zeban-banpr = gc_req_take_off.
      xeban = ls_zeban.
      APPEND xeban.

      CONCATENATE sy-mandt gs_outtab-banfn gs_outtab-bnfpo INTO objectid.

      MOVE: sy-tcode TO tcode,
          sy-uzeit TO utime,
          sy-datum TO udate,
          sy-uname TO username,
          'U' TO cdoc_upd_object."<<<<<<<<<
      cdoc_planned_or_real = 'R'."<<<<<<<<<

      upd_eban = 'U'.
      UPD_ICDTXT_ZMM_BANFN = 'U'.


      PERFORM CD_CALL_ZMM_BANFN .
      COMMIT WORK.

...

FORM CD_CALL_ZMM_BANFN.
  IF   ( UPD_EBAN NE SPACE )
    OR ( UPD_ICDTXT_ZMM_BANFN NE SPACE )
  .
    CALL FUNCTION 'SWE_REQUESTER_TO_UPDATE'.
    CALL FUNCTION 'ZMM_BANFN_WRITE_DOCUMENT' IN UPDATE TASK
        EXPORTING
          OBJECTID                = OBJECTID
          TCODE                   = TCODE
          UTIME                   = UTIME
          UDATE                   = UDATE
          USERNAME                = USERNAME
          PLANNED_CHANGE_NUMBER   = PLANNED_CHANGE_NUMBER
          OBJECT_CHANGE_INDICATOR = CDOC_UPD_OBJECT
          PLANNED_OR_REAL_CHANGES = CDOC_PLANNED_OR_REAL
          NO_CHANGE_POINTERS      = CDOC_NO_CHANGE_POINTERS
* updateflag of EBAN
          UPD_EBAN
                      = UPD_EBAN
          UPD_ICDTXT_ZMM_BANFN
                      = UPD_ICDTXT_ZMM_BANFN
        TABLES
          ICDTXT_ZMM_BANFN
                      = ICDTXT_ZMM_BANFN
          XEBAN
                      = XEBAN
          YEBAN
                      = YEBAN
    .
  ENDIF.
  CLEAR PLANNED_CHANGE_NUMBER.
ENDFORM.                     

DATA: UPD_ICDTXT_BC_BOOK         TYPE C.
DATA: BEGIN OF ICDTXT_BC_BOOK         OCCURS 20.
        INCLUDE STRUCTURE CDTXT.
DATA: END OF ICDTXT_BC_BOOK        .

TABLES: *SBOOK                         , SBOOK                         .
DATA: UPD_SBOOK                          TYPE C.

FORM create_change_documents.
************************************************************************
* a) Create a change document for each booking, which is changed on the
*    DB table SBOOK: Loop over the internal table ITAB_SBOOK_MODIFY
*    (containing all modified dataset) and read the corresponding
*    original dataset from the internal table ITAB_CD (into the workarea
*    *sbook).
* b) Define an object key from the key fields of sbook (you may use
*    the ABAP statement CONCATENATE)
* c) Fill interface parameters, which are used by the generated
*    function module
* d) add the PERFORM statement for the generated form encapsulating the
*    creation of the change document.
************************************************************************
LOOP AT itab_sbook_modify INTO sbook. "записываем новое значение таблиці
* read unchanged data from buffer table into *-work area
READ TABLE itab_cd FROM sbook INTO *sbook. "записываем старое значение таблицы
* define objectid from key fields of sbook
CONCATENATE sbook-mandt sbook-carrid sbook-connid
sbook-fldate sbook-bookid sbook-customid
INTO objectid SEPARATED BY space.
* fill interface parameters for function call (which itself is
* encapsulated in form CD_CALL_BC_BOOK
MOVE: sy-tcode TO tcode,
sy-uzeit TO utime,
sy-datum TO udate,
sy-uname TO username,
'U' TO upd_sbook.
* perform calls the neccessary function to create change document
* 'in update task'
PERFORM cd_call_bc_book.
ENDLOOP.
ENDFORM.                               " CREATE_CHANGE_DOCUMENTS

DATA: BEGIN OF ICDTXT_ZMM_BANFN OCCURS 20.
        INCLUDE STRUCTURE CDTXT.
DATA: END OF ICDTXT_ZMM_BANFN.
DATA: UPD_ICDTXT_ZMM_BANFN TYPE C.

* table with the NEW content of: EBAN
DATA: BEGIN OF XEBAN OCCURS 20.
        INCLUDE STRUCTURE ZEBAN.
DATA: END OF XEBAN.

* table with the OLD content of: EBAN
DATA: BEGIN OF YEBAN OCCURS 20.
        INCLUDE STRUCTURE ZEBAN.
DATA: END OF YEBAN.

DATA: UPD_EBAN TYPE C.

FORM purreq_take_off  USING ut_rows TYPE lvc_t_roid.

  DATA: ls_rows      TYPE lvc_s_roid,
        lt_return    TYPE TABLE OF bapiret2,
        ls_return    TYPE bapiret2.

  " добавил 25/01/2012 по ТЗ (
  DATA: ls_zeban TYPE zeban,
        ls_eban  TYPE eban.
  " ) добавил 25/01/2012 по ТЗ

  LOOP AT ut_rows INTO ls_rows.
    READ TABLE gt_outtab INTO gs_outtab INDEX ls_rows-row_id.

    " добавил 25/01/2012 по ТЗ  (

    SELECT SINGLE * FROM eban INTO ls_eban
      WHERE banfn = gs_outtab-banfn
       AND bnfpo = gs_outtab-bnfpo.

    MOVE-CORRESPONDING ls_eban TO ls_zeban.
    yeban  = ls_zeban.
    APPEND yeban.
    " ) добавил  25/01/2012 по ТЗ

    gs_outtab-banpr = gc_req_take_off.
    gs_outtab-icon_st = gv_icon_breakpoint.
    MODIFY gt_outtab FROM gs_outtab INDEX ls_rows-row_id.
    UPDATE eban SET banpr = gc_req_take_off
      WHERE banfn = gs_outtab-banfn
        AND bnfpo = gs_outtab-bnfpo.
    IF sy-subrc = 0.
      COMMIT WORK AND WAIT.

      "  добавил  25/01/2012 по ТЗ (

      ls_zeban-banpr = gc_req_take_off.
      xeban = ls_zeban.
      APPEND xeban.

      CONCATENATE sy-mandt gs_outtab-banfn gs_outtab-bnfpo INTO objectid SEPARATED BY space.

      MOVE: sy-tcode TO tcode,
          sy-uzeit TO utime,
          sy-datum TO udate,
          sy-uname TO username,
          'U' TO cdoc_upd_object."<<<<<<<<<
      cdoc_planned_or_real = 'R'."<<<<<<<<<

      upd_eban = 'U'.
      UPD_ICDTXT_ZMM_BANFN = 'U'.


      PERFORM CD_CALL_ZMM_BANFN .
      COMMIT WORK.

      " ) добавил 25/01/2012 по ТЗ


      ls_return-type = 'S'.
      ls_return-id = 'ZMM_PRSR_MC'.
      ls_return-number = '015'.
      ls_return-message_v1 = gs_outtab-banfn.
      APPEND ls_return TO lt_return.
    ELSE.
      ROLLBACK WORK.
    ENDIF.

    " добавил 25/01/2012 по ТЗ (
    REFRESH: xeban, yeban.
    CLEAR: ls_zeban, ls_eban.
    " ) добавил 25/01/2012 по ТЗ

  ENDLOOP.

  PERFORM display_message_list TABLES lt_return USING 'S'.

ENDFORM.                    " PURREQ_TAKE_OFF