1
*&--------------------------------------------------------------------*
2
*& Form VIM_RESTORE_SUBSET_CONDS *
3
4
* restore subset conditions *
5
6
FORM vim_restore_subset_conds.
7
DATA: hi TYPE i.
8
FIELD-SYMBOLS: <ifield> TYPE ANY.
9
LOOP AT dpl_sellist WHERE ddic CO vim_subset_marks.
10
hi = sy-tabix.
11
READ TABLE x_namtab INDEX dpl_sellist-tabix.
12
ASSIGN COMPONENT x_namtab-viewfield
13
OF STRUCTURE <vim_extract_struc> TO <ifield>.
14
* ASSIGN EXTRACT+X_NAMTAB-POSITION(X_NAMTAB-FLENGTH) TO <IFIELD>.
15
CALL FUNCTION 'VIEW_CONVERSION_OUTPUT'
16
EXPORTING
17
value_intern = <ifield>
18
tabname = x_header-maintview
19
fieldname = x_namtab-viewfield
20
outputlen = x_namtab-outputlen
21
intlen = x_namtab-flength
22
IMPORTING
23
value_extern = dpl_sellist-value.
24
CLEAR dpl_sellist-converted.
25
IF dpl_sellist-value IS INITIAL. dpl_sellist-initial = 'X'. ENDIF.
26
MODIFY dpl_sellist INDEX hi.
27
ENDLOOP.
28
dba_sellist[] = dpl_sellist[].
29
ENDFORM.