Eigenschaften | Quelltext
Titel | VIM_RESTORE_SUBSET_CONDS |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
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.