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 VIM_SET_IMPRES_HEADER                                    *
    3
    *&--------------------------------------------------------------------*
    4
    * ...                                                                 *
    5
    *&--------------------------------------------------------------------*
    6
    FORM VIM_SET_IMPRES_HEADER.
    7
      IF VIM_CALLED_BY_CLUSTER EQ SPACE.
    8
        IMP_RESULTS-OBJTAB-OBJECT-OBJECTNAME = X_HEADER-VIEWNAME.
    9
        IF X_HEADER-VIEWNAME <> X_HEADER-MAINTVIEW.             "Subviews ..
    10
          CLEAR IMP_RESULTS-OBJTAB-OBJECT-OBJECTTYPE.
    11
        ELSE.
    12
          IMP_RESULTS-OBJTAB-OBJECT-OBJECTTYPE = X_HEADER-BASTAB.
    13
        ENDIF.                             ".. Subviews
    14
        TRANSLATE IMP_RESULTS-OBJTAB-OBJECT-OBJECTTYPE USING ' VXS'.
    15
      ELSE.
    16
        IMP_RESULTS-OBJTAB-OBJECT-OBJECTNAME = VIM_CALLING_CLUSTER.
    17
        IMP_RESULTS-OBJTAB-OBJECT-OBJECTTYPE = 'C'.
    18
      ENDIF.
    19
      IF X_HEADER-BASTAB NE SPACE.
    20
        IMP_RESULTS-OBJTAB-TABNAME = X_HEADER-MAINTVIEW.
    21
        IF X_HEADER-VIEWNAME <> X_HEADER-MAINTVIEW.             "Subviews ..
    22
          IMP_RESULTS-OBJTAB-VIEWNAME = X_HEADER-VIEWNAME.
    23
        ELSE.                              ".. Subviews
    24
          CLEAR IMP_RESULTS-OBJTAB-VIEWNAME.
    25
        ENDIF.
    26
      ELSE.
    27
        IMP_RESULTS-OBJTAB-TABNAME = X_HEADER-ROOTTAB.
    28
        IMP_RESULTS-OBJTAB-VIEWNAME = X_HEADER-VIEWNAME.
    29
      ENDIF.
    30
      IMP_RESULTS-KEYLEN = X_HEADER-KEYLEN.                     "SW
    31
      IMP_RESULTS-GENKEYLEN = X_HEADER-KEYLEN.                  "SW
    32
    ENDFORM.                               "vim_set_impres_header