1
*&--------------------------------------------------------------------*
2
*& Form CHECK_MODIFY_MERGED_ENTRIES *
3
4
* check if changed entry is to be merged and if so do it
5
* merging functionality has never been finished *
6
7
* <-- SY-SUBRC: 0 - ok, merge, others: don't merge *
8
9
*FORM CHECK_MODIFY_MERGED_ENTRIES USING VALUE(ENTRY_IN).
10
* LOCAL: TOTAL, <TABLE1>.
11
* DATA: REC TYPE I VALUE 8.
12
* <F1> = ENTRY_IN. <VIM_ENDDATE_MASK> = VIM_DATE_MASK.
13
* LOOP AT VIM_MERGED_ENTRIES WHERE NEW_KEY CP <F1>. "Achtung !!!!!!
14
* READ TABLE TOTAL WITH KEY VIM_MERGED_ENTRIES-MERGED_KEY
15
* BINARY SEARCH.
16
* IF SY-SUBRC EQ 0.
17
* <TABLE1> = TOTAL.
18
* <VIM_BEGDATE_MASK> = VIM_DATE_MASK.
19
* <VIM_ENDDATE_MASK> = VIM_DATE_MASK.
20
* IF ENTRY_IN CP <TABLE1>. "entry can be merged. "ACHTUNG!!
21
* CLEAR REC.
22
* TOTAL = ENTRY_IN.
23
* VIM_MERGED_ENTRIES-MERGED_KEY = <VIM_TOTAL_KEY>.
24
*
25
26
27
28
* ENDIF.
29
30
* ENDLOOP.
31
*ENDFORM. "check_modify_merged_entries