1
*&--------------------------------------------------------------------*
2
*& Form MOVE_EXTRACT_TO_VIEW_WA *
3
4
* move EXTRACT entry to view-/table-/texttable-workarea *
5
6
FORM move_extract_to_view_wa.
7
8
MOVE <vim_extract_struc> TO <table1>.
9
* MOVE EXTRACT TO <TABLE1>.
10
IF x_header-bastab NE space AND x_header-texttbexst NE space.
11
* MOVE <extract_text> TO <table1_text>.
12
MOVE <vim_xextract_text> TO <table1_xtext>.
13
ENDIF.
14
ENDFORM. "move_extract_to_view_wa.