Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 19.01.2000 |  | 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
    *   INCLUDE LSVIMF5D                                                   *
    3
    *----------------------------------------------------------------------*
    4
    *&---------------------------------------------------------------------*
    5
    *&      Form  VIM_MAINT_SELFLAG
    6
    *&---------------------------------------------------------------------*
    7
    *       Sets or resets X_HEADER-SELECTION and keeps initial value
    8
    *       Purpose: additional check vs. sellist in form
    9
    *       CHECK_DYNAMIC_SELECT_OPTIONS
    10
    *----------------------------------------------------------------------*
    11
    *      -->mode   S = set flag to 'X', I = initialize,
    12
    *                R = get and reset to initial value
    13
    *      <--p_selflag value of X_HEADER-SELECTION
    14
    *----------------------------------------------------------------------*
    15
    FORM vim_maint_selflag USING    value(p_mode) TYPE sychar01
    16
                       CHANGING p_selflag     TYPE xfeld.
    17
    18
      STATICS: init_val TYPE xfeld.
    19
    20
      CASE p_mode.
    21
        WHEN 'I'.
    22
          init_val = p_selflag.
    23
        WHEN 'S'.
    24
          x_header-selection = 'X'.
    25
        WHEN 'R'.
    26
          p_selflag = x_header-selection.
    27
          x_header-selection = init_val.
    28
      ENDCASE.
    29
    ENDFORM.                               " VIM_MAINT_SELFLAG