1
*---------------------------------------------------------------------*
2
* FORM LISTE_BACK *
3
4
* ........ *
5
6
FORM liste_back.
7
IF status-action EQ hinzufuegen.
8
status-action = <status>-st_action = aendern.
9
title-action = aendern.
10
CLEAR <status>-selected.
11
neuer = 'N'.
12
ENDIF.
13
IF status-delete = geloescht.
14
status-delete = <status>-st_delete = nicht_geloescht.
15
16
PERFORM markiere_alle USING nicht_markiert.
17
18
IF x_header-delmdtflag NE space.
19
LOOP AT vim_collapsed_mainkeys.
20
IF vim_collapsed_mainkeys-mkey_bf EQ space.
21
vim_collapsed_mainkeys-mkey_bf = vim_collapsed_mainkeys-log_key.
22
CLEAR vim_collapsed_mainkeys-log_key.
23
24
<f1_x> = <vim_h_coll_mkey>.
25
* <f1> = vim_collapsed_mainkeys-mainkey.
26
<vim_enddate_mask> = space.
27
<vim_h_coll_mkey> = <f1_x>.
28
* vim_collapsed_mainkeys-mainkey = <f1>.
29
MODIFY vim_collapsed_mainkeys.
30
ENDLOOP.
31
IF vim_delim_expa_excluded NE space.
32
DELETE excl_cua_funct WHERE function EQ 'EXPA'.
33
CLEAR vim_delim_expa_excluded.
34
35
IF status-action = aendern AND title-action = hinzufuegen.
36
37
38
39
PERFORM fill_extract.
40
nextline = 1.
41
mark_extract = mark_total.
42
SET SCREEN liste.
43
LEAVE SCREEN.
44
ENDFORM.