Properties SourceCde
txt
1
*---------------------------------------------------------------------*
2
*       FORM IGNORIEREN                                               *
3
*---------------------------------------------------------------------*
4
*       ........                                                      *
5
*---------------------------------------------------------------------*
6
FORM IGNORIEREN. "wird nur noch auf Detailbild prozessiert
7
  <STATUS>-UPD_FLAG = SPACE.
8
  IF STATUS-ACTION EQ KOPIEREN OR VIM_SPECIAL_MODE EQ VIM_DELETE.
9
    SET SCREEN 0.
10
    LEAVE SCREEN.
11
  ENDIF.
12
* IF MAXLINES LE 1.
13
*   STATUS-ACTION = AENDERN.
14
*   TITLE-ACTION  = AENDERN.
15
*   PERFORM FILL_EXTRACT.
16
* ELSE.
17
*   SORT EXTRACT.
18
* ENDIF.
19
  NEUER = 'N'.
20
  IF REPLACE_MODE EQ SPACE.
21
    CLEAR FUNCTION.
22
*   IF STATUS-MODE EQ DETAIL_BILD.
23
*     FUNCTION = 'DETA'.
24
*     SET SCREEN DETAIL.
25
    IF STATUS-ACTION EQ HINZUFUEGEN.
26
      FUNCTION = 'NEWL'.
27
      PERFORM HINZUFUEGEN.
28
    ELSE.
29
      SET SCREEN LISTE.
30
      LEAVE SCREEN.
31
    ENDIF.
32
*   ELSE.
33
*     NEXTLINE = 1.
34
*     SET SCREEN LISTE.
35
*   ENDIF.
36
  ELSE.
37
    CLEAR VIM_ACT_DYNP_VIEW. SET SCREEN 0. LEAVE SCREEN.
38
  ENDIF.
39
ENDFORM.