Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 02.07.2002 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    1
    *&---------------------------------------------------------------------*
    2
    *&      Form  LOGS_ANALYSE
    3
    *&---------------------------------------------------------------------*
    4
    *       Analyses table logs concerning the current maintenance view by
    5
    *       calling report RSVTPROT
    6
    *----------------------------------------------------------------------*
    7
    *  -->  p1        text
    8
    *  <--  p2        text
    9
    *----------------------------------------------------------------------*
    10
    FORM LOGS_ANALYSE.
    11
    12
      RANGES: SEL_OBJ FOR OBJH-OBJECTNAME,
    13
              SEL_TYPE FOR OBJH-OBJECTTYPE.
    14
    15
      SEL_OBJ-SIGN = SEL_TYPE-SIGN = 'I'.
    16
      SEL_OBJ-OPTION = SEL_TYPE-OPTION = 'EQ'.
    17
      IF VIM_CALLED_BY_CLUSTER NE SPACE.
    18
        SEL_TYPE-LOW = VIM_CLST.
    19
        SEL_OBJ-LOW = VIM_CALLING_CLUSTER.
    20
      ELSE.
    21
        SEL_OBJ-LOW = X_HEADER-VIEWNAME.
    22
        IF x_header-bastab NE space
    23
         AND x_header-maintview = x_header-viewname.
    24
    * table but no table-variant
    25
          sel_type-low = vim_tabl.
    26
        ELSE.
    27
    * view, view-variant, or table variant
    28
          SEL_TYPE-LOW = VIM_VIEW.
    29
        ENDIF.
    30
      ENDIF.
    31
      APPEND SEL_OBJ. APPEND SEL_TYPE.
    32
      SUBMIT RSVTPROT VIA SELECTION-SCREEN USING SELECTION-SCREEN 1010
    33
                      WITH CUSOBJ IN SEL_OBJ
    34
                      WITH STYPE IN SEL_TYPE
    35
                      WITH ACC_ARCH = ' ' AND RETURN.
    36
    ENDFORM.                               " LOGS_ANALYSE