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
27
* view, view-variant, or table variant
28
SEL_TYPE-LOW = VIM_VIEW.
29
ENDIF.
30
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