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