1
*---------------------------------------------------------------------*
2
* FORM CONSIDER_OLD_EXCLUDE_TAB *
3
4
* ........ *
5
6
FORM CONSIDER_OLD_EXCLUDE_TAB
7
TABLES NEW_EXCLUDE_TAB STRUCTURE VIMEXCLFLD.
8
DATA: BEGIN OF VIEWNAME_PATTERN,
9
VIEWNAME LIKE VIMDESC-VIEWNAME,
10
WILDCARD(1) TYPE C VALUE '*',
11
END OF VIEWNAME_PATTERN.
12
13
VIEWNAME_PATTERN-VIEWNAME = X_HEADER-MAINTVIEW.
14
CONDENSE VIEWNAME_PATTERN NO-GAPS.
15
LOOP AT EXCLUDE_TAB WHERE FIELD CP VIEWNAME_PATTERN.
16
SHIFT EXCLUDE_TAB-FIELD UP TO '-'. SHIFT EXCLUDE_TAB-FIELD.
17
NEW_EXCLUDE_TAB-FIELDNAME = EXCLUDE_TAB-FIELD.
18
COLLECT NEW_EXCLUDE_TAB.
19
ENDLOOP.
20
ENDFORM. "consider_old_exclude_tab