Properties SourceCde
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