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
31
32
33
* NEXTLINE = 1.
34
* SET SCREEN LISTE.
35
36
37
CLEAR VIM_ACT_DYNP_VIEW. SET SCREEN 0. LEAVE SCREEN.
38
39
ENDFORM.