1
*---------------------------------------------------------------------*
2
* FORM READ_TABLE *
3
4
* ........ *
5
6
* --> IND *
7
8
FORM read_table USING ind.
9
IF replace_mode NE space OR vim_special_mode EQ vim_delete.
10
EXIT.
11
ENDIF.
12
READ TABLE extract INDEX ind.
13
MOVE sy-tabix TO exind.
14
IF sy-subrc NE 0.
15
MOVE <initial> TO <table1>.
16
MOVE <table1> TO <vim_extract_struc>.
17
IF x_header-bastab NE space AND x_header-texttbexst NE space.
18
MOVE: <text_initial_x> TO <vim_xextract_text>,
19
<text_initial_x> to <table1_xtext>.
20
* <table1_text> TO <extract_text>.
21
22
IF status-mode EQ detail_bild AND status-action EQ hinzufuegen AND
23
neuer EQ 'N'. "e.g. 'PREV' without input
24
neuer = 'J'.
25
26
ELSE.
27
PERFORM move_extract_to_view_wa.
28
29
ENDFORM.