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  LISTE_EXIT_COMMAND                                      *
    3
    *&--------------------------------------------------------------------*
    4
    * handle exit commands on list screen                                 *
    5
    *&--------------------------------------------------------------------*
    6
    FORM LISTE_EXIT_COMMAND.
    7
      CASE OK_CODE.
    8
        WHEN 'ABR '.
    9
          FUNCTION = OK_CODE.
    10
          CLEAR OK_CODE.
    11
          CASE VIM_SPECIAL_MODE.
    12
            WHEN VIM_REPLACE.
    13
              CLEAR VIM_ACT_DYNP_VIEW. SET SCREEN 0. LEAVE SCREEN.
    14
            WHEN VIM_DELETE.
    15
              SET SCREEN 0. LEAVE SCREEN.
    16
            WHEN VIM_UPGRADE.
    17
    *         CLEAR: VIM_SPECIAL_MODE, MAXLINES. LEAVE SCREEN.
    18
              CLEAR VIM_ACT_DYNP_VIEW. NEUER = 'N'.
    19
              SET SCREEN 0. LEAVE SCREEN.
    20
            WHEN OTHERS.
    21
              PERFORM LISTE_ABBRECHEN.
    22
          ENDCASE.
    23
        WHEN 'IGN '.
    24
          CASE VIM_SPECIAL_MODE.
    25
            WHEN VIM_REPLACE.
    26
              CLEAR VIM_ACT_DYNP_VIEW. SET SCREEN 0. LEAVE SCREEN.
    27
            WHEN VIM_DELETE.
    28
              SET SCREEN 0. LEAVE SCREEN.
    29
    *       WHEN VIM_UPGRADE.  "impossible
    30
    *         CLEAR OK_CODE. LEAVE SCREEN.
    31
            WHEN VIM_UPGRADE.
    32
              CLEAR VIM_ACT_DYNP_VIEW. NEUER = 'N'.
    33
              SET SCREEN 0. LEAVE SCREEN.
    34
            WHEN OTHERS.
    35
              LOOP AT SCREEN.
    36
                SCREEN-ACTIVE = 0.
    37
                MODIFY SCREEN.
    38
              ENDLOOP.
    39
          ENDCASE.
    40
          NEUER = 'N'.
    41
          CLEAR <STATUS>-UPD_FLAG.
    42
      ENDCASE.
    43
    ENDFORM.                               "liste_exit_command.