Properties SourceCde
txt
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.