Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    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