Eigenschaften | Quelltext
Titel | CONSIDER_OLD_EXCLUDE_TAB |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
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